Z-BLOG屏蔽敏感关键字功能的代码

  • A+
所属分类:[网站建设]

  下面是ZBLOG的屏蔽评论中敏感关键字的程序代码,主要用于替换文章评论中的敏感或非法的关键字。

  只需要修改一个文件c_system_event.asp,将其中的objComment.Content=Request.Form("inpArticle")修改为objComment.Content=WordFilter(Request.Form("inpArticle"))

  然后在c_system_event.asp文件尾部加入代码:

Function WordFilter(strInput) 
    Dim i 
    Dim strOutput 
    Dim strFilter 
    strFilter = Split("关键字1,关键字2,关键字3", ",") 
    strOutput = strInput 
    For i = 0 To UBound(strFilter) 
        strOutput = Replace(strOutput, strFilter(i), String(Len(strFilter(i)), "×")) 
    Next 
    WordFilter = strOutput 
End Function

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: