Der reguläre Abgleichsmodus (regulärer Ausdruck) führt einen Datenabgleich und einen Ersatzkopiercode durch. Der Code lautet wie folgt:
<%
'/* Funktionsname: Zxj_ReplaceHtml ClearHtml
'/* Funktionssprache: VBScript-Sprache
'/* Funktion: Funktion zum Löschen des Datei-HTML-Formats
'/* Übergabeparameter: Inhalt (Hinweis: Inhalt, der gelöscht werden muss)
'/* Funktionsautor: Zhang Xiaojun (Märchen der antiken Stadt) QQ:382511147
'/* Funktionsbeschreibung: Reguläres Vergleichsmuster (regulärer Ausdruck) für den Datenabgleich und das Ersetzen
Funktion ClearHtml(Inhalt)
Content=Zxj_ReplaceHtml(&#[^>]*;, , Content)
Content=Zxj_ReplaceHtml(</?marquee[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?object[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?param[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?embed[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?table[^>]*>, , Content)
Content=Zxj_ReplaceHtml( ,,Content)
Content=Zxj_ReplaceHtml(</?tr[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?th[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?p[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?a[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?img[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?tbody[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?li[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?span[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?div[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?th[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?td[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?script[^>]*>, , Content)
Content=Zxj_ReplaceHtml((javascript|jscript|vbscript|vbs):, , Content)
Content=Zxj_ReplaceHtml(on(mouse|exit|error|click|key), , Content)
Content=Zxj_ReplaceHtml(<//?xml[^>]*>, , Content)
Content=Zxj_ReplaceHtml(<//?[az]+:[^>]*>, , Inhalt)
Content=Zxj_ReplaceHtml(</?font[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?b[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?u[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?i[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?strong[^>]*>,,Content)
ClearHtml=Inhalt
Funktion beenden
Funktion Zxj_ReplaceHtml(patrn, strng,content)
IF IsNull(content) Then
Inhalt=
Beenden Sie IF
Set regEx = New RegExp ' Erstellt einen regulären Ausdruck.
regEx.Pattern = patrn ' Muster festlegen.
regEx.IgnoreCase = true ' Legen Sie fest, dass die Groß-/Kleinschreibung ignoriert wird.
regEx.Global = True ' Globale Verfügbarkeit festlegen.
Zxj_ReplaceHtml=regEx.Replace(content,strng) 'Regulären Abgleich durchführen
Funktion beenden
%>