El modo de coincidencia regular (expresión regular) realiza la coincidencia de datos y reemplaza el código de copia. El código es el siguiente:
<%
'/* Nombre de la función: Zxj_ReplaceHtml ClearHtml
'/* Lenguaje de función: lenguaje VBScript
'/* Función: Borrar archivo con formato HTML
'/* Pasar parámetros: Contenido (nota: contenido que debe borrarse)
'/* Autor de la función: Zhang Xiaojun (Cuento de hadas de la ciudad antigua) QQ:382511147
'/* Descripción de la función: patrón de coincidencia regular (expresión regular) para coincidencia y reemplazo de datos
Función ClearHtml(Contenido)
Contenido=Zxj_ReplaceHtml(&#[^>]*;, , Contenido)
Contenido=Zxj_ReplaceHtml(</?marquee[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?object[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?param[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?embed[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?table[^>]*>, , Contenido)
Contenido = Zxj_ReplaceHtml (,, Contenido)
Contenido=Zxj_ReplaceHtml(</?tr[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?th[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?p[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?a[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?img[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?tbody[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?li[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?span[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?div[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?th[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?td[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?script[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml((javascript|jscript|vbscript|vbs):, , Contenido)
Contenido=Zxj_ReplaceHtml(on(ratón|salir|error|hacer clic|tecla), , Contenido)
Contenido=Zxj_ReplaceHtml(<//?xml[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(<//?[az]+:[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?font[^>]*>, , Contenido)
Contenido=Zxj_ReplaceHtml(</?b[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?u[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?i[^>]*>,,Contenido)
Contenido=Zxj_ReplaceHtml(</?strong[^>]*>,,Contenido)
BorrarHtml=Contenido
Función final
Función Zxj_ReplaceHtml(patrón, cadena, contenido)
SI es nulo (contenido) entonces
contenido =
Fin SI
Set regEx = New RegExp ' Crea una expresión regular.
regEx.Pattern = patrón ' Establecer patrón.
regEx.IgnoreCase = true ' Configurado para ignorar mayúsculas y minúsculas.
regEx.Global = True ' Establece la disponibilidad global.
Zxj_ReplaceHtml=regEx.Replace(content,string) 'Realizar coincidencias periódicas
Función final
%>