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
%>


【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！