| 查看: 648 | 回复: 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 ] |
回复此楼» 猜你喜欢
为什么到现在没收到通知？
已经有3人回复
-
有没有仍没收到信息的
已经有5人回复
-
面上意见出来了
已经有10人回复
-
导师吐槽：我怎么摊上了这么个极品研究生！
已经有9人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有7人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有4人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有10人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有9人回复
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
投票:
10