ASP 完美截取字符串长度 多余显示省略号

ASP 完美截取字符串长度 多余显示省略号

<%
Function Getstringlength(StrOld,Length)
Dim I,Strlen,Str,J, strA
Strlen=0
Str=Trim(StrOld)

For I=1 To Len(Str)
       J=Mid(Str,I,1)
       strA=Abs(Asc(J))
       '汉字外的其他符号,如:!@#,数字,大小写英文字母
       If strA>=0 And strA<=127 Then  
              Strlen=Strlen+0.5
      Else                                    '汉字
              Strlen=Strlen+1
       End If

       If Int(Strlen)>=Length Then         '截取长度
              Str=Left(Str,I)
              Exit For
       End If
Next

Getstringlength=Str
End Function
%>


引用通告: 查看所有引用 | 我要引用此文章
Tags: ASP截取字符串的长度
收藏到网摘:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.