| 查看: 575 | 回复: 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求调剂
已经有8人回复
-
求调剂推荐
已经有7人回复
-
289 分105500药学专硕求调剂(找B区学校)
已经有4人回复
-
0854求调剂
已经有13人回复
-
初试324 中药学 一志愿天中医 求调剂
已经有3人回复
-
药学求调剂
已经有14人回复
-
327求调剂
已经有27人回复
-
急需调剂
已经有5人回复
-
271求调剂
已经有33人回复
-
273求调剂
已经有8人回复
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
20