O modo de correspondência regular (expressão regular) executa a correspondência de dados e o código de cópia de substituição.
<%
'/* Nome da função: Zxj_ReplaceHtml ClearHtml
'/* Linguagem da função: Linguagem VBScript
'/* Função: função de limpar formato HTML do arquivo
'/* Passa parâmetros: Conteúdo (nota: conteúdo que precisa ser limpo)
'/* Autor da função: Zhang Xiaojun (Conto de Fadas da Cidade Antiga) QQ:382511147
'/* Descrição da função: padrão de correspondência regular (expressão regular) para correspondência e substituição de dados
Função ClearHtml(Conteúdo)
Content=Zxj_ReplaceHtml(&#[^>]*;, , Conteúdo)
Content=Zxj_ReplaceHtml(</?marquee[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?object[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?param[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?embed[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?table[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml( ,,Conteúdo)
Content=Zxj_ReplaceHtml(</?tr[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?th[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?p[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?a[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?img[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?tbody[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?li[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?span[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?div[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?th[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?td[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?script[^>]*>, , Conteúdo)
Conteúdo=Zxj_ReplaceHtml((javascript|jscript|vbscript|vbs):, , Conteúdo)
Content=Zxj_ReplaceHtml(on(mouse|exit|error|click|key), , Content)
Content=Zxj_ReplaceHtml(<//?xml[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(<//?[az]+:[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?font[^>]*>, , Conteúdo)
Content=Zxj_ReplaceHtml(</?b[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?u[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?i[^>]*>,,Conteúdo)
Content=Zxj_ReplaceHtml(</?strong[^>]*>,,Conteúdo)
ClearHtml=Conteúdo
Função final
Função Zxj_ReplaceHtml(patrn, string,conteúdo)
SE for nulo (conteúdo) então
conteúdo =
Fim SE
Set regEx = New RegExp ' Cria uma expressão regular.
regEx.Pattern = patrn ' Definir padrão.
regEx.IgnoreCase = true 'Definido para ignorar maiúsculas e minúsculas.
regEx.Global = True ' Define a disponibilidade global.
Zxj_ReplaceHtml=regEx.Replace(content,strng) 'Executa correspondência regular
Função final
%>