ASP过滤html函数只保留纯文字

<%  

Function RemoveHTML(strHTML)    '过滤HTML代码的函数包括过滤CSS和JS  

  

StrHtml = Replace(StrHtml,vbCrLf,"")   

StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")   

StrHtml = Replace(StrHtml,Chr(13),"")   

StrHtml = Replace(StrHtml,Chr(10),"")   

StrHtml = Replace(StrHtml," ","")   

StrHtml = Replace(StrHtml,"    ","")  

  

Dim objRegExp, Match, Matches   

Set objRegExp = New Regexp   

  

objRegExp.IgnoreCase = True   

objRegExp.Global = True  

  

'取闭合的<>   

objRegExp.Pattern = "<style(.+?)/style>"   

'进行匹配   

Set Matches = objRegExp.Execute(strHTML)   

  

' 遍历匹配集合，并替换掉匹配的项目   

For Each Match in Matches   

strHtml=Replace(strHTML,Match.Value,"")   

Next  

  

'取闭合的<>   

objRegExp.Pattern = "<script(.+?)/script>"   

'进行匹配   

Set Matches = objRegExp.Execute(strHTML)   

  

' 遍历匹配集合，并替换掉匹配的项目   

For Each Match in Matches   

strHtml=Replace(strHTML,Match.Value,"")   

Next  

  

'取闭合的<>   

objRegExp.Pattern = "<.+?>"   

'进行匹配   

Set Matches = objRegExp.Execute(strHTML)   

  

' 遍历匹配集合，并替换掉匹配的项目   

For Each Match in Matches   

strHtml=Replace(strHTML,Match.Value,"")   

Next  

  

RemoveHTML=strHTML   

Set objRegExp = Nothing   

End Function  

  

%>

调用代码：<%=RemoveHTML(rs("content"))%>