| 查看: 545 | 回复: 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 ] |
回复此楼» 猜你喜欢
264求调剂
已经有4人回复
-
化工专硕342，一志愿大连理工大学，求调剂
已经有6人回复
-
材料调剂
已经有7人回复
-
材料工程专硕283求调剂
已经有4人回复
-
求调剂
已经有7人回复
-
274求调剂
已经有7人回复
-
0856材料与化工，270求调剂
已经有8人回复
-
材料学硕318求调剂
已经有6人回复
-
欢迎采矿、地质、岩土、计算机、人工智能等专业的同学报考
已经有7人回复
-
材料学硕318求调剂
已经有14人回复
shich68
木虫 (著名写手)
- 应助: 0 (幼儿园)
- 贵宾: 1.56
- 金币: 3359.4
- 红花: 3
- 帖子: 2104
- 在线: 26.5小时
- 虫号: 240956
- 注册: 2006-04-09
- 性别: GG
- 专业: 药物学其他科学问题
4楼2006-04-30 12:48:11
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
10