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

五月网站,xxxxx免费,国产成人aa在线视频,日本欧美视频在线,琵琶妞在线国内精品视频,色偷偷91综合久久噜噜app

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


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

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


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

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

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

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

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



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

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