Le mode de correspondance régulière (expression régulière) effectue la correspondance des données et le remplacement du code de copie. Le code est le suivant :
<%
'/* Nom de la fonction : Zxj_ReplaceHtml ClearHtml
'/* Langage de fonction : Langage VBScript
'/* Fonction : Fonction d'effacement du format HTML du fichier
'/* Paramètres de passage : Contenu (remarque : contenu qui doit être effacé)
'/* Auteur de la fonction : Zhang Xiaojun (Conte de fées de la ville antique) QQ : 382511147
'/* Description de la fonction : modèle de correspondance régulière (expression régulière) pour la correspondance et le remplacement des données
Fonction ClearHtml (Contenu)
Contenu=Zxj_ReplaceHtml(&#[^>]*;, , Contenu)
Content=Zxj_ReplaceHtml(</?marquee[^>]*>, , Contenu)
Content=Zxj_ReplaceHtml(</?object[^>]*>, , Contenu)
Content=Zxj_ReplaceHtml(</?param[^>]*>, , Contenu)
Content=Zxj_ReplaceHtml(</?embed[^>]*>, , Contenu)
Content=Zxj_ReplaceHtml(</?table[^>]*>, , Contenu)
Contenu=Zxj_ReplaceHtml( ,,Contenu)
Content=Zxj_ReplaceHtml(</?tr[^>]*>, , Contenu)
Contenu=Zxj_ReplaceHtml(</?th[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?p[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?a[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?img[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?tbody[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?li[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?span[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?div[^>]*>,,Contenu)
Content=Zxj_ReplaceHtml(</?th[^>]*>, , Contenu)
Content=Zxj_ReplaceHtml(</?td[^>]*>, , Contenu)
Content=Zxj_ReplaceHtml(</?script[^>]*>, , Contenu)
Contenu=Zxj_ReplaceHtml((javascript|jscript|vbscript|vbs):, , Contenu)
Content=Zxj_ReplaceHtml(on(mouse|exit|error|click|key), , Content)
Contenu=Zxj_ReplaceHtml(<//?xml[^>]*>, , Contenu)
Contenu=Zxj_ReplaceHtml(<//?[az]+:[^>]*>, , Contenu)
Content=Zxj_ReplaceHtml(</?font[^>]*>, , Contenu)
Contenu=Zxj_ReplaceHtml(</?b[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?u[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?i[^>]*>,,Contenu)
Contenu=Zxj_ReplaceHtml(</?strong[^>]*>,,Contenu)
ClearHtml=Contenu
Fonction de fin
Fonction Zxj_ReplaceHtml(patrn, strng,content)
SI IsNull (contenu) Alors
contenu=
Fin SI
Set regEx = New RegExp 'Créer une expression régulière.
regEx.Pattern = patrn 'Définir le modèle.
regEx.IgnoreCase = true 'Défini pour ignorer la casse des caractères.
regEx.Global = True 'Définit la disponibilité globale.
Zxj_ReplaceHtml=regEx.Replace(content,strng) 'Effectuer une correspondance régulière
Fonction de fin
%>