主题：动网论坛中添加关键字不允许提交功能

修改savepost.asp中

在

  '不再把内容保存到session
      'Dvbbs.UserSession.documentElement.selectSingleNode("userinfo").attributes.setNamedItem(Dvbbs.UserSession.createNode(2,"postdata","")).text= Request.Form("body")
  
  '验证码校验

在其下面添加

Dim niutouchkbadwords
        niutouchkbadwords="台独|成人电影"
  niutouchkbadwords=Split(niutouchkbadwords,"|")
     Dim niutou_i
     For niutou_i=0 To UBound(niutouchkbadwords)
         If InStr(Dvbbs.Checkstr(unescape(Request.Form("body"))),niutouchkbadwords(niutou_i))>0 Then  Response.redirect "showerr.asp?ErrCodes=<li>系统检测您发表的话题中含有非法字符<b>"&niutouchkbadwords(niutou_i)&"</b>禁止提交。&action=OtherErr"
   If InStr(topic,niutouchkbadwords(niutou_i))>0 Then  Response.redirect "showerr.asp?ErrCodes=<li>系统检测您发表的话题中含有非法字符<b>"&niutouchkbadwords(niutou_i)&"</b>禁止提交。&action=OtherErr"
     Next

niutouchkbadwords="台独|成人电影"这里的改成您想要的过滤的关键词

哇,这么多好东西啊.早没发现.可惜了.!!~

呵呵,现在发现也来得及^_^

有个问题.这个过滤管理及版主不.就是不要限制管理员和版主..

您可以加上

if Not (Dvbbs.master or Dvbbs.boardmaster or Dvbbs.superboardmaster) then

   

Dim niutouchkbadwords
        niutouchkbadwords="台独|成人电影"
  niutouchkbadwords=Split(niutouchkbadwords,"|")
     Dim niutou_i
     For niutou_i=0 To UBound(niutouchkbadwords)
         If InStr(Dvbbs.Checkstr(unescape(Request.Form("body"))),niutouchkbadwords(niutou_i))>0 Then  Response.redirect "showerr.asp?ErrCodes=<li>系统检测您发表的话题中含有非法字符<b>"&niutouchkbadwords(niutou_i)&"</b>禁止提交。&action=OtherErr"
   If InStr(topic,niutouchkbadwords(niutou_i))>0 Then  Response.redirect "showerr.asp?ErrCodes=<li>系统检测您发表的话题中含有非法字符<b>"&niutouchkbadwords(niutou_i)&"</b>禁止提交。&action=OtherErr"
     Next

End If