Asp结合正则替换掉HTML标签

<script type="text/javascript"><!--
google_ad_client = "pub-4490194096475053";
/* 内容页,300x250,第一屏 */
google_ad_slot = "3685991503";
google_ad_width = 300;
google_ad_height = 250;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>同样举一反三，你要过滤什么样的 就用什么样的正则表达式,如果你要过滤里边的IMG，可以百度一下正则表达式过滤IMG,或者在爬坡者上找，当然过滤可以，你要提取里边的IMG也可以。比如提取文中出现的第一张图片生成缩略图

<%
'这里假设 strHTML,strTEXT 为过滤前后的内容
'strHTML可以是读取自文件的内容或者是数据库的，这样你在上面再加一步操作就可以了
Dim strHTML,strTEXT

strHTML = "strHTMLstrHTMLstrHTML可以是读取自文件的内<a href='www.papozhe.com'>Asp教程</a>容或者是<br/>数据库的，这样你在上面再<p>加一步操作</p>就可以了这里假设 strHTML,strTEXT 为过滤前后的内容"

strTEXT = RemoveHTML(strHTML)

'如果想看看过滤以前的样子，把上面这行用引号屏蔽了去掉下面这行的引号，同样举一反三，你要过滤什么样的 就用什么样的正则表达式,如果你要过滤里边的IMG，可以百度一下正则表达式过滤IMG,或者在爬坡者上找，当然过滤可以，你要提取里边的IMG也可以。比如提取文中出现的第一张图片生成缩略图
'strTEXT = strHTML

Response.Write strTEXT

Function RemoveHTML(strText)
Dim RegEx

Set RegEx = New RegExp

RegEx.Pattern = "<[^>]*>"
RegEx.Global = True

RemoveHTML = RegEx.Replace(strText, "")
End Function
%>