ASP常用函数：ReplaceHTML
2018-09-06 12:18
阅读：361
<%
去掉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
%>
下一篇：分页代码
评论
亲，登录后才可以留言！