Режим регулярного сопоставления (регулярного выражения) выполняет сопоставление данных и замену кода копии. Код выглядит следующим образом:
<%
'/* Имя функции: Zxj_ReplaceHtml ClearHtml
'/* Язык функций: язык VBScript
'/* Функция: функция очистки формата HTML файла.
'/* Передача параметров: Содержание (примечание: содержимое необходимо очистить)
'/* Автор функции: Чжан Сяоцзюнь (Сказка о древнем городе) QQ:382511147
'/* Описание функции: Шаблон регулярного сопоставления (регулярного выражения) для сопоставления и замены данных
Функция ClearHtml(Содержимое)
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=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]+:[^>]*>, , Content)
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=Содержимое
Конечная функция
Функция Zxj_ReplaceHtml(patrn, strng,content)
ЕСЛИ IsNull(содержание) Тогда
содержание=
Конец ЕСЛИ
Set regEx = New RegExp 'Создаем регулярное выражение.
regEx.Pattern = Patrn 'Установить шаблон.
regEx.IgnoreCase = true ' Устанавливается для игнорирования регистра символов.
regEx.Global = True ' Устанавливает глобальную доступность.
Zxj_ReplaceHtml=regEx.Replace(content,strng) 'Выполнять регулярное сопоставление
Конечная функция
%>