禁止某IP地址访问自己网站的ASP代码

时间：2006-03-09 00:00:00 来源：TIANZI.ORG 作者：天子阅读：1894次

总有一些讨厌的IP地址来自己网站，那么就用下面的代码来禁止它访问自己的网站吧

把下面代码另存为ip.asp

<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|218.58.194.90|218.58.194.218|218.58.194.222|"
'获取IP地址
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then
IP = Request.ServerVariables("REMOTE_ADDR")
End If
VisitIP="|"&IP&"|"
If instr(1,IPString,VisitIP)>0 Then
Response.write "<Script Language=JavaScript>alert('本站禁止您的访问!');</Script>"
response.end
End If
%>