海外邮件中继，海外退信中继，美国高速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 发表评论： 

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!