ASP获取字符串长度的自定义函数
来源：互联网 发布：网络电视直播台 编辑：程序博客网 时间：2024/05/04 22:27
ASP获取字符串长度的自定义函数'----------------------------------------------------------------'' getStrLen' 获取字符长度，一个中文字符长度算 2' 参数：' str 需要获取长度的字符串' 返回值：整数 (字符串的长度)'----------------------------------------------------------------'Function GetStrLen(str)If IsNull(str) Or str = "" ThengetStrLen = 0ElseDim i, n, k, chrAk = 0n = Len(str)For i = 1 To nchrA = Mid(str, i, 1)If Asc(chrA) >= 0 And Asc(chrA) <= 255 Thenk = k + 1Elsek = k + 2End IfNextgetStrLen = kEnd IfEnd Function
