判斷ip的來源是電信還是網通,常用於站點的後台程序.典型的做法當然是查詢數據庫教程,數據庫裡保存著網通(或電信)的ip范圍,然後通過范圍搜索來決定該ip是否在網通(或電信)的區間內.不過每次都得查詢數據庫,效率顯然很低.
不多廢話,直接開始說一種超快的算法吧.既然要極快,莫過於o(1)的復雜度,所以開辟一巨大的緩沖區,用經典的空間換時間,通過查表一步即可判定.那如何定義表的大小,還有key?先從cnc.txt這個文件看起.(http:///)
這個文件是中國網通的路由表.仔細觀察下,不難發現掩碼位數最高不超過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時,除了第一次需加載文件外,其余時候只需三四行代碼既可以判定,真正實現了空間換時間.
