BBS过滤不干净,非法字符2006-6-7-3

'名称:BBS过滤
'调用:guolv(str)
'参数:str为要过滤的内容;
'作用:删除一些为了推广自己公司在论坛里发布的大量的网址信息,过滤原则是去掉网址及前10个字符,
'         把一些不健康的字符替换成*


Function guolv(Words)
 Words=Replace(Words,"http://web.cbdcn.com","")
 OutStr=""
 Dim strPattern
 strPattern1 = "(.gov|.cn|.sh|.name|.ws|.ac|.io|.com|.tw|.idv|.com.cn|.org|.edu)"
 strPattern2 = "(/w{0,10}(.gov|.cn|.sh|.name|.ws|.ac|.io|.com|.tw|.idv|.com.cn|.org|.edu))/b"
 Dim oRegEx,oMatch
 Set oRegEx = New RegExp
 oRegEx.IgnoreCase = True
 oRegEx.Global = True
 oRegEx.Pattern = strPattern1
 Words= oRegEx.Replace(Words, "$1"&VbCrLf)
 oRegEx.Pattern = strPattern2
 guolv = oRegEx.Replace(Words, OutStr)
 Set oRegEx = Nothing
 
 Const InvaildWords="f-----u-----c-----k-----|b-----i-----t-----c-----h-----|他-----妈-----的-----|法-----轮-----|f-----a-----l-----u-----n-----d-----a-----f-----a-----|f-----a-----l-----u-----n-----|s-----n-----k-----.n-----i-----8-----.n-----e-----t-----|操-----你-----妈-----|三-----级-----片-----|F-----a-----轮-----功-----|f-----a-----轮-----功-----|f-----a-----l-----u-----n-----|日-----你-----|我-----日-----|s-----u-----c-----k-----|s-----h-----i-----t-----|法-----轮-----|我-----操-----|李-----宏-----治-----|阴-----茎-----|傻-----B-----|妈-----的-----|操-----你-----|干-----你-----|日-----您-----|屁-----眼-----|国-----民-----党-----|台-----独-----|卖-----淫-----|流-----氓-----|9-----9-----9-----f-----u-----c-----k-----|傻-----逼-----|阴-----道-----|阳-----痿-----|法-----輪-----" '需要过滤得字符以“|”隔开
'因为CSDN过滤这些字符,所以,本人加了一些东西,要是用的话可以替换掉"---"为空就可以正常使用了
 InvaildWord=Split(InvaildWords,"|")
 For each abc in InvaildWord
 guolv=replace(guolv,abc,"*")
 next
End Function

阅读更多
文章标签: bbs function each
个人分类: asp
上一篇链接数据库最不容易出错的字符串2006-6-7-2
下一篇遍历目录以及目录下文件的函数- 从网上找的不过都用不了,自己用Emeditor修正了一下,2006-6-8-1
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭