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

　　%>