ASP正则表达式去掉HTML标签：

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
End Function