以文本方式查看主题 -  智睿软件_技术交流论坛  (http://zhirui.net/bbs/index.asp) --  Web程序开发  (http://zhirui.net/bbs/list.asp?boardid=22) ----  ASP获取字符串长度的自定义函数  (http://zhirui.net/bbs/dispbbs.asp?boardid=22&id=3576)

--  作者：zhirui --  发布时间：2015-04-27 11:48:32 --  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