<%

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

%>