asp 获取字符串长度函数

1. Function GetLength(strChinese1)
2.   Dim strWord, ascWord, lenTotal
3.   strChinese1 = Trim(strChinese1)
5.   If strChinese1 = "" or Vartype(strChinese1) = vbNull then
6.     GetLength = 0
7.     Exit Function
8.   End If
10.   lenTotal = 0 
11.   For GetLengthi=1 to Len(strChinese1)
12.     strWord = Mid(strChinese1, GetLengthi, 1)
13.     ascWord = Asc(strWord)
14.     If ascWord < 0 or ascWord > 127 then
15.       lenTotal = lenTotal + 2
16.     Elseif ascWord = 63 And strWord <> "?" then
17.       lenTotal = lenTotal + 2
18.     Elseif ascWord = 44 And strWord <> "," then
19.       lenTotal = lenTotal + 2
20.     Elseif ascWord = 33 And strWord <> "!" then
21.       lenTotal = lenTotal + 2
22.     Else
23.       lenTotal = lenTotal + 1
24.     End If
25.   Next
27.   GetLength = lenTotal
28. End Function

asp 获取字符串长度函数