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  
%>  

上一篇：鼠标放上去清空鼠标放上去清空input

下一篇：css背景图片100%显示