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
           end if
           end function

           ''截取字符串,1.包括前後字符串，2.不包括前後字符串
           function strcut(strcontent,startstr,endstr,cuttype)
           dim s1,s2
           on error resume next
           select case cuttype
           case 1
             s1 = instr(strcontent,startstr)
             s2 = instr(s1,strcontent,endstr)+len(endstr)
           case 2
             s1 = instr(strcontent,startstr)+len(startstr)
             s2 = instr(s1,strcontent,endstr)
           end select
           if err then
             strcute = "<p align='center' ><font size=-1>截取字符串出錯.</font></p>"
             err.clear
             exit function
           else
             strcut = mid(strcontent,s1,s2-s1)
           end if
           end function