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

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 检测含有中文字符串的实际长度 (http://www.webasp.net/article/25/24826.htm)
-- 作者：未知
-- 发布日期： 2005-06-08
"*************测字符串长度**************
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
webasp.net