随着web2.0模式的兴起，目前国内网络监管的力度正在逐步加大，也许你也有同样的遭遇：经常接到网警支队的信息调整通知；如果您在这段时间正巧不方便进行站点调整就麻烦了，其实网站方面在信息的检控上也可以通过技术手段增设垃圾信息过滤功能的。

以下是本人做的一个ASP版垃圾信息判断函数，主要功能根据您设置的关键字不只能过滤反动、色情信息，而且也可以过滤广告机器人发布的垃圾广告、回复者不想透露的个人联系信息等。

'--- 函数名：ReplaceContactInfo        ---
'--- 参数：tStr（要过滤的字符串） tRepStr（若经判断不合法要显示的内容） tTrue（是否应用过滤或屏蔽功能，可动态判断这里只需要值为true或false的结果）    ---
'--- 功能：过滤电话、邮件、网址、色情、反动        ---
Function ReplaceContactInfo(tStr,tRepStr,tTrue)
    fctRepStr=tRepStr
    dim fctReplaceContactInfo,dimTempContactInfo
    if tTrue and not CheckNull(tStr) then
        if CheckNull(tRepStr) then
            tRepStr="<span style='color:#999999' title='联系信息涉及隐私故屏蔽'>**此信息被隐藏，请负责人员登录后查看**</span>"
        end if

        set regEmpty = New RegExp
        regEmpty.Pattern="这里填写网络禁用关键字多个用|分隔，关键字下载见本文结尾处"
        regEmpty.IgnoreCase = false   ' 设置是否区分字符大小写。
        regEmpty.Global = True   ' 设置全局可用性。
        dimIsInStrTStrPat=regEmpty.test(tStr)

        if dimIsInStrTStrPat then
            fctReplaceContactInfo="<span style='color:#999999;' title='净化网络'>系统检测到此信息含有反动或色情等违规内容，故而屏蔽；请珍惜每一个交流机会。</span>"
        else
            on error resume next
            if CheckNull(tStr) then
                SdkStr=""
                exit function
            end if
            dim sList,dList,i,s,RegEx
            dimTempContactInfo=tStr
            sList="１|２|３|４|５|６|７|８|９|０|－|＿|～|／|。|：|＆|＠|Ａ|Ｂ|Ｃ|Ｄ|Ｅ|Ｆ|Ｇ|Ｈ|Ｉ|Ｊ|Ｋ|Ｌ|Ｍ|Ｎ|Ｏ|Ｐ|Ｑ|Ｒ|Ｓ|Ｔ|Ｕ|Ｖ|Ｗ|Ｘ|Ｙ|Ｚ"
            dList="1|2|3|4|5|6|7|8|9|0|-|_|~|/|.|:|&|@|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z"
            s=ubound(split(sList,"|"))
            '过滤大写字符为小写字符
            for i=0 to s
                tStr=replace(tStr,split(sList,"|")(i),split(dList,"|")(i))
            next
            Set RegEx=New RegExp
                RegEx.Pattern="(\(\d{2,4}\)|(\d{3,4}-?))\d{7,8}|\d{6,15}|0?13\d{1}\d{8}|((\w)|[-]|[.])+@(((\w)|[-])+[.])+[a-z]{2,4}|http:\/\/([\w-]+\.)+[\w-]+(\/[\w- .\/?%&=]*)?|([\w-]+\.)+(?:[a-z]{2,3})+(\/[\w- .\/?%&=]*)?"'处理电话号码和电子邮件、网址
                RegEx.IgnoreCase=True
                RegEx.Global=True
                fctReplaceContactInfo=RegEx.Replace(tStr,tRepStr)
            Set RegEx=Nothing

            if (ubound(split(fctReplaceContactInfo,tRepStr))>1 and (ubound(split(fctReplaceContactInfo,tRepStr))>6 or inStr(fctReplaceContactInfo,"市场")>0 or (inStr(fctReplaceContactInfo,"公司")>0 and ubound(split(fctReplaceContactInfo,tRepStr))>3 and inStr(fctReplaceContactInfo,"贵公司")<0) or inStr(fctReplaceContactInfo,"全体员工")>0 or inStr(fctReplaceContactInfo,"href=")>0 or inStr(fctReplaceContactInfo,"url=")>0) or inStr(fctReplaceContactInfo,"href=")>5 or inStr(fctReplaceContactInfo,"url=")>3) then
                fctReplaceContactInfo="<span style='color:#999999;' title='拒绝广告，净化网络'>系统检测到此信息为疑似广告内容，故而屏蔽；请珍惜交流机会，不要在此发布广告，谢谢合作。</span>"
            elseif not CheckNull(fctRepStr) then
                fctReplaceContactInfo=dimTempContactInfo
            end if
        end if
    else
        fctReplaceContactInfo=tStr
    end if
    ReplaceContactInfo=fctReplaceContactInfo
End Function


''检查一个字符串是否为空
Function checkNull(strCheck)
    if isnull(strCheck) or trim(strCheck) = "" then
        checkNull = true
    else
        checkNull = false
    end if
End Function

网检关键字下载：http://www.pyzy.net/PyzyUpFile/08.04.16KeyWord.rar
注意本包为08年4月份官方发布的，如果您手上有最新的欢迎评论中发布下载地址共享。