非法關鍵詞過濾程序- 虛拟主機問題,虛拟主機域名注冊-常見問題,虛拟主機,網頁制作,域名注冊,主機,企業郵局,主頁空間,個人主頁,網絡實名,主機托管,網站建設,域名">
  虛拟主機域名注冊-常見問題虛拟主機問題 → 虛拟主機問題


非法關鍵詞過濾程序
作者:
<%
'将以下内容添加您的論壇或者留言闆的提交程序上進行過濾處理師商。


 '請根據您留言闆或者論壇提交頁面的輸入框字段進行設置
 GuestBookTitle靜河=trim(Request.Form("Title"))訊哥 'Title為(wèi)留言本輸入框的标識名稱,根據您的實際情況道腦進行修改。
 GuestBookConntent=trim(Request.月制Form("Content")) 'Content為(wè鐘影i)留言本輸入框留言内容字段,根據您的實際情況進行還資修改。

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

 '以下代碼為(wèi)檢測内容是否包含間光需要屏蔽的字符
 '請不(bù)要修改
 SplitBadWords=木們split(BadWord,"@")

 for each SplitBadWord in 腦男SplitBadWords '循環分離出每一個非睡舊法字符
  if instr(GuestBookTitl小可e,SplitBadWord)<>0 th信做en '判斷留言标題是否包含非法字符
  Response.Writ很雜e("對不(bù)起,您輸入的内容中包含非法字房作符,禁止提交!")
  Response.e放海nd()
  exit for
  end if

  if instr(Gues歌學tBookConntent,SplitBadWord)<>門離;0 then '判斷留言标題是否包含非法字符
  Response.Write("對不(bù)刀門起,您輸入的内容中包含非法字符,禁止提交!"匠數)
  Response.end()
  exit for
  end if
 next
%>



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

【 雙擊滾屏 】 【 推薦朋友 】 【 收藏 】 【 打印 】 【 關閉 】 【 字體:大(dà) 】 
上一篇:我的郵箱不(bù)能接收國外的郵件,國内的可以接收,請解決!
下一篇:用PHP在線發送郵件的例子(zǐ)!
  >> 相關文章