一、禁止指定IP防问网站,并执行相应操作:
<%
DimIP,IPString,VisitIP
'设置IP地址,前后用“|”隔开
IPString="|192.168.1.5|192.168.1.8|"
'获取IP地址
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IfIP=""Then
IP=Request.ServerVariables("REMOTE_ADDR")
EndIf
VisitIP="|"&IP&"|"
Ifinstr(1,IPString,VisitIP)>0T