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 /
- 1201 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
En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por ASP TEAM. Compartimos recursos útiles de buena fe para formar una base de conocimiento en el desarrollo de aplicaciones en ASP Clásico.