作者：stone2zz 時間： 2004-03-11 文檔類型：原創(chuàng) 來自：藍色理想
看了一些IP限制的函數(shù)，覺得太復(fù)雜。所以，試著寫了一個，比較簡單。請網(wǎng)友參考指教。謝謝！～
作者聯(lián)系郵件 stone2zz#21cn.com
代碼拷貝框<% '獲取訪問者的地址 ip=Request.ServerVariables("REMOTE_ADDR") '允許的IP地址段為10.0.0.0～10.68.63.255 allowip1="10.0.0.0" allowip2="10.68.10.71" response.write checkip(ip,allowip1,allowip2) function checkip(ip,allowip1,allowip2) dim check(4) checkip=false ipstr=split(ip,".") allow1=split(allowip1,".") allow2=split(allowip2,".") if cint(allow1(0))>cint(allow2(0)) then '判斷IP地址段是否合法 response.write "IP地址段出錯！" exit function end if for i=0 to ubound(ipstr) if cint(allow1(i))<cint(allow2(i)) then if cint(allow1(i))=cint(ipstr(i)) then check(i)=true checkip=true exit for else if cint(ipstr(i))<cint(allow2(i)) then check(i)=true checkip=true exit for else if cint(ipstr(i))>cint(allow2(i)) then check(i)=false checkip=false exit for else check(i)=true checkip=true end if end if end if else if cint(allow1(i))>cint(ipstr(i)) or cint(allow1(i))<cint(ipstr(i)) then check(i)=false checkip=false if i<>ubound(ipstr) then exit for end if else check(i)=true end if end if next if (check(0)=true and check(1)=true and check(2)=true and check(3)=false) and (cint(allow2(2))>cint(ipstr(2))) then checkip=true end if end function %>[Ctrl+A 全部選擇 然后拷貝]
出處：藍色理想 責(zé)任編輯：藍色
◎進入論壇網(wǎng)絡(luò)編程版塊參加討論
藍色理想版權(quán)申明：除部分特別聲明不要轉(zhuǎn)載，或者授權(quán)我站獨家播發(fā)的文章外，大家可以自由轉(zhuǎn)載我站點的原創(chuàng)文章，但原作者和來自我站的鏈接必須保留（非我站原創(chuàng)的，按照原來自一節(jié)，自行鏈接）。文章版權(quán)歸我站和作者共有。
轉(zhuǎn)載要求：轉(zhuǎn)載之圖片、文件，鏈接請不要盜鏈到本站，且不準打上各自站點的水印，亦不能抹去我站點水印。
特別注意：本站所提供的攝影照片，插畫，設(shè)計作品，如需使用，請與原作者聯(lián)系，版權(quán)歸原作者所有，文章若有侵犯作者版權(quán)，請與我們聯(lián)系，我們將立即刪除修改。
<rt id="fbyoy"><fieldset id="fbyoy"></fieldset></rt>
