当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP封IP的方法，防止固定IP垃圾留言

ASP
加密處理使密碼更安全
使用InstallShield制作ASP安装程序(1)
使用InstallShield制作ASP安装程序(2)
使用InstallShield制作ASP安装程序(3)
使用InstallShield制作ASP安装程序(4)
使用InstallShield制作ASP安装程序(5)
使用InstallShield制作ASP安装程序(6)
一个通用数据库显示程序
数据库远程控制的ASP实现
词语搭配游戏的制作（ASP）一
词语搭配游戏的制作（ASP）二
词语搭配游戏的制作（ASP）三
在ASP中使用Oracle数据库
在Web界面下如何生成像资源管理器一样的树形目录（版本2.0）
使用ASP建设私人搜索引擎
用EasyMailObject组件处理Exchange邮件源代码(1)
用EasyMailObject组件处理Exchange邮件源代码(2)
用EasyMailObject组件处理Exchange邮件源代码(3)
用EasyMailObject组件处理Exchange邮件源代码(4)
用EasyMailObject组件处理Exchange邮件源代码(5)

No. « 197 198 199 200 »

技术文章搜索

关键字

用ASP封IP的方法，防止固定IP垃圾留言

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 74 ::
收藏到网摘: n/a

以下为引用的内容：

<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|195.225.177.34|195.225.177.137|72.232.250.10|"
'获取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
'response.Write("你的IP:"&IP&"可以访问本站")
%>

注：记得将此代码嵌入到最终执行页（不一定为留言发表页面）的头部，大部分垃圾都是直接POST数据到该执行页的。建议不定期修改最终执行页的文件名及与之链接的留言发表页面的 form 标签内的 action。