ASP常用函数:ReplaceHTML
发布时间：2016-12-29 来源：查字典编辑
摘要：
<%
'去掉HTML标记
PublicFunctionReplaceHTML(Textstr)
DimStr,re
Str=Textstr
Setre=NewRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str,"")
SetRe=Nothing
ReplaceHTML=Str
EndFunction
%>