隨筆-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 百年 閱讀(460) 評論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
唐河县|
蓬溪县|
广安市|
海城市|
大化|
民权县|
万载县|
大新县|
禄丰县|
依安县|
绥中县|
怀远县|
遂昌县|
法库县|
介休市|
策勒县|
左云县|
双辽市|
疏附县|
岑溪市|
桐乡市|
莫力|
报价|
阿克陶县|
永春县|
彰武县|
龙陵县|
金溪县|
交口县|
黄浦区|
永善县|
昔阳县|
宜都市|
白河县|
阿城市|
宿州市|
大田县|
明溪县|
临朐县|
南城县|
神农架林区|