| 查看: 563 | 回复: 4 | |||
| 当前主题已经存档。 | |||
shich68木虫 (著名写手)
|
[交流]
限制某段IP地址
|
||
|
function IP2Num(sip) dim str1,str2,str3,str4 dim num IP2Num=0 if isnumeric(left(sip,2)) then str1=left(sip,instr(sip,"."  -1) sip=mid(sip,instr(sip,"." +1) str2=left(sip,instr(sip,"." -1) sip=mid(sip,instr(sip,"." +1) str3=left(sip,instr(sip,"." -1) str4=mid(sip,instr(sip,"." +1) num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1 IP2Num = num end if end function function Num2IP(nip) iip1 = int(nip/256/256/256) iip2 = int((nip-iip1*256*256*256)/256/256) iip3 = int((nip-iip1*256*256*256-iip2*256*256)/256) iip4 = int((nip-iip1*256*256*256-iip2*256*256-iip3*256) mod 256) iip0 = iip1 &"."& iip2 & "." &iip3 &"."& iip4 Num2IP = iip0 end function userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR" ) if userIPnum > IP2Num("192.168.0.0" and userIPnum < IP2Num("192.168.0.255" then response.write (" response.end end if [ Last edited by 幻影无痕 on 2006-10-30 at 08:09 ] |
回复此楼» 猜你喜欢
300求调剂，材料科学英一数二
已经有5人回复
-
招08考数学
已经有15人回复
-
0854电子信息求调剂
已经有4人回复
-
08工学调剂
已经有14人回复
-
材料292调剂
已经有7人回复
-
085602 289分求调剂
已经有4人回复
-
289求调剂
已经有3人回复
-
材料专硕331求调剂
已经有4人回复
-
0703化学调剂，求导师收
已经有5人回复
-
申博26年
已经有4人回复
1
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
yuanjie66(金币-25):因有马甲行为扣除25金币。希望以后能够遵守论坛规章制度，谢谢理解和支持。
yuanjie66(金币-25):因有马甲行为扣除25金币。希望以后能够遵守论坛规章制度，谢谢理解和支持。
|
不错！ 谢谢分享！ |
2楼2006-04-21 07:42:52
shich68
木虫 (著名写手)
- 应助: 0 (幼儿园)
- 贵宾: 1.56
- 金币: 3359.4
- 红花: 3
- 帖子: 2104
- 在线: 26.5小时
- 虫号: 240956
- 注册: 2006-04-09
- 性别: GG
- 专业: 药物学其他科学问题
3楼2006-04-26 09:53:08
shich68
木虫 (著名写手)
- 应助: 0 (幼儿园)
- 贵宾: 1.56
- 金币: 3359.4
- 红花: 3
- 帖子: 2104
- 在线: 26.5小时
- 虫号: 240956
- 注册: 2006-04-09
- 性别: GG
- 专业: 药物学其他科学问题
4楼2006-04-30 12:48:11
5楼2006-04-30 20:26:29
6