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

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