您的位置:首页 > 其它

限制IP访问页面--限制IP

2009-10-20 15:03 148 查看
'''''''''''''''''''''''''''''''' 限制IP访问页面'''''''''''''''''''''''''''''''
'``````作者:yonker QQ:451900800
Function IsBlockedIP()
Dim UserIP
Dim BlockedIParray(2)
'分配ip在数组中
BlockedIParray(0) = "60.0.201.209"
BlockedIParray(1) = "218.11.15.212" '
'获取访问者的IP
UserIP = Request.ServerVariables("REMOTE_ADDR")
' loop through the Blocked IPs
For i = 0 to UBound(BlockedIParray)
If UserIP = BlockedIParray(i) Then
Response.Redirect "index.asp"
'Response.Redirect "noaccess.asp"
End If
Next
End Function
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: