asp过滤脏话及非法信息函数

’------------脏话及非法信息字符定义,多个请用|分隔,过滤字符设定规则为 要过滤的字符=过滤后的字符(风云源码 品质保证http://www.fyasp.com)
badwords= "******=胡主席|******=***|****=***|催情药=***"

’------------脏话过滤处理函数(风云源码 品质保证http://www.fyasp.com)
Function ChkBadWords(Str)
If IsNull(Str) Then Exit Function
Dim i
sBadWords=Split(BadWords,"|")
for i = 0 to ubound(sbadwords)
if not (sbadwords(i)="" or sbadwords(i)=" ") then
badwords_1 = split(sbadwords(i),"=")
If ubound(badwords_1)=1 Then
Str = Replace(Str,badwords_1(0),badwords_1(1))
End If
End If
next
ChkBadWords = Str
End Function

’使用方法ChkBadWords(str)--- (风云源码 品质保证http://www.fyasp.com)

’实例(风云源码 品质保证http://www.fyasp.com)
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from pl"
rs.open sql,conn,3,3
rs.addnew
rs("content")=ChkBadWords(content)
rs.update
rs.close
’(风云源码 品质保证http://www.fyasp.com)