El análisis del código de función ASP para eliminar HTML se adjunta con ejemplos. Ha sido probado por la programación de Script Home y, de hecho, es fácil de usar.
El siguiente código no reemplazará el < en medio de ld<sad, por lo que el contenido sigue siendo normal.
El código es el siguiente:
<%
función nohtml(cadena)
luz tenue
Establecer re=nueva RegExp
re.IgnoreCase = verdadero
re.Global=Verdadero
re.Patrón=(/<.[^/<]*/>)
cadena = re.reemplazar (cadena,)
re.Patrón=(/<//[^/<]*/>)
cadena = re.reemplazar (cadena,)
cadena=reemplazar(cadena, ,)
cadena=reemplazar(cadena, ,)
nohtml=cadena
establecer re = nada
función final
str=<title>sadjksjdl script home te da la bienvenida sajdljsald<sadsadsad<br> 'Esto es una prueba
respuesta.escribir nohtml(cadena)
%>
El resultado es:
El código es el siguiente:
sadjksjdl script inicio te da la bienvenida sajdljsald<sadsadsad
Sin embargo, el siguiente código no pregunta. Simplemente vea < y olvídese de la coincidencia ilimitada detrás de él.
El código es el siguiente:
<%
Función dropHtml (Byval strHTML)
Dim objRegExp, Coincidencia, Coincidencias
Establecer objRegExp = Nueva expresión regular
objRegExp.IgnoreCase = Verdadero
objRegExp.Global = Verdadero
'Cerrar <>
objRegExp.Patrón = <.+?>
'Fósforo
Establecer coincidencias = objRegExp.Execute(strHTML)
' Recorre el conjunto coincidente y reemplaza los elementos coincidentes
Para cada partido en partidos
strHtml=Reemplazar(strHTML,Coincidencia.Valor,)
Próximo
soltarHtml=strHTML
Establecer objRegExp = Nada
Función final
str=<title>sadjksjdl script home te da la bienvenida sajdljsald<sadsadsad<br> 'Esto es una prueba
respuesta.escribir dropHtml(str)
%>
El resultado es:
El código es el siguiente:
sadjksjdl script inicio te da la bienvenida sajdljsald