用asp判斷某IP是否屬於某網段的另類算法

有時候我們需要判斷某一個IP地址是否屬於一個網段,以決定該用戶能否訪問系統.
2 S3 U8 G: x* z$ P9 \% ~比如用戶登錄的IP是218.6.7.7,而我們的程序必須判斷他是否屬於218.6.0.0/16這個網段(其中/16是新的子網掩碼的表示方式,相當於255.255.0.0).
$ u! u3 t  ]/ \5 p3 Y5 H/ Z要實現這樣的功能,現在流行的算法是將218.6.0.0和218.6.7.7按256進制換算成10進制並進行比較得出,如先計算出218.6.0.0和218.6.255.255的十進制:218×256×256×256+6×256×256=3657826304,218×256×256×256+6×256×256+255×256×256+255=3657891839。再計算出218.6.7.7的十進:218×256×256×256+6×256×256+7×256+7=3657828103,最後再比較3657828103是否大於等於3657826304和小於等於3657891839。但明顯有一個問題,計算量非常多,值非常大,如果IP地址是61開頭的還好,如果是218開頭的,這將會造成數據溢出而出錯。
& ^5 M; e: E% s" X4 J5 t9 B. K7 P其實比較IP是否屬於某一網段,最好的方式就是將IP與網段分別轉為32位二進制,再比較他們的網絡部分是否相同就可以了.asp本身不具備位運行功能,所以要實現這個只有我們手工實現,具體如下:
0 q8 q; \1 M& T'將十進制轉為二進制字符串
function dec2bin(octNumber)
9 M+ `$ \- m3 fvara=octNumber
do
dec2bin=cstr(vara mod 2) & dec2bin
& x7 P0 W* w+ Z3 @5 f2 d; |vara=vara \ 2
loop until vara=0
end function

'將二進制字符串填充為8位
7 w; z" N6 H+ T" `& ?function pad(str)
pad=right("00000000" & str,8)
end function
' r2 F1 w/ K! Y! S
'判斷是否是一個IP地址
6 F' A0 V4 q1 X, u3 g3 `6 Ufunction isIp(ipadd)
9 v! @" L# X# v( N) G. ^isIp=false
6 T% a. r/ s8 dset oReg=new RegExp
oReg.IgnoreCase=true
4 r( M) c& V+ @/ E$ MoReg.global=true
oReg.Pattern="(\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4})|(\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4}\/\d{1,2})"
if oReg.test(ipadd) then isIp=true
set oReg=nothing
end function

'其中UserIP是我們要檢測的IP
* Q. u7 n  ^# O# i5 k'NetIP是要檢測的網段或某個IP,用xxx.xxx.xxx.xxx/N來表示網段,其中N表示子網掩碼位數
'注,該程序是環球萬維原創程序,所以如果您要轉載,請保留出處信息,謝謝.
'程序設計:環球萬維,專業提供域名註冊，虛擬主機服務
+ K  L6 m. p7 e/ A- q1 Y'網址:http://www.netInter.cn
'以上信息與文章正文是不可分割的一部分,所以如果您要轉載本文章,您必須保留以上信息.
5 |& Y4 y) V) g6 F, t; O
Function check_ip(UserIp,NetIP)
4 `0 ^3 o, L4 W! O+ ]currentip=UserIp
collection_ips=split(iplist,",";) '將網絡按點分割成4段
! ~  j: V/ M+ vcheck_ip=false '初始函數值,false假設IP不在這網段
7 U6 S3 K! D% T9 K4 ^2 }) L7 `NetIP=trim(NetIP)
3 g! `7 Y+ {6 K3 [9 q( \/ w% V9 K( bslashPos=inStr(NetIP,"/";)
if slashPos=0 then '網段沒含有/符號,他只是一個IP,所以比較比個字符串是否相同就可以了
) f; f' [# k  f  K/ p7 jif NetIP=currentip then
check_ip=true 'check_ip=true表示IP相等
exit function
end if
$ T2 y: d4 r) J2 T; Lelse
netRang=mid(NetIP,slashPos+1) '得到/後邊的數字
if not isNumeric(netRang) then '/後邊不是數字,格式不正確
exit function
/ ?: I5 _! R- I7 a$ [2 O; M" `* T9 jend if
netRang=cint(netRang) '將字符轉為數字
if netRang>31 then
exit function '/後的數字不能超過32位
end if
ipsets=split(currentip,".";) '將用戶IP按點分成四段

3 j* m3 y9 ?" ]/ E# ~" jC_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
8 y/ p# ?3 {! A) Y6 n$ Y& M+ l'上邊這行是將用戶IP地址手工轉換為對應的一個32個字符長的二進制
ipsets=split(NetIP,".") '按上邊的過程將網段IP同樣轉為32個字符長的二進制
sPos=instr(ipsets(3),"/") '最後一點格式應該是 數字/數字
, D# g5 @5 Q" ^  Mif sPos=0 then
exit function
end if
8 U" y/ j- h0 W: b, p# \ipsets(3)=left(ipsets(3),sPos-1) '得到最後一段/前邊的數字
3 {- k5 r5 q; e" U# u( N3 X8 lS_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
! A. ?  X: Y# j2 q'將其轉換為32個字符長的二進制
  C7 M% T7 j, Eif left(C_IP_BIN,netRang) = left(S_IP_BIN,netRang) then '比較網段絡是否相同就可以判斷用戶IP否屬於某個網段了
check_ip=true
end if
end if
end function
. R$ v' o( m+ [2 c( O% S
應用舉例:
  ?0 u& m3 p3 W( S
要判斷61.139.1.1是否在61.139.0.0/16 (255.255.0.0)這個網段
只需要簡單的使用這個函數就可以了,如:

$ n- Y! F7 o% @; r7 s% Q: i2 Oif check_ip("61.139.1.1","61.139.0.0/16") then
9 f. L/ @! r* D6 eResponse.write "同一網段"
else
Response.write "不是同一網段"
4 z  X$ z% l% G7 ?; M# X, V1 fend if
2 X! u) K3 m" t) t
- H5 E8 ~- U5 a1 K4 |0 `[ 本帖最後由 鼕菇蒸雞 於 2006-8-10 20:13 編輯 ]