来自 热门技术 2018-09-21 08:08 的文章

ASP截取字符串通用方法

'截取字符串 strvalue(要截取的字符串,字数) 
<%
 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 page_len 
     page_len=0 
     strlen=0 

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

本文源自: AG88平台