ASP去除所有HTML标签javascript与CSS

今天工作的时候需要截取页面中的指定字符，需要去除页面上除了文字以外的所有内容，下面编程之家跟大家分享：ASP去除所有HTML标签javascript与CSS的函数。

去除页面除文字以外的所有内容函数

Function RemoveHTML(str) 

Dim objRegExp, Match,strHTML 

if isnull(str) then 

str="" 

end if 

strHTML=str 

strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"") 

Set objRegExp = New Regexp 

objRegExp.IgnoreCase = True 

objRegExp.Global = True 

objRegExp.Pattern = "<script[^>]*?>.*?</script>" 

strHTML = objRegExp.Replace(strHTML,"") 

objRegExp.Pattern = "<style[^>]*?>.*?</style>" 

strHTML = objRegExp.Replace(strHTML,"") 

objRegExp.Pattern = "<.+?>" 

strHTML = objRegExp.Replace(strHTML,"") 

Set objRegExp = nothing 

RemoveHTML=strHTML 

End Function