% text=rs("content") '將數據庫字段值賦到某變量上 i=10 '定義固定大小 if len(text)>i then '如果文本長度大于給定的值 text=left(text,i) '則提取前段的i位的字符串 response.write (text"...") else response.write (text) end if %> |
5，為了方便，做成函數
% function conleft(content,i) if len(content)>i then content=left(content,i) response.write (content"...") else response.write (content) end if end function %> |
以上為函數，下面就可以直接調用。
%call conleft(rs("content"),10)%> |
OK，相信以后遇到這些問題應該是NO PROBLEM
為了解決中英文截取的問題，建議大家使用如下函數：
Function gotTopic(str,strlen) if str="" then gotTopic="" exit function end if dim l,t,c, i str=replace(replace(replace(replace(str,"nbsp;"," "),"quot;",chr(34)),"gt;",">"),"lt;","") l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then gotTopic=left(str,i) "…" exit for else gotTopic=str end if next gotTopic=replace(replace(replace(replace(gotTopic," ","nbsp;"),chr(34),"quot;"),">","gt;"),"","lt;") End Function |
