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

[chiny]

做一个全文搜索，想在结果里去掉html标记，asp标记，注释标记，谢谢！

[chiny]

那如果要去掉回车该怎么办呢？

[skyover]

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 出来的东西，你也去掉了。那么文章就会完全不同了啊。

[chiny]

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

[hax]

上面的有个问题，如果是包含回车的就不行了。
如
<myTag firstAttr="123"
secondAttr="456">

还有re.Pattern = "\<(\s\/*.*)>"应该是\<(\s*\/.*)>

要去掉<%用这个正则表达式：<%(.|\s)*%>

[skyover]

用大写S就可以了。