隨筆-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 百年 閱讀(457) 評論(0)  編輯  收藏 所屬分類: Asp Article
          主站蜘蛛池模板: 铜陵市| 塘沽区| 喀喇沁旗| 松江区| 中西区| 高邮市| 迭部县| 嘉义县| 高阳县| 米泉市| 仁布县| 综艺| 西充县| 唐河县| 镇赉县| 通州区| 富宁县| 荥阳市| 高雄市| 龙门县| 宜兰县| 洪湖市| 赫章县| 侯马市| 内乡县| 城固县| 泗洪县| 汕尾市| 黎平县| 建水县| 托里县| 乌鲁木齐县| 镇赉县| 舒城县| 齐齐哈尔市| 浦东新区| 阿拉善左旗| 平潭县| 锡林郭勒盟| 大宁县| 长顺县|