<%
Dim IP,IPString,VisitIP
IPString="|203.208.60.*|192.166.219.136|205.164.10.*|62.201.23.49|79.113.210.17|68.180.230.35|217.96.129.250|86.122.218.82|91.150.121.162|124.82.3.91|175.143.163.48|175.143.163.48|185.42.35.74|99.231.66.56|174.100.125.5|112.17.8.225|60.188.12.235|111.202.102.73|38.100.21.65|39.100.21.65|66.249.75.*|107.178.92.*|207.46.13.*|157.55.39.*|62.210.101.*|85.93.91.*|86.126.151.*|62.210.251.*|127.0.0.1|123.125.67.*|"
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
%>
