判斷IP的來源是電信還是網通

　　判斷ip的來源是電信還是網通,常用於網站的背景程式.典型的做法當然是查詢資料庫教程,資料庫裡儲存著網通(或電信)的ip範圍,然後通過範圍搜尋來決定該ip是否在網通(或電信)的區間內.不過每次都得查詢資料庫,效率顯然很低.

　　不多廢話,直接開始說一種超快的演算法吧.既然要極快,莫過於o(1)的複雜度,所以開闢一巨大的緩衝區,用經典的空間換時間,通過查表一步即可判定.那如何定義表的大小,還有key?先從cnc.txt這個檔案看起.(http://www.3lian.com/)

　　這個檔案是中國網通的路由表.仔細觀察下,不難發現掩碼位元最高不超過24(即255.255.255.0).事實上24位的掩碼是非常至少,畢竟一個網通的網段裡只劃分了256個ip,已是相當的少了.既然掩碼位元最多隻有24,所以ip的最後一位可以忽略不計,而ip的前3位共有256^3(=16m)的組合.所以將ip的前3位作為key,16m的表長度,正好定義出ip對應網段的表.可以形象如下表示:

　　123.0.0.0/24 => table[123.0.0] = true

　　202.0.0.0/16 => table[202.0.0] = true

　　table[202.0.1] = true

　　...

　　table[202.0.255] = true

　　檢測的時候取ip前3位,檢測表中對應是否為true即可判斷出此ip的類型.事實上,本例中ip只有電信和網通兩種狀態(非網通網段都當作電信),因此只需1bit即可儲存每個記錄.這時表佔用的記憶體只需16m/8=2m.下面就用asp教程來實現這功能.

　　首先將路由錶轉化成一個2m大小的緩衝表.考慮到asp的運行速度,這裡事先用c程式直接處理,然後儲存為一個2m的二進位檔案.asp通過adbdo.stream讀取資料流,並緩衝在appliction集合中.所謂的資料流其實也就是個byte()變數,可以通過midb,ascb這類二進位函數來處理.

　　初始化函數:

　　sub init()

　　if lenb(application("cnc")) then

　　exit sub

　　end if

　　with server.createobject("adodb.stream")

　　.type = 1

　　.open

　　.loadfromfile server.mappath("cnc.dat")

　　application("cnc") = .read

　　.close

　　end with

　　end sub

　　通過appliction集合的緩衝,就不必每次都讀取檔案.2m大小的記憶體也是可以接受的.接著就是分析ip地址,將其前3位轉換成一個數字,因為這裡每個記錄是按位(bit)儲存的,所以還要整除8來對應到byte()的位置.最後通過mod運算對應到具體位元組的具體bit上.聽著有些複雜,不過實現起來確是相當的簡單:

　　function ipiscnc(ip)

　　dim arr, val

　　dim c

　　arr = split(ip, ".")

　　val = clng(arr(0)) * 65536 + clng(arr(1)) * 256 + clng(arr(2))

　　c = ascb(midb(application("cnc"), val 8 + 1, 1))

　　ipiscnc = _

　　(c and 2^(val mod 8)) <> 0

　　end function

　　ipiscnc(ip),返回ip地址是否為網通.

　　到此關鍵的兩個函數就大功告成了,接著測試:

　　sub main()

　　on error resume next

　　init()

　　if err then

　　response.write "系統錯誤: " & err.description

　　exit sub

　　end if

　　dim ip

　　ip = request.servervariables("remote_addr")

　　if ipiscnc(ip) then

　　response.write ip & "屬於網通ip"

　　else

　　response.write ip & "屬於電信ip"

　　end if

　　end sub

　　main()

　　考慮到init函數需要檔案的讀取,所以添加了錯誤捕捉.不過通常情況下ipiscnc是不會錯誤的,因為remote_addr返回的必然是個正確格式的ip.

　　每當訪問asp時,除了第一次需負載檔案外,其餘時候只需三四行代碼既可以判定,真正實現了空間換時間.