Ich weiß nicht, ob Freunde, die Code in ASP schreiben, das gleiche Gefühl haben wie ich. und dann zu verwandtem ausgabe sehen, sehen wir, ob es korrekt ist. Vor ein paar Tagen habe ich tausend Zeilen von Seite geschrieben, die ungefähr sieben oder acht Sub/Funktionen enthält
Ich habe heute eine Debug -Klasse (VBS) in ASP gesehen und es nie versucht!
Die Verwendungsmethode ist einfach:
test.asp
<!-#include file = debuggingconsole.asp->
<%
Ausgabe = xxxx
Setzen Sie Debugstr = neue Debuggingconsole
Debugstr.enabled = true
Debugstr.print Parameterwert der Ausgabe, Ausgabe
'...
Debugstr.draw
Setzen Sie Debugstr = nichts
%>
=========================================== =
Debuggingconsole.asp
<%
Klassendebuggingconsole
private dbg_enabled
private dbg_show
Private dbg_requesttime
private dbg_finishtime
Private dbg_data
private dbg_db_data
Private dbg_allvars
private dbg_show_default
Prive Divsets (2)
'Constuktor => Setzen Sie die Standardwerte
Private sub class_initialize ()
dbg_requesttime = jetzt ())
dbg_allvars = false
Setzen Sie dbg_data = server.createObject (scripting.Dictionary)
Divsets (0) = <tr> <td style = ' ). Padding-Bottom: 2;#Titel#| Daten#|
Divsets (1) = <TR> <TD> <DIV ID = SECT#SELTE#STYLE = FONT-WIGHT: BOLD; 4; AME # style = cursor: text;
Divsets (2) = <Tr> <td> <div id |
dbg_show_default = 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Ende sub
Öffentliche Eigenschaften LET AUFALD (BOOL] -Setze für true oder false
dbg_enabled = bNewValue
Beenden Sie Eigentum
Öffentliches Eigentum erhalten Sie aktiviert. [Bool] erhält den aktivierten Wert
enabled = dbg_enabled
Beenden Sie Eigentum
Öffentliche Eigenschaft LET Zeigen (BNewValue) '' '[String] Legt das Debugging -Panel fest.
dbg_show = bNewValue
Beenden Sie Eigentum
Öffentliche Eigentum erhalten Sie Show '' '[String] erhält das Debugging -Panel.
show = dbg_show
Beenden Sie Eigentum
Öffentliches Eigentum Let Allvars (BNewValue) '' '
dbg_allvars = bNewValue
Beenden Sie Eigentum
Öffentliches Eigentum erhalten Alvars '' [bool], wenn alle Variablen angezeigt werden.
Allvars = dbg_allvars
Beenden Sie Eigentum
'****************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** ****************************************************** ************************************
'' @Sdescription: Fügt den Debug-Informationen eine Variable hinzu.
'' @param: -label [String]: Beschreibung der Variablen
'' @param: -output [Variable]: Die Variable ITSETET
'****************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** ****************************************************** ************************************
Öffentlicher Unterdruck (Etikett, Ausgabe)
Wenn dbg_enabled dann
wenn err.number> 0 dann
Rufen Sie dbg_data.add (validLabel (Etikett), !!! Fehler: & err.number & & Err.Description) aufrufen
err.clear
anders
UniqueId = validLabel (Etikett)
Response.write UniqueId
Rufen Sie dbg_data.add (UniqueId, Ausgabe) auf
Ende wenn
Ende wenn
Ende