<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|218.95.37.34|59.54.54.163|58.17.36.8|58.17.36.98|58.17.36.6|61.153.241.202|218.6.8.73|127.0.0.1|218.83.152.94|58.51.95.230|61.152.239.134|59.53.88.92|61.129.57.204|67.205.2.55|58.211.16.147|222.73.205.51|58.51.95.230|59.60.157.130|127.1|"
'获取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 "网页显示错误"
response.end
End If
%>
添加到百度搜藏
<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|218.95.37.34|59.54.54.163|58.17.36.8|58.17.36.98|58.17.36.6|61.153.241.202|218.6.8.73|127.0.0.1|218.83.152.94|58.51.95.230|61.152.239.134|59.53.88.92|61.129.57.204|67.205.2.55|58.211.16.147|222.73.205.51|58.51.95.230|59.60.157.130|127.1|"
'获取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 "网页显示错误"
response.end
End If
%>