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

ASP
ASP页面随机添加字符实现防复制的代码
ASP中应用事务处理技巧
asp下比较全面的获取IP地址的代码
ASP实现缓存类无错版
asp下实现批量插入数据的方法
asp下用ADODB.Stream代替FSO读取文本文件
asp之基于adodb.stream的文件操作类
自己写的文件操作的function和Sub vb.net dll
kesion科讯V4.0管理员Key工具
asp 获取access系统表,查询等操作代码
asp之字符串函数示例
asp之日期和时间函数示例
ASP 关于动态数据显示页面得锚点
Asp无组件上传进度条解决方案
ASP控制每页打印行数
用ASP实现分级权限控制
ASP在服务器自动解压RAR文件
用ASP实现远程将文件批量改名的代码
在Asp程序中取得表单所有内容的代码
使用ASP实现网站的“目录树”管理的代码

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 260 ::
收藏到网摘: 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。