| 查看: 574 | 回复: 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 ] |
回复此楼» 猜你喜欢
化工学硕294分，求导师收留
已经有29人回复
-
求调剂
已经有10人回复
-
考研求调剂
已经有13人回复
-
求调剂
已经有3人回复
-
人工智能320调剂08工类还有机会吗
已经有17人回复
-
考研英一数一338分
已经有10人回复
-
求助调剂，跨调
已经有15人回复
-
085600材料与化工329分求调剂
已经有20人回复
-
085600材料与化工349分求调剂
已经有15人回复
-
求调剂
已经有13人回复
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
