请教，怎样用正则表达式去掉文档所有html标记,asp标记，注释标记？

Question

function ClnCode(strContent)
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "\<(\s*.*)>"
strContent = re.Replace(strContent,"")
re.Pattern = "\<(\s\/*.*)>"
strContent = re.Replace(strContent,"")
re.Pattern = "\[(.*)\]"
strContent = re.Replace(strContent,"")
re.Pattern = "\[(\/.*)]"
strContent = re.Replace(strContent,"")
ClnCode = strContent
End Function这个把ubb去掉了。asp的自己改一下就好了，不过<%不好改。因为如果用Response.write 出来的东西，你也去掉了。那么文章就会完全不同了啊。

Answer 1

没关系，因为我想去掉include的数据库连接信息，
所有<% %>之间的数据全部去掉，<% %>之间需要response.write
的数据库必定有，所以在数据库里查找，比较方便。该怎么样清除？
谢谢

Answer 2

上面的有个问题，如果是包含回车的就不行了。
如
<myTag firstAttr="123"
         secondAttr="456">还有re.Pattern = "\<(\s\/*.*)>"应该是\<(\s*\/.*)>要去掉<%用这个正则表达式：<%(.|\s)*%>