Asp截取字符长度函数

提供你一个超级好用的函数，使用方法 
response.write FixString(需要截取的字符串,字符串字节长度汉字算2个,如果被截取添加省略点的个数) 

Function FixString(ByVal strWord, ByVal intByteLength, ByVal intPadDotAmount) 
        If strWord > "" Then 
                If Length(strWord) <= intByteLength Then 
                        FixString = strWord 
                Else 
                        Dim i 
                        Dim intLength 
                        Dim strChar 
                        Dim bytChar 
                        intLength = 0 
                        For i = 1 to Len(strWord) 
                                strChar = Mid(strWord, i, 1) 
                                bytChar = Asc(Mid(strWord, i, 1)) 
                                If bytChar < 0 or bytChar > 255 Then 
                                        intLength = intLength + 2 
                                Else 
                                        intLength = intLength + 1 
                                End If 
                                If intLength > intByteLength Then Exit For 
                                FixString = FixString & strChar 
                        Next 
                        FixString = FixString & String(intPadDotAmount, ".") 
                End If 
        Else 
                FixString = "" 
        End If 
End Function