虛拟主機域名注冊-常見問題虛拟主機問題 → 虛拟主機問題


非法關鍵詞過(guò)濾程序
作者:
<%
'將(jiāng)以下内容添加您的論壇或者留言闆的提交程序上進(jìn)行過(guò)濾處理。


 '請根據您留言闆或者論壇提交頁面(miàn)的輸入框字段進(jìn)行設置
 GuestBookTitle=trim(Request.Form("Title")) 'Title爲留言本輸入框的标識名稱,根據您的實際情況進(jìn)行修改。
 GuestBookConntent=trim(Request.Form("Content")) 'Content爲留言本輸入框留言内容字段,根據您的實際情況進(jìn)行修改。

 BadWord="出售迷幻藥@六合彩@高莺莺死亡@手機竊聽@成(chéng)人小電影@激情視頻@成(chéng)人電影@激情電影@出售槍支@槍支出售@大 紀 元@高莺莺之死@淫水@九評共産黨@淫電影@法*輪*功@真*善*忍@突 破 封 鎖@法 輪 功@九 評"

 '以下代碼爲檢測内容是否包含需要屏蔽的字符
 '請不要修改
 SplitBadWords=split(BadWord,"@")

 for each SplitBadWord in SplitBadWords '循環分離出每一個非法字符
  if instr(GuestBookTitle,SplitBadWord)<>0 then '判斷留言标題是否包含非法字符
  Response.Write("對(duì)不起(qǐ),您輸入的内容中包含非法字符,禁止提交!")
  Response.end()
  exit for
  end if

  if instr(GuestBookConntent,SplitBadWord)<>0 then '判斷留言标題是否包含非法字符
  Response.Write("對(duì)不起(qǐ),您輸入的内容中包含非法字符,禁止提交!")
  Response.end()
  exit for
  end if
 next
%>



來源:
閱讀:6612
日期:2005-12-16

【 雙擊滾屏 】 【 推薦朋友 】 【 收藏 】 【 打印 】 【 關閉 】 【 字體: 】 
上一篇:我的郵箱不能(néng)接收國(guó)外的郵件,國(guó)内的可以接收,請解決!
下一篇:用PHP在線發(fā)送郵件的例子!
  >> 相關文章