newasp中main类(21)

        Dim i, Bwords, Bwordr
        Bwords = Split(Badwords, "|")
        Bwordr = Split(Badwordr, "|")
        For i = 0 To UBound(Bwords)
            If i > UBound(Bwordr) Then
                str = Replace(str, Bwords(i), "*")
            Else
                str = Replace(str, Bwords(i), Bwordr(i))
            End If
        Next
        ChkBadWords = str
    End Function
    '=============================================================
    '函数作用：过滤HTML代码，带脏话过滤
    '=============================================================
    Public Function HTMLEncode(ByVal fString)
        If Not IsNull(fString) Then
            fString = Replace(fString, ">", ">")
            fString = Replace(fString, "<", "<")
            fString = Replace(fString, Chr(32), " ")
            fString = Replace(fString, Chr(9), " ")
            fString = Replace(fString, Chr(34), """)
            fString = Replace(fString, Chr(39), "'")
            fString = Replace(fString, Chr(13), "")
            fString = Replace(fString, " ", " ")
            fString = Replace(fString, Chr(10), "<br /> ")
            fString = ChkBadWords(fString)
            HTMLEncode = fString