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

评论: 1 | 引用: 0 | 查看次数: 7948
发表评论
登录后再发表评论!