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

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

<%
Function RemoveHTMLTag(fString)  '//功能:去参数字符串中的所有 HTML 标签元素
    Dim ObjReg
    If(Isnull(fString))Then fString=""
    fString = Replace(Replace(fString,"&lt;","<"),"&gt;",">")  '//预处理
    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 中建立正则的例子.