非法關(guān)鍵詞過濾程序- 虛擬主機(jī)問題,虛擬主機(jī)域名注冊(cè)-常見問題,虛擬主機(jī),網(wǎng)頁(yè)制作,域名注冊(cè),主機(jī),企業(yè)郵局,主頁(yè)空間,個(gè)人主頁(yè),網(wǎng)絡(luò)實(shí)名,主機(jī)托管,網(wǎng)站建設(shè),域名">

男朋友边摸下面边做很爽|日本h片在线观看|在线一区视频|免费黄色视频观看网址大全|天堂网最新版www中文

  虛擬主機(jī)域名注冊(cè)-常見問題虛擬主機(jī)問題 → 虛擬主機(jī)問題


非法關(guān)鍵詞過濾程序
作者:

<%
'將以下內(nèi)容添加您的論壇或者留言板的提交程序上進(jìn)行過濾處理。 


 '請(qǐng)根據(jù)您留言板或者論壇提交頁(yè)面的輸入框字段進(jìn)行設(shè)置
 GuestBookTitle=trim(Request.Form("Title")) 'Title為留言本輸入框的標(biāo)識(shí)名稱,根據(jù)您的實(shí)際情況進(jìn)行修改。
 GuestBookConntent=trim(Request.Form("Content")) 'Content為留言本輸入框留言內(nèi)容字段,根據(jù)您的實(shí)際情況進(jìn)行修改。

 BadWord="此處為需要過濾的關(guān)鍵詞"

 '以下代碼為檢測(cè)內(nèi)容是否包含需要屏蔽的字符
 '請(qǐng)不要修改
 SplitBadWords=split(BadWord,"@")

 for each SplitBadWord in SplitBadWords '循環(huán)分離出每一個(gè)非法字符
  if instr(GuestBookTitle,SplitBadWord)<>0 then '判斷留言標(biāo)題是否包含非法字符
  Response.Write("對(duì)不起,您輸入的內(nèi)容中包含非法字符,禁止提交!")
  Response.end()
  exit for
  end if

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



來(lái)源:
閱讀:13346
日期:2005-12-16

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