不良信息词语过滤

留言本里很多发不良信息和垃圾信息的家伙，

为了防止这些无聊的人作祟，在信息发布的页面加上如下的处理。

<%

'不良信息词语过滤
function filterbadword(tmp2)
filterbadword=false
dim badwords   '不良信息词语过滤
badwords="不良信息词语|不良信息词语|不良信息词语"

tmp=badwords
tmpstr=split(tmp,"|")
i=0
for each item in tmpstr
  'response.write(tmpstr(i)&"<br>")
  if instr(tmp2,tmpstr(i)) then
     filterbadword=true
     exit function
  end if
i=i+1
next
end function

dtitle=HtmlEncode(trim(request.form("dtitle")))  '标题
dtext=HtmlEncode2(request.form("dtext"))  '内容

If filterbadword(dtext) or filterbadword(dtitle) Then
  response.write("<script>alert('请检查信息内容');</script>")
  conn.close:set conn=nothing
  response.redirect "add.asp"
  response.end
end if
%>