<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|58.17.36.98|58.17.36.8|58.17.36.6|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|59.60.157.130|127.0|"
'获取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
%>
