newasp中main类(74)

        strContent = re.Replace(strContent, "<i>javascript</i>:")

        If Trim(ContentKeyword) <> "" Then
            sContentKeyword = Split(ContentKeyword, "@@@")
            For i = 0 To UBound(sContentKeyword) - 1
                strKeyword = Split(sContentKeyword(i), "$$$")
                re.Pattern = "(" & strKeyword(0) & ")"
                strContent = re.Replace(strContent, "<a target=""_blank"" href=""" & strKeyword(1) & """ class=""wordstyle"">$1</a>")
            Next
        End If

        re.Pattern = "(\[i\])(.[^\[]*)(\[\/i\])"
        strContent = re.Replace(strContent, "<i>$2</i>")
        re.Pattern = "(\[u\])(.[^\[]*)(\[\/u\])"
        strContent = re.Replace(strContent, "<u>$2</u>")
        re.Pattern = "(\[b\])(.[^\[]*)(\[\/b\])"
        strContent = re.Replace(strContent, "<b>$2</b>")
        re.Pattern = "(\[fly\])(.*)(\[\/fly\])"
        strContent = re.Replace(strContent, "<marquee>$2</marquee>")

        re.Pattern = "\[size=([1-9])\](.[^\[]*)\[\/size\]"
        strContent = re.Replace(strContent, "<font size=$1>$2</font>")
        re.Pattern = "(\[center\])(.[^\[]*)(\[\/center\])"
        strContent = re.Replace(strContent, "<center>$2</center>")

        're.Pattern = "<IMG.[^>]*SRC(=| )(.[^>]*)>"
        'strContent = re.Replace(strContent, "<IMG SRC=$2 border=""0"">")
        re.Pattern = "<img(.[^>]*)>"