Saya tidak tahu apakah teman yang menulis kode di ASP memiliki perasaan yang sama seperti saya. dan kemudian output terkait terkait mari kita lihat apakah itu benar. Beberapa hari yang lalu saya menulis seribu baris halaman, yang berisi sekitar tujuh atau delapan fungsi
Saya melihat kelas debug (VBS) di ASP hari ini, dan mencobanya.
Metode penggunaannya sederhana:
test.asp
<!-#termasuk file = debuggingconsole.asp->
<%
output = xxxx
atur debugstr = debuggingconsole baru
Debugstr.enabled = true
Nilai parameter debugstr.print output, output
'...
debugstr.draw
atur debugstr = tidak ada
%>
============================================= =
DebuggingConsole.asp
<%
Kelas DebuggingConsole
Private DBG_enabled
DBG_SHOW pribadi
Private DBG_REQUESTtime
Private DBG_FINISHTIME
DBG_Data pribadi
private dbg_db_data
Private DBG_ALLVARS
private dbg_show_default
Prive Divsets (2)
'Ctrukturtor => Setel nilai default
Private sub class_initialize ()
dbg_requesttime = sekarang ()
dbg_allvars = false
Setel dbg_data = server.createObject (scripting.dictionary)
Divsets (0) = <tr> <td style = 'kursor: hand;' onclick = javascript: if (dacument.geteLementById ('data#sectname#'). ). Padding-Bottom:#Judul#| Data#|
Divsets (1) = <TR> <TD> <Div ID = Sect#Pilih#Style = Font-Weight: Bold; 4; AME # Gaya = Kursor: Teks;
Divsets (2) = <TR> <TD> <Div ID = Sect#SectName#style = latar belakang:#7EA5D7; <
dbg_show_default = 0,0,0,0,0,0,0,0,0,0,0,0,0
akhir sub
Properti publik Let Enabled (bool] set diaktifkan ke true atau false
dbg_enabled = bnewValue
Akhir properti
Properti publik diaktifkan '' '[bool] mendapatkan nilai yang diaktifkan
diaktifkan = dbg_enabled
Akhir properti
Properti Publik LET Show (BnewValue) '' '' [String] Mengatur panel debugging.
dbg_show = bnewValue
Akhir properti
Properti Publik Get Show '' '[String] Mendapat panel debugging.
tunjukkan = dbg_show
Akhir properti
Properti Publik Let Allvars (BnewValue) '' '
dbg_allvars = bnewValue
Akhir properti
Properti publik mendapatkan allvars '' '[bool] dapatkan jika semua variabel akan ditampilkan.
allvars = dbg_allvars
Akhir properti
'****************************************** *** ****************************************** **** ***************
'' @sdescription: Menambahkan variabel ke informasi debug.
'' @param: -label [string]: deskripsi variabel
'' @param: -output [variabel]: variabel itset
'****************************************** *** ****************************************** **** ***************
Sub cetak publik (label, output)
Jika dbg_enabled maka
Jika err.number> 0 lalu
Hubungi dbg_data.add (validlabel (label), !!! kesalahan: & err.number & & err.description)
err.clear
kalau tidak
unikid = validlabel (label)
response.write unikid
Hubungi dbg_data.add (unikid, output)
akhiri jika
akhiri jika
akhir