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