newasp中main类(26)

            Else
                t = t + 1
            End If
            If t >= strLen Then
                ReadTopic = Left(str, i) & "..."
                Exit For
            Else
                ReadTopic = str & "..."
            End If
        Next
    End Function
    '================================================
    '函数名：strLength
    '作  用：计字符串长度
    '参  数：str   ----字符串
    '================================================
    Public Function strLength(ByVal str)
        On Error Resume Next
        If IsNull(str) Or str = "" Then
            strLength = 0
            Exit Function
        End If
        Dim WINNT_CHINESE
        WINNT_CHINESE = (Len("例子") = 2)
        If WINNT_CHINESE Then
            Dim l, t
            Dim i, c
            l = Len(str)
            t = l
            For i = 1 To l
                c = Asc(Mid(str, i, 1))
                If c < 0 Then c = c + 65536