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

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

'請(qǐng)根據(jù)您留言板或者論壇提交頁面的輸入框字段進(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="出售迷幻藥@六合彩@高鶯鶯死亡@手機(jī)竊聽@成人小電影@激情視頻@成人電影@激情電影@出售槍支@槍支出售@大紀(jì) 元@高鶯鶯之死@淫水@九評(píng)共產(chǎn)黨@淫電影@法*輪*功@真*善*忍@突破封鎖@法輪功@九評(píng)"

'以下代碼為檢測(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
%>