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

ASP
asp中利用数组实现数据库记录的批量录入方法
vbs(asp)的栈类
加密處理使密碼更安全[CFS編碼加密]
在asp中通过vbs类实现rsa加密与解密
披著羊皮的大野狼 - Session
简体中文编码对应器
len(),lift(),right()不能正常识别中文的解决方法
实现WEB中的@虚拟域名系统(原理篇)
巧用ASP生成PDF文件
二级域名原理以及程序,申请即可开通
无组件上传图片到数据库中,最完整解决方案
在ASP中使用SQL语句之1:SELECT 语句
在ASP中使用SQL语句之2:用WHERE子句设置查询条件
在ASP中使用SQL语句之3:LIKE、NOT LIKE和 BETWEEN
在ASP中使用SQL语句之4:联合语句
在ASP中使用SQL语句之5:开始执行
在ASP中使用SQL语句之6:存储查询
在ASP中使用SQL语句之7:ORDER BY
在ASP中使用SQL语句之8:随机数
在ASP中使用SQL语句之9:表单操作

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


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