ASP常用函数:ReplaceHTML


            <% '去掉HTML标记 Public Function ReplaceHTML(Textstr)     Dim Str, re     Str = Textstr     Set re = New RegExp     re.IgnoreCase = True     re.Global = True     re.Pattern = "<(.[^>]*)>"     Str = re.Replace(Str, "")     Set Re = Nothing     ReplaceHTML = Str End Function %>