Mode pencocokan reguler (ekspresi reguler) melakukan pencocokan data dan kode salinan pengganti.
<%
'/* Nama fungsi: Zxj_ReplaceHtml ClearHtml
'/* Bahasa fungsi: Bahasa VBScript
'/* Fungsi: Hapus fungsi format HTML file
'/* Lulus parameter: Konten (catatan: konten yang perlu dihapus)
'/* Penulis fungsi: Zhang Xiaojun (Dongeng Kota Kuno) QQ:382511147
'/* Deskripsi fungsi: Pola pencocokan reguler (ekspresi reguler) untuk pencocokan dan penggantian data
Fungsi ClearHtml(Isi)
Konten=Zxj_ReplaceHtml(&#[^>]*;, , Konten)
Konten=Zxj_ReplaceHtml(</?marquee[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?object[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?param[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?embed[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?tabel[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml( ,,Isi)
Konten=Zxj_ReplaceHtml(</?tr[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?th[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?p[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?a[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?img[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?tbody[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?li[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?span[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?div[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?th[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?td[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?script[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml((javascript|jscript|vbscript|vbs):, , Konten)
Konten=Zxj_ReplaceHtml(on(mouse|keluar|kesalahan|klik|kunci), , Konten)
Konten=Zxj_ReplaceHtml(<//?xml[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(<//?[az]+:[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?font[^>]*>, , Konten)
Konten=Zxj_ReplaceHtml(</?b[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?u[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?i[^>]*>,,Konten)
Konten=Zxj_ReplaceHtml(</?strong[^>]*>,,Konten)
ClearHtml=Isi
Fungsi Akhir
Fungsi Zxj_ReplaceHtml(pola, strng,konten)
JIKA IsNull(konten) Lalu
isi=
Akhir JIKA
Setel regEx = RegExp Baru ' Buat ekspresi reguler.
regEx.Pattern = pola ' Tetapkan pola.
regEx.IgnoreCase = true ' Diatur untuk mengabaikan huruf besar-kecil.
regEx.Global = Benar ' Tetapkan ketersediaan global.
Zxj_ReplaceHtml=regEx.Replace(content,strng) 'Lakukan pencocokan reguler
Fungsi Akhir
%>