首页 / 网页编程 / ASP / 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
%>