青青子衿, 悠悠我心, 但为君故, 沉吟至今
« 把个人Blog作成一个成功品牌的10个策略步骤肯德基套餐剔除了致癌薯条 »

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



  除非注明,月光博客文章均为原创,转载请以链接形式标明本文地址

  本文地址:http://www.williamlong.info/archives/305.html
  • 文章排行:
  • 2.voll
  • 为什么我一用就出错,打不开了
  • 2006/4/19 11:34:47   支持(7)反对(6) 回复
  • 6.tojdnfd
  • 这是什么东西,怎么进不了了。
  • 2010/9/2 19:51:08   支持(4)反对(10) 回复

发表评论:

 请勿发送垃圾信息、广告、推广信息或链接,这样的信息将会被直接删除。

订阅博客

  • 订阅我的博客:订阅我的博客
  • 关注新浪微博:关注新浪微博
  • 关注腾讯微博:关注腾讯微博
  • 关注认证空间:关注QQ空间
  • 通过电子邮件订阅
  • 通过QQ邮件订阅

站内搜索

热文排行


月度排行

本站采用创作共用版权协议, 要求署名、非商业用途和相同方式共享. 转载本站内容必须也遵循“署名-非商业用途-相同方式共享”的创作共用协议.
This site is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License.