newasp中main类(28)

        On Error Resume Next

        Dim HtmlStr, l, re, strContent

        HtmlStr = str
        HtmlStr = Replace(HtmlStr, " ", " ")
        HtmlStr = Replace(HtmlStr, """, Chr(34))
        HtmlStr = Replace(HtmlStr, "'", Chr(39))
        HtmlStr = Replace(HtmlStr, "{", Chr(123))
        HtmlStr = Replace(HtmlStr, "}", Chr(125))
        HtmlStr = Replace(HtmlStr, "$", Chr(36))
        HtmlStr = Replace(HtmlStr, vbCrLf, "")
        HtmlStr = Replace(HtmlStr, "====", "")
        HtmlStr = Replace(HtmlStr, "----", "")
        HtmlStr = Replace(HtmlStr, "////", "")
        HtmlStr = Replace(HtmlStr, "\\\\", "")
        HtmlStr = Replace(HtmlStr, "####", "")
        HtmlStr = Replace(HtmlStr, "@@@@", "")
        HtmlStr = Replace(HtmlStr, "****", "")
        HtmlStr = Replace(HtmlStr, "~~~~", "")
        Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
        re.Pattern = "\[br\]"
        HtmlStr = re.Replace(HtmlStr, "")
        re.Pattern = "\[align=right\](.*)\[\/align\]"
        HtmlStr = re.Replace(HtmlStr, "")
        re.Pattern = "<(.[^>]*)>"
        HtmlStr = re.Replace(HtmlStr, "")
        Set re = Nothing
        HtmlStr = Replace(HtmlStr, ">", ">")
        HtmlStr = Replace(HtmlStr, "<", "<")