2个回答
展开全部
<% 'txt是字符内容,length是要截取多少个字符 Function GetStringLength(txt,length) dim i i=1 y=0 txt=trim(txt) for i=1 to len(txt) j=mid(txt,i,1) if asc(j)>=0 and asc(j)<=127 then '汉字外的其他符号,如:!@#,数字,大小写英文字母 y=y+0.5 else '汉字 y=y+1 end if if -int(-y) >= length then '截取长度 txt = left(txt,i) exit for end if next response.write txt End Function %> 调用方法: <%call GetStringLength(txt,length)%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询