Asp初学者常见问题之二十统计字符数量(一个汉字为二个字符)

说明：一个英文字符或是标点为一个字符，一个汉字为二个字符

<script language="vbscript">

Function LeftStr(Str)

TextCount = Len(Str) '得到整

For I = 1 To TextCount

MidTemp = Mid(Str,I,1)'得到当前第I个字符

AscTemp = Asc(MidTemp)'得到当前第I个字符的ANSI代码

If AscTemp > 0 Then '判断英文

TextLen = TextLen + 1'累计当前长度(英文)

Else'判断中文

TextLen = TextLen + 2'累计当前长度(中文)

End If

Next

LeftStr = TextLen '输出

End Function

msgbox """abcdefg""的长度为："&leftstr("abcdefg")

msgbox """加上中文试试!""的长度为：" &leftstr("加上中文试试!")

</script>