有時候我們需要判斷某一個IP位址是否屬於一個網段,以決定該用戶能否存取系統.
例如使用者登入的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和小於365789等於3659。但明顯有一個問題,計算量非常多,值非常大,如果IP地址是61開頭的還好,如果是218開頭的,這將會造成數據溢出而出錯。
其實比較IP是否屬於某一網段,最好的方式就是將IP與網段分別轉為32位二進制,再比較他們的網絡部分是否相同就可以了.asp本身不具備位運行功能,所以要實現這只有我們手工實現,具體如下:
'將十進制轉為二進位字串
function dec2bin(octNumber)
vara=octNumber
do
dec2bin=cstr(vara mod 2) & dec2bin
vara=vara 2
loop until vara=0
end function
'將二進位字串填入8位
function pad(str)
pad=right("00000000" & str,8)
end function
'判斷是否為IP位址
function isIp(ipadd)
isIp=false
set oReg=new RegExp
oReg.IgnoreCase=true
oReg.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
'NetIP是要偵測的網段或某個IP,用xxx.xxx.xxx.xxx/N來表示網段,其中N表示子網路遮罩位數
'註,該程式是環球萬維原始程式,所以如果您要轉載,請保留出處資訊,謝謝.
'程式設計:環球萬維,專業提供網域註冊，虛擬主機服務
'網址:http://www.netInter.cn
'以上資訊與文章正文是不可分割的一部分,所以如果您要轉載本文章,您必須保留以上資訊.
Function check_ip(UserIp,NetIP)
currentip=UserIp
collection_ips=split(iplist,",") '將網路依點分割成4段
check_ip=false '初始函數值,false假設IP不在這網段
NetIP=trim(NetIP)
slashPos=inStr(NetIP,"/")
if slashPos=0 then '網段沒含有/符號,他只是一個IP,所以比較比個字串是否相同就可以了
if NetIP=currentip then
check_ip=true 'check_ip=true表示IP相等
exit function
end if
else
netRang=mid(NetIP,slashPos+1) '得到/後邊的數字
if 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個字元長的二進位
ipsets=split(NetIP,".") '按上邊的程序將網段IP同樣轉為32個字元長的二進位
sPos=instr(ipsets(3),"/") '最後一點格式應該是數字/數字
if sPos=0 then
exit function
end if
ipsets(3)=left(ipsets(3),sPos-1) '得到最後一段/前邊的數字
S_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
'將其轉換為32個字元長的二進位
if left(C_IP_BIN,netRang) = left(S_IP_BIN,netRang) then '比較網段絡是否相同就可以判斷用戶IP否屬於某個網段了
check_ip=true
end if
end if
end function
應用舉例:
要判斷61.139.1.1是否在61.139.0.0/16 (255.255.0.0)這個網段只需要簡單的使用這個函數就可以了,如:
if check_ip("61.139.1.1","61.13: if check_ip("61.139.1.1","61.13: if check_ip("61.139.1.1","61.13: if check_ip("61.139.1.1","61.13: if check_ip("61.139.1.1","61.13: if check_ip("61.139.1.1","61.13: if check_ip("61.139.1.1","61.13: if check_ip("61.139.1.1","61.13: if 新. 0.0/16") then
Response.write "同一網段"
else
Response.write "不是同一網段"
end if