#52002/11/21 19:05:37
写个范例,你自己参考一下。
"简单的"限制IP 地址
限制IP范围在192.1.1.*到192.1.60.*里
dim ip
dim uip
'使用Request.ServerVariables("REMOTE_ADDR")得到IP
ip=Request.ServerVariables("REMOTE_ADDR")
uip=cstr(ip)
'下面获取ip的第三个字段,区别IP的关键字段
'uip为后三个字段
uip=right(uip,len(uip)-instr(1,uip,"."))
'uip为后两个字段
uip=right(uip,len(uip)-instr(1,uip,"."))
'uip为第三个字段
uip=left(uip,instr(1,uip,"."),-1)
if left(ip,5)<> "192.1" or uip <"1" or uip > "60" then
msgbox("对不起,你不在访问允许范围内")
response.redirect("非法IP地址通知页面")
else
'用户IP为范围内IP
end if
我在网上看到的一篇文章,其中msgbox用法不对。我也不知道怎么改。看看对你有没有帮助