在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 中建立正则的例子.
版权声明:本文为shenzhenNBA原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。