隨筆-3  評論-26  文章-41  trackbacks-0

           此ASP函數(shù)實現(xiàn)截取自定義長度的字符串,并可定義超出部分顯示樣式,支持中英文字符串自動判別

          <%
          '定義字符串判別函數(shù)
          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
          '定義截取函數(shù)
          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)&"" //截取后定義超出部分內(nèi)容的顯示方式
          loop
          end if
          end function
          %
          >

          <=strvalue(rsnews.("title",20
          '20 為截取長度 %>
          posted on 2007-11-22 00:04 百年 閱讀(460) 評論(0)  編輯  收藏 所屬分類: Asp Article
          主站蜘蛛池模板: 靖远县| 甘洛县| 南部县| 星座| 邯郸县| 霍城县| 罗定市| 岢岚县| 偃师市| 卢湾区| 木兰县| 封开县| 乐清市| 建昌县| 涞源县| 舞钢市| 德清县| 邯郸市| 芷江| 大竹县| 巩义市| 枞阳县| 伊通| 平江县| 民和| 马龙县| 乐昌市| 正定县| 景东| 新巴尔虎右旗| 雷波县| 桃园市| 建阳市| 邵阳县| 陕西省| 中超| 布尔津县| 包头市| 南通市| 牡丹江市| 双桥区|