虚拟主机域名注册-常见问题虚拟主机问题 → 虚拟主机问题


非法关键词过滤程序
作者:
<%
'将以下内容添加您的论坛或者留言板的提交程序上进行过滤处理(lǐ)。


 '请根据您留言板或者论坛提交页面的输入框字段进行设置
 GuestBookTitle=trim(Request.Form("Title")) 'Title為(wèi)留言本输入框的标识名称,根据您的实际情况进行修改。
 GuestBookConntent=trim(Request.Form("Content")) 'Content為(wèi)留言本输入框留言内容字段,根据您的实际情况进行修改。

 BadWord="出售迷幻药@六合彩@高莺莺死亡@手机窃听@成人小(xiǎo)電(diàn)影@激情视频@成人電(diàn)影@激情電(diàn)影@出售枪支@枪支出售@大 纪 元@高莺莺之死@淫水@九评共产党@淫電(diàn)影@法*轮*功@真*善*忍@突 破 封 锁@法 轮 功@九 评"

 '以下代码為(wèi)检测内容是否包含需要屏蔽的字符
 '请不要修改
 SplitBadWords=split(BadWord,"@")

 for each SplitBadWord in SplitBadWords '循环分(fēn)离出每一个非法字符
  if instr(GuestBookTitle,SplitBadWord)<>0 then '判断留言标题是否包含非法字符
  Response.Write("对不起,您输入的内容中包含非法字符,禁止提交!")
  Response.end()
  exit for
  end if

  if instr(GuestBookConntent,SplitBadWord)<>0 then '判断留言标题是否包含非法字符
  Response.Write("对不起,您输入的内容中包含非法字符,禁止提交!")
  Response.end()
  exit for
  end if
 next
%>



来源:
阅读:7823
日期:2005-12-16

【 双击滚屏 】 【 推荐朋友 】 【 收藏 】 【 打印 】 【 关闭 】 【 字體(tǐ): 小(xiǎo) 】 
上一篇:我的邮箱不能(néng)接收國(guó)外的邮件,國(guó)内的可(kě)以接收,请解决!
下一篇:用(yòng)PHP在線(xiàn)发送邮件的例子!
  >> 相关文(wén)章
 

期待聆听您的声音

15811826684

一直坚持网站建设,致力于做長(cháng)遠(yuǎn)的网站建设服務(wù)商(shāng)
网站建设 网站设计 网站开发