此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=0do 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
%>
使用方法:
1.首先請將以上藍框內**轉存為short.asp
2.在需要擷取的頁面
以下為**部分:
<%'引入公共函式模組 %>
<% =strvalue(rsnews.("title",20)
'20 為擷取長度 %>
asp擷取字串函式 asp怎麼擷取字串
asp擷取字串函式 asp怎麼擷取字串 擷取字串 strvalue 標題,字數 function strvalue str,lennum dim p num dim i if strlen str lennum then strvalue str else p num 0 x 0do while n...
ASP 只擷取字串的數字
function regexptestsp str,pat dim r,match,matches set r new regexp r.pattern pat r.ignorecase false r.global true set matches r.execute str for each m...
使用函式擷取字串
首先說說使用php預設語法來操作這些 1.1 首先使用strpos找出指定字元的位置，3是要把指定字元包含進去，uft是3個字元乙個中文字，然後使用substr進行字串擷取。header content type text html charset utf 8 str badcat讀書網 這些都是我...