asp 如何去除文字前后html格式

asp 如何去除文字前后html格式

asp过滤所有html代码，可以用正则表达式写函数来完成。代码如下：
<%
'说明：自定义正则替换函数，直接引用RemoveHTML这个函数就可以
Function RemoveHTML(strHTML)
Dim objRegExp,Match,Matches,k
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
Set Matches = objRegExp.Execute(strHTML)
strHTML = objRegExp.Replace(strHTML,"")
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
'使用示例：
a="

文字内容

"
a=RemoveHTML(a)
response.write a'执行完后，会过滤掉所有html代码，只保留文字
%>