<%
aa="<br></br>1234567890<font color=red>sdddddd</font>"

response.write cutstr(aa,len(aa))

Function cutStr(str,strlen)
 '去掉所有HTML標記
 Dim re
 Set re=new RegExp
 re.IgnoreCase =True
 re.Global=True
 re.Pattern="<(.[^>]*)>"
 str=re.Replace(str,"") 
 set re=Nothing
 Dim l,t,c,i
 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
   cutStr=left(str,i)&"..."
   Exit For
  Else
   cutStr=str
  End If
 Next
 cutStr=Replace(cutStr,chr(10),"")
 cutStr=Replace(cutStr,chr(13),"")
End Function
%>

文章來自: Tank部落格
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相關日誌: