简介：把这段代码放在你网页的任何一个地方.当你要过滤某个从数据库掉来的内容时候就通过<%=ReplaceBadChar(rs("字段"))%>这样就可以过滤了

<%Function ReplaceBadChar(strChar)
If strChar = "" Or IsNull(strChar) Then
ReplaceBadChar = ""
Exit Function
End If
Dim strBadChar, arrBadChar, tempChar, i
strBadChar = "关键字1,关键字2,关键字3,关键字4"
arrBadChar = Split(strBadChar, ",")
tempChar = strChar
For i = 0 To UBound(arrBadChar)
tempChar = Replace(tempChar, arrBadChar(i), "")
Next
ReplaceBadChar = tempChar
End Function%>

把这段代码放在你网页的任何一个地方.
当你要过滤某个从数据库掉来的内容时候就
例如:

<%=ReplaceBadChar(rs("字段"))%>这样就可以过滤了.

这段你可以删除,添加某个过滤的关键字

例如:strBadChar = "关键字1,关键字2,关键字3,关键字4"