ASP:检测含有中文字符串的实际长度

2009-12-13 13:55| 发布者: admin| 查看: 90| 评论: 0|原作者: 江月

○"*************测字符串长度......

"*************测字符串长度**************
Function CheckStringLength(txt)
　txt=trim(txt)
　x = len(txt)
　y = 0
　for ii = 1 to x
　　if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then 　　"如果是汉字
　　　y = y + 2
　　else
　　　y = y + 1
　　end if
　next
　CheckStringLength = y
End Function

"************* 截取字符串 **************
Function InterceptString(txt,length)
　txt=trim(txt)
　x = len(txt)
　y = 0
　if x >= 1 then
　　for ii = 1 to x
　　　if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then 　　"如果是汉字
　　　　y = y + 2
　　　else
　　　　y = y + 1
　　　end if
　　　if y >= length then
　　　　txt = left(trim(txt),ii) "字符串限长
　　　　exit for
　　　end if
　　next
　　InterceptString = txt
　else
　　InterceptString = ""
　end if
End Function

收藏分享邀请

		自动登录	找回密码
密码			注册

ASP:检测含有中文字符串的实际长度

最新评论

相关分类