如何用ASP将一大段文字中的HTML的标识去掉

作者:jam /查看次数: 244 字体大小: 小 中 大

<%
Function FilterHTML(strToFilter)
Dim strTemp
strTemp = strToFilter
While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">")
strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Right(strTemp, Len(strTemp)-Instr(1,strTemp, ">"))
WEnd
FilterHTML = strTemp
End Function
%>

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags: 日常工作常用代码 HTML

评论: 1 | 引用: 0

admins [2010-05-09 05:36 PM]

    Public Function DelHtml(str)
        Dim regEx
      Set regEx = New RegExp
        regEx.IgnoreCase = True
        regEx.Global = True
        regEx.MultiLine = True
        regEx.Pattern = "<.+?>"
        DelrHtml = regEx.Replace(str,"")
        Set regEx = Nothing
    End Function

发表评论