ASP计算中英文混合字符串的长度

有的时候需要计算出中英文混合字符串的长度，下边提供一个思路：

<%
Dim str,i,n
str="我是china"
For i = 1 to len(str)
If asc(mid(str,i,1))<0 then
n = n + 2
Else
n = n + 1
End if
Next
Response.write "& quot;" & str & "& quot;长度为" & n
%>

主要是利用中文的asc值小于0