精美而实用的网站，关注web编程技术、网站运营、SEO推广，让您轻松愉快的学习

今天工作的时候需要截取页面中的指定字符，需要去除页面上除了文字以外的所有内容，下面青岛星网跟大家分享：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


Tags：ASP HTML javascript CSS