كلمات المترجم:
لا أعرف ما إذا كان الأصدقاء الذين يكتبون في ASP لديهم نفس الشعور. ثم الإخراج ذات الصلة ذات الصلة ، دعنا نرى ما إذا كان صحيحًا. قبل بضعة أيام ، كتبت ألف صفحة ، والتي تحتوي على حوالي سبعة أو ثمانية وظائف
رأيت فئة تصحيح (VBS) في ASP اليوم ، وجربتها أبدًا!
طريقة الاستخدام بسيطة:
Test.asp
<!-#تضمين ملف = debuggingConsole.asp->
<٪
الإخراج = xxxx
تعيين debugstr = جديد debuggingConsole
debugstr.enabled = صحيح
Debugstr.Print قيمة المعلمة للإخراج ، والإخراج
'...
Debugstr.draw
تعيين debugstr = لا شيء
٪>
=========================================== =
DebuggingConsole.asp
<٪
الطبقة DebuggingConsole
خاص dbg_enabled
خاص dbg_show
خاص DBG_RequestTime
خاص DBG_FinishTime
خاص DBG_DATA
Private DBG_DB_DATA
خاصة DBG_Allvars
خاص dbg_show_default
divesets prive (2)
'constuktor => اضبط القيم الافتراضية
sub sub class_initialize ()
dbg_requesttime = الآن ()
dbg_allvars = خطأ
تعيين dbg_data = server.createBject (scripting.dictionary)
divesets (0) = <tr> <td style = 'cursor: hand ؛' ). Badding-Bottom:#title#| البيانات#|
Divesets (1) 4 ؛ ame # styled = text ؛
divesets (2) = tr> <td> <div id = sectname#background:#7ea5 ؛ |
dbg_show_default = 0،0،0،0،0،0،0،0،0،0،0،0
نهاية الفرعية
الممتلكات العامة تتيح تمكين (BOOL] مجموعات ممكّنة إلى True أو False
dbg_enabled = bnewvalue
نهاية الملكية
يتم تمكين الممتلكات العامة "" [Bool] يحصل على القيمة الممكّنة
تمكين = dbg_enabled
نهاية الملكية
خاصية السماح للظهور (bnewvalue) '' '[string] يعين لوحة تصحيح الأخطاء.
dbg_show = bnewvalue
نهاية الملكية
الممتلكات العامة الحصول على عرض "" [سلسلة] يحصل على لوحة تصحيح الأخطاء.
show = dbg_show
نهاية الملكية
الممتلكات العامة دع Allvars (bnewvalue) '' '
dbg_allvars = bnewvalue
نهاية الملكية
الممتلكات العامة تحصل على allvars '' '[Bool] تحصل إذا سيتم عرض جميع المتغيرات.
allvars = dbg_allvars
نهاية الملكية
'****************************************** *** ****************************************** **** ***************
'' sdescription: يضيف متغيرًا إلى معلومات التصحيح.
'' param: -label [سلسلة]: وصف المتغير
'' param: -Output [متغير]: المتغير ithet
'****************************************** *** ****************************************** **** ***************
طباعة فرعية عامة (تسمية ، إخراج)
إذا كان dbg_enabled ثم
إذا err.number> 0 ثم
اتصل dbg_data.add (ValidLabel (label) ، !!! خطأ: & err.number & & err.description)
err.clear
آخر
فريد من نوعه = ValidLabel (Label)
استجابة. الكتابة الفريدة
استدعاء dbg_data.add (فريدة من نوعها