ASP常用函数:ReplaceHTML

2018-09-06 12:18

阅读:360

  <%
去掉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
%>


评论


亲,登录后才可以留言!