asp字符串_截取函数

            本文章提供这款asp字符串截取函数原是是先用定义字符串判别函数判断字符串长度以及中英文，再把字符截取后定义超出部分内容的...显示方式

           function strvalue(str,lennum)
           dim p_num
           dim i
           if strlen(str)<=lennum then
           strvalue=str
           else
           p_num=0
           x=0
           do while not p_num > lennum-2
           x=x+1
           if asc(mid(str,x,1))<0 then
           p_num=int(p_num) + 2
           else
           p_num=int(p_num) + 1
           end if
           strvalue=left(trim(str),x)&"…" '截取后定义超出部分内容的显示方式
           loop
           end if
           end function

           '定义字符串判别函数

           function strlen(str)
           dim p_len
           p_len=0
           strlen=0
           if trim(str)<>"" then
           p_len=len(trim(str))
           for xx=1 to p_len
           if asc(mid(str,xx,1))<0 then
           strlen=int(strlen) + 2
           else
           strlen=int(strlen) + 1
           end if
           next