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

有時候我們需要判斷某一個IP地址是否屬於一個網段,以決定該用戶能否訪問系統.
5 x2 p6 g! r3 {: H比如用戶登錄的IP是218.6.7.7,而我們的程序必須判斷他是否屬於218.6.0.0/16這個網段(其中/16是新的子網掩碼的表示方式,相當於255.255.0.0).
要實現這樣的功能,現在流行的算法是將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開頭的,這將會造成數據溢出而出錯。
其實比較IP是否屬於某一網段,最好的方式就是將IP與網段分別轉為32位二進制,再比較他們的網絡部分是否相同就可以了.asp本身不具備位運行功能,所以要實現這個只有我們手工實現,具體如下:
'將十進制轉為二進制字符串
1 d1 Y" Y: h+ ~2 Y# ?function dec2bin(octNumber)
vara=octNumber
9 r( Y; \! b: O$ ^6 q% Pdo
4 c( \6 H: K8 _7 j9 R; n$ Q: rdec2bin=cstr(vara mod 2) & dec2bin
vara=vara \ 2
loop until vara=0
7 c/ m7 T) O8 ?2 t- gend function
+ k7 `( N# D% B! |% {, l$ ?
$ ~2 U: k( C/ I9 R'將二進制字符串填充為8位
function pad(str)
pad=right("00000000" & str,8)
end function
% E+ O  q- r1 L+ Q; X! T0 }/ m6 i
* ~  o  U; S2 E8 i3 _0 K8 a'判斷是否是一個IP地址
0 Y! D/ o7 w' F4 e6 J! Sfunction isIp(ipadd)
/ M8 o/ ^# {6 s, lisIp=false
set oReg=new RegExp
( ^! L9 w8 M" j$ i9 W6 A- j8 WoReg.IgnoreCase=true
# E& W/ v4 I- g8 _+ _, q+ 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})"
/ ^* s$ U$ ]5 P- `% tif oReg.test(ipadd) then isIp=true
set oReg=nothing
end function

'其中UserIP是我們要檢測的IP
'NetIP是要檢測的網段或某個IP,用xxx.xxx.xxx.xxx/N來表示網段,其中N表示子網掩碼位數
& M9 p( I: Q% r3 v5 j'注,該程序是環球萬維原創程序,所以如果您要轉載,請保留出處信息,謝謝.
6 E/ f7 L+ B' `) {'程序設計:環球萬維,專業提供域名註冊，虛擬主機服務
'網址:http://www.netInter.cn
'以上信息與文章正文是不可分割的一部分,所以如果您要轉載本文章,您必須保留以上信息.
9 S" Z0 H0 G1 g5 d4 w# E6 }
Function check_ip(UserIp,NetIP)
( M2 K7 C$ R' A! b. ucurrentip=UserIp
collection_ips=split(iplist,",";) '將網絡按點分割成4段
; ?$ q9 E# E1 u* D' ]check_ip=false '初始函數值,false假設IP不在這網段
NetIP=trim(NetIP)
" z' f; }; ^" xslashPos=inStr(NetIP,"/";)
; @+ d0 Z4 D& F+ [! ~! V) `$ t/ ?if slashPos=0 then '網段沒含有/符號,他只是一個IP,所以比較比個字符串是否相同就可以了
if NetIP=currentip then
# i1 @1 C/ A1 v# K6 y! o! dcheck_ip=true 'check_ip=true表示IP相等
4 _0 B- T' R' E) t' l) ~; a5 [exit function
end if
else
9 v& }$ k+ j) ~9 `: m6 ynetRang=mid(NetIP,slashPos+1) '得到/後邊的數字
( s* G4 K3 ^' O3 e  T4 B" B- Xif not isNumeric(netRang) then '/後邊不是數字,格式不正確
exit function
end if
netRang=cint(netRang) '將字符轉為數字
if netRang>31 then
exit function '/後的數字不能超過32位
end if
ipsets=split(currentip,".";) '將用戶IP按點分成四段

C_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
'上邊這行是將用戶IP地址手工轉換為對應的一個32個字符長的二進制
$ m1 d' l  X  m- B+ o( bipsets=split(NetIP,".") '按上邊的過程將網段IP同樣轉為32個字符長的二進制
. B5 p4 h. V/ D$ |% }% w$ n5 }8 x( [sPos=instr(ipsets(3),"/") '最後一點格式應該是 數字/數字
if sPos=0 then
# B6 j& h. a6 \3 E8 \exit function
3 y5 X5 J' o; i# oend if
ipsets(3)=left(ipsets(3),sPos-1) '得到最後一段/前邊的數字
" E/ W$ L9 D8 u. j) k$ W5 s! VS_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
" C0 Y& j' J$ D5 a'將其轉換為32個字符長的二進制
% ^4 i1 D7 \0 `- A( T$ Y7 Jif left(C_IP_BIN,netRang) = left(S_IP_BIN,netRang) then '比較網段絡是否相同就可以判斷用戶IP否屬於某個網段了
check_ip=true
6 _0 l' h  V* r6 G/ Eend if
3 O$ S1 v- s+ z, Mend if
end function

* ]( B& T7 c: w( y6 p應用舉例:
5 A. X3 @" N/ Z& E+ j& A' a7 J; K
" Y" O4 C- E; H6 _1 K+ V6 k. I& x要判斷61.139.1.1是否在61.139.0.0/16 (255.255.0.0)這個網段
只需要簡單的使用這個函數就可以了,如:
) X; `* a. M' Y; M& Q9 o
0 F* E, C# d$ t/ d7 Gif check_ip("61.139.1.1","61.139.0.0/16") then
1 X2 V- \1 B! d- e7 h  R+ J1 U+ bResponse.write "同一網段"
else
Response.write "不是同一網段"
end if

5 V; {* w2 Q4 n; U7 V[ 本帖最後由 鼕菇蒸雞 於 2006-8-10 20:13 編輯 ]