asp中正则表达式去除HTML标记

窃自eWebEditor

function ExecReg(re, content) 
    Dim myRegExp, ResultString
    Set myRegExp = New RegExp
    myRegExp.Global = True
    myRegExp.Pattern = re
    ResultString = myRegExp.Replace(content, "") 
    ExecReg = ResultString
end function

function DecodeFilter(html) 
        html = LCase(html)
' 去除所有客户端脚本javascipt,vbscript,jscript,js,vbs,event,
        html = ExecReg("</?script[^>]*>", html)
        html = ExecReg("(javascript|jscript|vbscript|vbs):", html)
        html = ExecReg("on(mouse|exit|error|click|key)", html)
        html = ExecReg("&#", html)
' 去除表格<table><tr><td><th><a><p><img><div>
        html = ExecReg("</?table[^>]*>", html)
        html = ExecReg("</?tr[^>]*>", html)
        html = ExecReg("</?th[^>]*>", html)
        html = ExecReg("</?td[^>]*>", html)
        html = ExecReg("</?a[^>]*>", html)
        html = ExecReg("</?p[^>]*>", html)
        html = ExecReg("</?img[^>]*>", html)
        html = ExecReg("</?div[^>]*>", html)
        html = ExecReg("</?ul[^>]*>", html)
        html = ExecReg("</?li[^>]*>", html)
        html = ExecReg("</?tbody[^>]*>", html)
        html = ExecReg("</?h1[^>]*>", html)
        html = ExecReg("</?h2[^>]*>", html)
        html = ExecReg("</?h3[^>]*>", html)
        html = ExecReg("</?h4[^>]*>", html)
        html = ExecReg("</?h5[^>]*>", html)
        html = ExecReg("</?h6[^>]*>", html)
        html = ExecReg("</?b[^>]*>", html)
        html = ExecReg("</?strong[^>]*>", html)
' 去除样式类class=""
        html = ExecReg("(<[^>]+) class=[^ |^>]*([^>]*>)", html)
' 去除样式style=""
        html = ExecReg("(<[^>]+) style=""[^""]*""([^>]*>)",  html)
' 去除XML<?xml>
        html = ExecReg("<\?xml[^>]*>", html)
' 去除命名空间<o:p></o:p>
        html = ExecReg("</?[a-z]+:[^>]*>", html)
' 去除字体<font></font>
        html = ExecReg("</?font[^>]*>", html)
' 去除字幕<marquee></marquee>
        html = ExecReg("</?marquee[^>]*>", html)
' 去除对象<object><param><embed></object>
        html = ExecReg("</?object[^>]*>",  html)
        html = ExecReg("</?param[^>]*>", html)
        html = ExecReg("</?embed[^>]*>", html)
        DecodeFilter= html
end function