完美字符串截取

< %
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 )
% >