<%
Function RemoveHTML(str)
Dim re
Set re=New RegExp
re.Pattern="<.*?>"
re.IgnoreCase=True
re.Global=True
str=re.Replace(str,"")
Set re=Nothing
RemoveHTML=str
End Function
response.write removeHTML(ss)
%>
本文介绍了一个使用VBScript编写的函数,该函数可以有效地从字符串中移除所有的HTML标签。通过正则表达式的全局匹配,确保了即使在面对含有大量HTML标签的文本时也能准确地进行清理。
<%
Function RemoveHTML(str)
Dim re
Set re=New RegExp
re.Pattern="<.*?>"
re.IgnoreCase=True
re.Global=True
str=re.Replace(str,"")
Set re=Nothing
RemoveHTML=str
End Function
response.write removeHTML(ss)
%>

被折叠的 条评论
为什么被折叠?