يقوم وضع المطابقة العادية (التعبير العادي) بإجراء مطابقة البيانات واستبدال رمز النسخ كما يلي:
<%
'/* اسم الوظيفة: Zxj_ReplaceHtml ClearHtml
'/* لغة الوظيفة: لغة VBScript
'/* الوظيفة: مسح وظيفة تنسيق HTML للملف
'/* تمرير المعلمات: المحتوى (ملاحظة: المحتوى الذي يجب مسحه)
'/* مؤلف الوظيفة: تشانغ شياو جون (حكاية المدينة القديمة) QQ:382511147
'/* وصف الوظيفة: نمط المطابقة العادية (التعبير العادي) لمطابقة البيانات واستبدالها
وظيفة ClearHtml(المحتوى)
Content=Zxj_ReplaceHtml(&#[^>]*;, , المحتوى)
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)
المحتوى=Zxj_ReplaceHtml(،،المحتوى)
Content=Zxj_ReplaceHtml(</?tr[^>]*>, , المحتوى)
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=Zxj_ReplaceHtml(</?td[^>]*>, , المحتوى)
Content=Zxj_ReplaceHtml(</?script[^>]*>, , Content)
Content=Zxj_ReplaceHtml((javascript|jscript|vbscript|vbs):, , المحتوى)
المحتوى=Zxj_ReplaceHtml(on(mouse|exit|error|click|key), , Content)
Content=Zxj_ReplaceHtml(<//?xml[^>]*>, , المحتوى)
Content=Zxj_ReplaceHtml(<//?[az]+:[^>]*>, , المحتوى)
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=Content
وظيفة النهاية
الدالة 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) 'إجراء المطابقة العادية
وظيفة النهاية
%>