返回字符串的长度的问题？？

[cxf2650]

len函数
假如：response.write len(123456) 返回值是6
但是response.write len("我们") 返回值是2
汉字占两个字符，我想返回4，怎么实现
就是说怎么样才可以准确的返回字符串的长度，如果不是汉字，有多少是多少，如果有汉字需要是汉字个数的2倍，怎么能准确的返回字符串里又有汉字又有英文的长度？？

[cxf2650]

急，救命呀，怎么实现？请教各位了

[feillex]

len()返回字符数
lenb()返回字节数

[rockywu]

len()返回字符数
lenb()返回字节数

[Forthleo]

'**************************************************
'函数名：strLength
'作 用：求字符串长度。汉字算两个字符，英文算一个字符。
'参 数：str ----要求长度的字符串
'返回值：字符串长度
'**************************************************
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("中国")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
if err.number<>0 then err.clear
end function

[什么都不能]

function getLength(args)
dim l
l=0
for i=1 to len(args)
if asc(mid(args,i,1))>=0 and asc(mid(args,i,1))<=128 then
l=l+1
else
l=l+2
end if
next
getLength=l
end function

[xulxqqqq]

给你提供个思路 用asc判断吧