当前位置:主页 > 软件编程 > ASP代码 >

ASP常用函数:ReplaceHTML

时间:2021-03-13 09:47:19 | 栏目:ASP代码 | 点击:

<%
'去掉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
%>

您可能感兴趣的文章:

相关文章