Asp清除html中style,javascript,css代码

Asp清除 html 中style,javascript,css代码

1. <%
2. Function RemoveHTML(str)
3. Dim objRegExp, Match,strHTML
4. if isnull(str) then
5. str=""
6. end if
7. strHTML=str
8. strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"")
10. Set objRegExp = New Regexp
11. objRegExp.IgnoreCase = True
12. objRegExp.Global = True
14. objRegExp.Pattern = "<script[^>]*?>.*?</script>"
15. strHTML = objRegExp.Replace(strHTML,"")
17. objRegExp.Pattern = "<style[^>]*?>.*?</style>"
18. strHTML = objRegExp.Replace(strHTML,"")
20. objRegExp.Pattern = "<. ?>"
21. strHTML = objRegExp.Replace(strHTML,"")
23. Set objRegExp = Nothing
25. RemoveHTML=strHTML
26. End Function
27. %>