asp中一个中文字算两个字符
精选 转载截取字符的长度会因为中英文混合而出现很大误差。asp中的中文空间能用,英文默认就是两个字符
<%Function LeftT(str,n)
If len(str)<=n/2 Then
LeftT=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftT = TStr+".."
End If
End Function
str="中文中文中文中文中文中文中文中文中文"
Response.Write(left(str,12)&"<br/>")
Response.Write(LeftT(str,12)&"<br/>")
%>
上一篇:CSS常见Bug及其修正方法
下一篇:asp去所有的html代码
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章