Eliminar tags html

[tammander]

Yo uso esta función para limpiar código HTML malicioso. Modificándola igual te sirve:

Código:

Function SafeHTML(ByVal pStrHTML)
        
        Dim lObjRegExp
        ' If null
        If VarType(pStrHTML) = 1 Then Exit Function
        If pStrHTML = "" Then Exit Function
        Set lObjRegExp = New RegExp
        lObjRegExp.Global = True
        lObjRegExp.IgnoreCase = True
        lObjRegExp.Pattern = "<(/)?SCRIPT|META|STYLE([^>]*)>"
        pStrHTML = lObjRegExp.Replace(pStrHTML, "")
         lObjRegExp.Pattern = "<(/)?(HTML|HEAD|BODY)([^>]*)>"
        pStrHTML = lObjRegExp.Replace(pStrHTML, "")
        lObjRegExp.Pattern = "<(/)?(LINK|IFRAME|FRAMESET|FRAME|APPLET|OBJECT)([^>]*)>"
        pStrHTML = lObjRegExp.Replace(pStrHTML, "")
         lObjRegExp.Pattern = "<(/)?(BUTTON|FORM|FIELDSET|INPUT|SELECT|OPTION)([^>]*)>"
        pStrHTML = lObjRegExp.Replace(pStrHTML, "")
       lObjRegExp.Pattern = "(<A[^>]+href\s?=\s?""?javascript:)[^""]*(""[^>]+>)"
        pStrHTML = lObjRegExp.Replace(pStrHTML, "")
        lObjRegExp.Pattern = "(<IMG[^>]+src\s?=\s?""?javascript:)[^""]*(""[^>]+>)"
        pStrHTML = lObjRegExp.Replace(pStrHTML, "")
        lObjRegExp.Pattern = "<([^>]*) on[^=\s]+\s?=\s?([^>]*)>"
        pStrHTML = lObjRegExp.Replace(pStrHTML, "")
           Set lObjRegExp = Nothing
        
        SafeHTML = pStrHTML
        
End Function

Un saludo