newasp中main类(25)

        re.Pattern = "(<)"
        strContent = re.Replace(strContent, "<")
        Set re = Nothing
        strContent = Replace(strContent, ">", ">")
        strContent = Replace(strContent, "<", "<")
        strContent = Replace(strContent, "'", "'")
        strContent = Replace(strContent, Chr(34), """)
        strContent = Replace(strContent, "%", "％")
        strContent = Replace(strContent, vbNewLine, "")
        CheckTopic = Trim(strContent)
    End Function
    '================================================
    '函数名：ReadTopic
    '作  用：显示字符串长度
    '参  数：str   ----原字符串
    '        strlen  ----显示字符长度
    '================================================
    Public Function ReadTopic(ByVal str, ByVal strLen)
        Dim l, t, c, i
        On Error Resume Next
        str = Replace(str, " ", " ")
        If Len(str) < strLen Then
            str = str & String(strLen - Len(str), ".")
        Else
            str = str
        End If
        l = Len(str)
        t = 0
        For i = 1 To l
            c = Abs(Asc(Mid(str, i, 1)))
            If c > 255 Then
                t = t + 2