asp输出字符串长度的函数

a550759049 2009-08-11 09:19:26

dim str
str = "中文是2个字符"
response.write leng(str) ' 要求返回13

function leng(s)
' 这里怎么写?lenb这个为什么当参数为1个字节的字符时显示的是2呢?
end function

...全文
41 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
凡夫与俗子 2009-08-11
用a = AscW(c)
回复
chenjianyong94 2009-08-11
UTF-8下要 a = AscW(c)
回复
hookee 2009-08-11
UTF-8下要 a = AscW(c)
回复
a550759049 2009-08-11

dim str
str = "中文是2个字符"
response.write leng(str)
Function leng(s)
Dim c, n, i, a
n = 0
For i= 1 To Len(s)
c = Mid(s,i,1)
a = Asc(c)
If a>=0 And a<=255 Then
n = n + 1
Else
n = n + 2
End If
Next
leng = n
end Function

为什么在根本gb2312下显示13,而utf8下显示7呢?
如何在utf8下也能显示13?
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告