完美字符串截取

<%
Function CountLength(Str)
    Dim output,ThisChar,i
    output = 0
    For i = 1 To Len(Str)
        ThisChar = Mid(Str,i,1)
        If Asc(ThisChar) < 0 Then
            output = output + 2
        Else
            output = output + 1
        End If
    Next
    CountLength = output
End Function

Function MaxLengthStr(ByVal Str, ByVal MaxLength)
    Dim Output,i
    If IsNull(Str) Then Str = ""
    Output = ""
    If LenB(Str) <= MaxLength Then
        Output = Str
    Else
        For i = 1 To Len(Str)
            Output = Output & Mid(Str,i,1)
            If CountLength(Output)+3 = MaxLength Then
                Output = Output & "..."
                Exit For
            ElseIf CountLength(Output)+3 > MaxLength Then
                Output = Left(Output,Len(Output)-1) & "..."
                Exit For
            End If
        Next
    End If
    MaxLengthStr = Output
End Function

Response.Write MaxLengthStr("Osdne Wor21421阿瑟大ld One Dream,北京", 40)
response.write "<br>"
Response.Write MaxLengthStr("北京2008,Onsf234eWorld One Dream,北京2008", 41)



Function Strlength(Str)
    Temp_Str=Len(Str)
    For I=1 To Temp_Str
        Test_Str=(Mid(Str,I,1))
        If Asc(Test_Str)>0 Then
            Strlength=Strlength+1
        Else
            Strlength=Strlength+2
        End If
    Next
End Function

Function Strleft(Str,L)
    Temp_Str=Len(Str)
    For I=1 To Temp_Str
        Test_Str=(Mid(Str,I,1))
        Strleft=Strleft&Test_Str
        If Asc(Test_Str)>0 Then
            lens=lens+1
        Else
            lens=lens+2
        End If
        If lens>=L Then Exit For
    Next
End Function

Response.Write Strleft("北008",3)
%>