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