<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|61.177.95.109|58.51.84.18|222.76.212.239|202.109.72.154|218.241.156.68|59.54.54.243|115.47.134.10|122.225.103.8|121.8.104.73|60.28.246.75|221.231.138.33|61.233.88.6|59.54.54.243|203.171.237.231|222.214.218.67|221.130.200.28|202.152.178.226|203.171.237.231|60.190.118.19|61.233.88.6|219.153.20.138|115.47.134.10|218.95.37.18|221.130.200.28|218.94.25.98|219.153.65.204|"
'获取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 "你的IP被禁止"
response.end
End If
%>
站内文章搜索