ASP过滤html代码的函数

过滤html代码的函数
Function cutStr(str,strlen)
 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)," ")
        cutStr=Replace(cutStr,"&nbsp;","")
End Function