"*************测字符串长度**************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 = yEnd 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 ifEnd Function