Eliminar tags HTML de una cadena con ASP clásico
Código ASP clásico
- Por Programador ASP clásico /
- 07/08/2012 @ 11:34:25 /
- 1006 visitas
En ASP clásico es necesario fabricar tus propias subrutinas "a mano". E en ASP 3.0 no existe un equivalente para strip_tags() de PHP que elimina los tags HTML a la cadena que se le pase como parámetro.
Aquí tienes dos funciones que hacen esto utilizando expresiones regulares:
<%
'devuelve la cadena totalmente limpia de tags HTML
Function strip_tags(strHTML)
Dim regEx
Set regEx = New RegExp
With regEx
.Pattern = "<(.|\n)+?>"
.IgnoreCase = true
.Global = true
End With
strip_tags = regEx.replace(strHTML, "")
Set regEx = Nothing
End Function
%>
Otra función para pasar una lista de tags HTML permitidos
<%
'Esta segunda funcion permite pasar
'una lista de tags admitidos
Function strip_tags(strHTML, allowedTags)
Dim objRegExp, strOutput
Set objRegExp = New regexp
strOutput = strHTML
allowedTags = "," & LCase(Replace(allowedTags, " ", "")) & ","
objRegExp.IgnoreCase = true
objRegExp.Global = true
objRegExp.MultiLine = true
objRegExp.Pattern = "<(.|\n)+?>"
Set matches = objRegExp.execute(strHTML)
objRegExp.Pattern = "<(/?)(\w+)[^>]*>"
For Each match In matches
tagName = objRegExp.Replace(match.value, "$2")
If instr(allowedTags, "," & lcase(tagName) & ",") = 0 then
strOutput = replace(strOutput, match.value, "")
End If
Next
strip_tags = strOutput
Set objRegExp = Nothing
End Function
%>
Esta es otra función que retira las etiquetas HTML de cualquier cadena. Utiliza expresiones de expresiones regulares y es muy rápido.
<%
FUNCTION stripHTML(strHTML)
Dim objRegExp, strOutput, tempStr
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|n)+?>"
'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")
'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput 'Return the value of strOutput
Set objRegExp = Nothing
END FUNCTION
%>
tags: asp tutor, asp clasico, etiquetas de una pagina web en html, cadenas en asp, asp cadenas, desarrollo web asp, funcion de las etiquetas html, etiquetas para paginas web html