清除内容中所有html代码的函数

<%
Function ClearHTMLCode(Content)
    Dim RegEx
    Set RegEx = new RegExp
    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = true
    ClearHTMLCode = RegEx.Replace(Content,"")
End Function
%>

注:此函数有个小Bug,只要是包含在<和>之间的内容都会被清除,所以非html代码如果包含在<和>之间也会被清除!

评论: 0 | 引用: 0 | 查看次数: 4034
发表评论
登录后再发表评论!