本文章提供這款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