页面导航： 首页 → 网络编程 → ASP编程 → ASP基础 → 正文内容 ASP常用函数:ReplaceHTML

发布：dxy 字体：[增加 减小] 类型：转载

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

文章评论

共有 位脚本之家网友发表了评论我来说两句