<!-#تضمين ملف = token.asp->
<٪ '************************************************* **************************
"كل هذا هو رمز اختبار/مثال يعرض بناء جملة استدعاء
'Cbuffer Class ... الواجهة إلى كائن Cbuffer بسيط للغاية.
'
"استخدمه للرجوع إليه ... احذفه ... أيا كان.
'*************************************************** **************************
REM هذا هو تعليق نوع REM فقط لأغراض الاختبار!
سيحمل هذا المتغير مثيلًا لفئة Cbuffer
قاتمة objbuffer
قم بإعداد معالجة الأخطاء
عند استئناف الخطأ التالي
"قم بإنشاء مثيل فئة Cbuffer
تعيين objbuffer = جديد cbuffer
قم بتعيين خاصية pathtofile لفئة Cbuffer
'
'فقط للركلات ، سنستخدم ملف ASP الذي أنشأناه
في الدفعة الأخيرة من سلسلة المقالات هذه لأغراض الاختبار
objbuffer.pathtofile = ../081899/random.asp '这是文件名啦。
"إليك مثال على كيفية إضافة كلمة رئيسية جديدة إلى مجموعة الكلمات الرئيسية
"يمكنك إضافة قائمة بأسماء الوظائف الخاصة بك أو المتغيرات أو أي شيء ... رائع!
ملاحظة: يمكنك إضافة تنسيق HTML مختلف إذا أردت ، <strong>
ستطبق السمة على جميع الكلمات الرئيسية ... من المحتمل أن يتغير هذا
'في المستقبل القريب.
'
'ObjBuffer.addkeyword Response.write ، <font color = red> response.write </font>
فيما يلي أمثلة لتغيير لون خلفية الجدول ، لون الكود ،
"ألوان التعليق ولون السلسلة وخصائص مساحة علامة التبويب
'
"objbuffer.tablebgColor = Lightgrey" أو
"objbuffer.tablebgColor = #ffffdd" بسيطة أليس كذلك؟
'objbuffer.codecolor = أحمر
'objbuffer.commentColor = Orange
'objbuffer.stringColor = Purple
'objbuffer.tabspaces =
'استدعاء طريقة parsefile لفئة cbuffer ، مررها بشكل صحيح إذا كنت تريد
'HTML الواردة في إخراج الصفحة أو خطأ إذا لم تقم بذلك
objbuffer.parsefile false '注意 ： 显示代码的 Response.write 已经在 class 中。这里调用方法就可以了。
تحقق من وجود أخطاء قد تكون قد أثيرت وكتابتها
إذا err.number <> 0 ثم
Response.write err.number &: & err.description &: & err.source & <br>
إنهاء إذا
إخراج وقت المعالجة وعدد الخطوط المعالجة بواسطة البرنامج النصي
استجابة. write <strong> وقت المعالجة: </strong> و objbuffer.processingtime & seconds <br>
استجابة. write <strong> خطوط معالجة: </strong> و ObjBuffer.linecount & <br>
'تدمير حالة فئة CBUFFER لدينا
تعيين ObjBuffer = لا شيء
٪>