设为首页
加入收藏
发送稿件
拦截留言广告的“菜”办法

巧用“防注函数”拦截留言广告

罗良富http://www.luos.org

  最近的一个网络“新动向”是,一些别有用心的人,在你的留言本上狂打广告,甚至采用软件自动张贴,屡删屡贴,让你难以应付。
  怎么办?菜鸟在这里教你一个“菜”办法。
  不久前,菜鸟不是有个“防注函数”吗,把那个函数照下面改一下:

 dim sqlstr
 Function sqlcheck(Str)
  sqlstr=str
  IF instr(sqlstr,"网络赚钱")>0 _
   or instr(sqlstr,"网上兼职")>0 _
   or instr(sqlstr,"专业提供")>0 _
   or instr(sqlstr,"六合彩")>0 _
   or instr(sqlstr,"美女图库")>0 _
   or instr(sqlstr,"免费电影")>0 _
   or instr(sqlstr,"网站推广")>0 _
   or instr(sqlstr,"出售各种")>0 _
   or instr(sqlstr,"代理")>0 _
   or instr(sqlstr,"成人用品")>0 _
   or instr(sqlstr,"提供专业")>0 _
   or instr(sqlstr,"三合彩")>0 _
   or instr(sqlstr,"为您免费")>0 _
   or instr(sqlstr,"大量批发")>0 _
   or instr(sqlstr,"激情电影")>0 _
   or instr(sqlstr,"专业从事")>0 _
   or instr(sqlstr,"一夜情")>0 THEN
   Response.Write("<script>alert(""喂,朋友,你的留言包含非法内容!"");window.location.replace('default.asp');</script>")
   response.end
  End IF
End Function

  函数没有穷尽要拦截的内容,根据实际加减吧。
  我们就用这个函数来医治乱贴广告者。
  一,前端拦截。就是凡有列举内容的留言,根本不让他提交。
  在进行留言检查时,在留言内容不为空之后,加一句:
  sqlcheck(Request("content"))就行啦,什么也不需要改!
  这是比较温和的做法,不让他贴就算了。但到底他是谁,他要贴什么东西,你也是不知道的。
  二,后端拦截。就是尽让他贴吧,在留言显示时再打整。
  这就需要把函数改一下:如果读出的内容rs("content")中,包含函数列举的内容,就将他替换为一个提示句子。这样他的留言就不会显示,而成了你的句子啦。自己动一下手吧,如何改,如何用我就不说了。
  后端拦截的好处是,既不让它扩散,又把留言者的情况和留言内容都原封不动地保存下来了,必要时还可据此举报呢。
  前后拦截我都实际成功了的,有兴趣可以试试。


oooooooooo家园提示:人自为谱,家自为说,正误自辨,取舍自酌。引用注明作者和出处。 来源:罗氏家园
阅读:25586
日期:2005/9/10

查看评论 】 【 收藏 】 【 打印 】 【 关闭 】 【字体: 】 
上一篇:“科技拔尖人才”罗泽军
下一篇:宜宾“白毛女”罗昌秀
  >> 相关文章
 
发表评论


        站长提示:这里不是互动留言处!
点  评: 字数0
用户名:  密码:

  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
家园地址:http://www.luos.org  粤ICP备13039246号-2
家园创建:罗良富   技术支持:AssumeYessure   法律顾问:罗劲松