تم إرفاق تحليل كود وظيفة ASP لإزالة HTML مع الأمثلة، وقد تم اختباره بواسطة برمجة Script Home وهو بالفعل سهل الاستخدام.
لن يحل الكود التالي محل < الموجود في منتصف ld<sad، لذا فإن المحتوى لا يزال طبيعيًا.
الرمز هو كما يلي:
<%
الدالة nohtml(str)
إعادة قاتمة
تعيين إعادة = RegExp الجديد
re.IgnoreCase = true
re.Global=صحيح
إعادة النمط=(/<.[^/<]*/>)
str=re.replace(str, )
re.Pattern=(/<//[^/<]*/>)
str=re.replace(str, )
str=replace(str, ,)
str=replace(str, ,)
nohtml=str
تعيين إعادة = لا شيء
وظيفة النهاية
str=<title>sadjksjdl script home يرحب بكم sajdljsald<sadsadsad<br> 'هذا اختبار
استجابة.كتابة nohtml(str)
%>
والنتيجة هي:
الرمز هو كما يلي:
منزل البرنامج النصي Sadjksjdl يرحب بكم sajdljsald<sadsadsad
ومع ذلك، فإن الكود التالي لا يطلب منك فقط رؤية < ونسيان المطابقة غير المحدودة التي تكمن خلفه.
الرمز هو كما يلي:
<%
وظيفة dropHtml(Byval strHTML)
خافت objRegExp، مباراة، مباريات
تعيين objRegExp = New Regexp
objRegExp.IgnoreCase = صحيح
objRegExp.Global = صحيح
'احصل على مغلقة <>
objRegExp.Pattern = <.+?>
'مباراة
تعيين التطابقات = objRegExp.Execute(strHTML)
'اجتياز المجموعة المطابقة واستبدال العناصر المطابقة
لكل مباراة في المباريات
strHtml=استبدال(strHTML,Match.Value,)
التالي
dropHtml=strHTML
تعيين objRegExp = لا شيء
وظيفة النهاية
str=<title>sadjksjdl script home يرحب بكم sajdljsald<sadsadsad<br> 'هذا اختبار
استجابة.كتابة dropHtml(شارع)
%>
والنتيجة هي:
الرمز هو كما يلي:
منزل البرنامج النصي Sadjksjdl يرحب بكم Sajdljsald