Eliminar todas las etiquetas en el código HTML
La copia del código es la siguiente:
<%
'**********************************
'Función: RemoveHTML_A (strText)
'Argumentos: strtext, cadena para ser procesado
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: elimine todas las etiquetas en el código HTML
'Ejemplo: <%= removeHtml_a ("<b> Bienvenido a Alixixi </b>")%>
'**********************************
FunctionRemoveHtml_a (strText)
Dimnpos1
Dimnpos2
npos1 = instr (strText, "<")
Dowhilenpos1> 0
npos2 = instr (npos1+1, strtext, ">")
Ifnpos2> 0then
strtext = izquierda (strtext, npos1-1) y mid (strText, npos2+1)
Demás
Salir
Endif
npos1 = instr (strText, "<")
Bucle
RemoverHtml_a = strText
Función final
%>
Eliminar todas las etiquetas en el código HTML
La copia del código es la siguiente:
<%
'**********************************
'Función: RemoveHTML_B (strText)
'Argumentos: strtext, cadena para ser procesado
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: elimine todas las etiquetas en el código HTML
'Ejemplo: <%= removeHtml_b ("<b> Bienvenido a Alixixi </b>")%>
'**********************************
FunctionRemoveHtml_b (strText)
Dimregex
Setregex = newregexp
Regex.pattern = "<[^>]*>"
Regex.global = verdadero
Removehtml_b = regex.replace (strText, "")
Función final
%>
Eliminar todas las etiquetas en el código HTML
La copia del código es la siguiente:
<%
'**********************************
'Función: RemoveHTML_C (strText)
'Argumentos: strtext, cadena para ser procesado
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: elimine todas las etiquetas en el código HTML
'Ejemplo: <%= removeHtml_c ("<b> Bienvenido a Alixixi </b>")%>
'**********************************
FunctionRemoveHTML_C (strText)
Dimtaglista
TagList = ";!-;
"Bgsound; big; blockquote; cuerpo; br; botón; titular; centro; citar; código;" & _