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

          
	

          

          
	
					


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

          <%
          
          '定義字符串判別函數
          
          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
          
          '定義截取函數
          
          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
          
%          >
          

          

          <% =strvalue(rsnews.("title",20) 
          
          '20 為截取長度 %>
          

	
          posted on 2007-11-22 00:04 百年 閱讀(457) 評論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
全南县|
皋兰县|
榆树市|
景东|
长沙县|
阜新市|
金阳县|
曲松县|
西安市|
张北县|
黔东|
手游|
汶上县|
涡阳县|
灵丘县|
凤山市|
九龙坡区|
正安县|
蒙城县|
天柱县|
揭阳市|
高淳县|
阳朔县|
宾川县|
阳新县|
鄂尔多斯市|
宿州市|
永善县|
长治市|
姜堰市|
蒙城县|
安徽省|
惠东县|
弋阳县|
长沙市|
西华县|
德昌县|
奉化市|
绥滨县|
左权县|
宁夏|