ASP去掉字符串中HTML标签的函数

在ASP开发时, 有时需要用到去掉字符串中的 HTML 内容, 这里就介绍一个利用正则来处理这个功能的函数, 函数如下:

<%
Function RemoveHTMLTag(fString)  '//功能:去参数字符串中的所有 HTML 标签元素
Dim ObjReg
If(Isnull(fString))Then fString=""
fString = Replace(Replace(fString,"<","<"),">",">")  '//预处理
Set ObjReg = New RegExp   '//建立正则对象
ObjReg.Pattern = "<[^>]+>|</[^>]+>"   '//设置正则模式
ObjReg.Global = true  '//是否全局
fString = ObjReg.Replace(fString,"")   '//使用正则替换
RemoveHTMLTag = fString
End Function
%>

参数说明:

fString : 是即将要处理可能含有的 HTML 标签的函数

返回值: 返回一个新的字符串, 其中的 HTML 标签都被过滤掉了

测试:

<%
dim str
str="<title>mytitle</title>"
response.Write(RemoveHTMLTag(str))   '//结果输出 mytitle
%>

这里也展示了如果在 ASP 中建立正则的例子.