' 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