主题：ASP获取字符串长度的自定义函数

' getStrLen ' 获取字符长度，一个中文字符长度算 2 ' 参数： ' str 需要获取长度的字符串 ' 返回值：整数 (字符串的长度) 以下为引用的内容： Function GetStrLen(str) If IsNull(str) Or str = "" Then getStrLen = 0 Else Dim i, n, k, chrA k = 0 n = Len(str) For i = 1 To n chrA = Mid(str, i, 1) If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then k = k + 1 Else k = k + 2 End If Next getStrLen = k End If End Function