%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|61.160.9.52|127.0.0.1|58.66.176.209|211.140.140.18|125.65.110.152|"
'获取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
%>
|
|
|
|
|
|
发表您的评论(评论内容只代表个人观点,与本站立场无关!) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
改吧版权与免责申明: |
|
1)凡本网署名文字、图片和音视频稿件,版权均属改吧所有。任何媒体、网站或个人未经本网协议授权不得转载、链接、转贴或以其他方式复制发表。已经本网协议授权的媒体、网站,在下载使用时必须注明“稿件来源:改吧” 。
2)本网注明“采编自”的文章均为转载稿,本网转载出于传递更多信息之目的。如本网转载稿涉及版权等问题,请作者在两周内速来电或来函与本网联系。 |
|
|
|
|
|
|