剔除html中style,javascript,css代码

剔除页面中html中除文字以外的任何代码

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

转载于:https://www.cnblogs.com/ly312/archive/2010/09/29/1838712.html