首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2021 - 9 48
   1234
567891011
12131415161718
19202122232425
2627282930


站点统计

最新评论

日志搜索

 标题   内容


网站防抓取代码 最近好忙.....
未知 广告留言过滤代码   [ 日期:2006-09-25 17:16:54 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com

【字体设置:
Dim GetFlag,ErrorSql,RequestKey,ForI
ErrorSql = "com|net|org|cn|彩铃|电影|主机|虚拟主机" 

'此处写上你要过滤的关键字,记住,如果是英文请使用小写,大写的英文将无法被验证!
'其中com就是你要过滤的域名,用" | "隔开,彩铃的垃圾最多了,也写上吧,其他的大家自己加

ErrorSql = split(ErrorSql,"|")
If Request.ServerVariables("REQUEST_METHOD")="post" Then
GetFlag=True
Else
GetFlag=False
End If
If GetFlag Then
  For Each RequestKey In Request.QueryString
   For ForI=0 To Ubound(ErrorSql)
    If Instr(txtToURL(Request.QueryString(RequestKey)),ErrorSql(ForI))<>0 Then
    Response.Write ("<div align=center >对不起,你提交的留言涉嫌广告行为,被系统自动屏蔽</div>")
    Response.End
    End If
   Next
  Next 
Else
   For Each RequestKey In Request.Form
   For ForI=0 To Ubound(ErrorSql)
    If Instr(txtToURL(Request.Form(RequestKey)),ErrorSql(ForI))<>0 Then
    Response.Write("<div align=center >对不起,你提交的留言涉嫌广告行为,被系统自动屏蔽</div>")
    Response.End
    End If
   Next
  Next
End If
'广告过滤代码到这里结束

将以上的代码放到数据库连接代码
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from 表明 where (id is null)" 
rs.open sql,conn,1,3
rs.addnew

引用这个评论 兄弟 于 2006-09-25 17:19:35 发表评论: 
这个代码还可以用,可以达到过滤的目的,但是不是很科学,如果用户要告诉你一个网址,那么他的留言就无法发出,当然,如果ASP代码高手,也可以自己增加一些代码进行分类过滤.

   发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:  我要注册 验证码: 
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布?
最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com