月光博客 » 网站建设 » Z-BLOG屏蔽敏感关键字功能的代码

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

  下面是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

顶一下 ▲()   踩一下 ▼()

相关文章

  1. 1
    不能用的   说道:
    不能用的
    支持(9反对(6回复
  1. 2
    voll   说道:
    为什么我一用就出错,打不开了
    支持(7反对(6回复
  1. 3
    东方毛   说道:
    需要的说~~~
    支持(5反对(6回复
  1. 4
    test   说道:
    妈的!气死了!
    支持(0反对(2回复
  1. 5
    KenWong   说道:
    很实用的功能,谢了~
    支持(5反对(8回复
  1. 6
    tojdnfd   说道:
    这是什么东西,怎么进不了了。
    支持(4反对(10回复

发表留言