No sé si los amigos que escriben código en ASP tienen la misma sensación que yo. Y luego la salida relacionada relacionada, veamos si es correcto. Hace unos días escribí mil líneas de Page, que contiene aproximadamente siete u ocho funciones.
Vi una clase de depuración (VBS) en ASP hoy, ¡y lo probé.
El método de uso es simple:
test.asp
<!-#include file = debuggingconsole.asp->
<%
salida = xxxx
Establecer debugStr = nuevo debuggingconsole
Debugstr.enabled = True
DebugStr.Print Parámetro Valor de salida, salida
'...
debugstr.draw
establecer debugstr = nada
%>
=========================================== =
depurgingconsole.asp
<%
CONSOLO DE LA CLASE
privado dbg_enabled
DBG_SHOW privado
DBG_REQUESTTIME privado
privado dbg_finishtime
DBG_DATA privado
DBG_DB_DATA privado
DBG_Allvars privado
privado dbg_show_default
Prive divsets (2)
'Construktor => Establecer los valores predeterminados
Sub class_initialize () privado ()
dbg_requesttime = ahora ()
dbg_allvars = falso
establecer dbg_data = server.createObject (scripting.dictionary)
divsets (0) = <tr> <td style = 'cursor: hand;' ) Play-Bottom: 2;#Título#| Datos#|
Divsets (1) = <tr> <td> <Div ID = Sect#Select#Style = Font-Weight: Bold; 4; ame # style = cursor: texto;
Divsets (2) = <tr> <TD> <Div ID = Sect#Sectname#Style = Background:#7EA5D7; |
dbg_show_default = 0,0,0,0,0,0,0,0,0,0,0,0,0
final
Propiedad pública Let habilitado (bool] conjuntos habilitados para verdadero o falso
dbg_enabled = bnewValue
Propiedad final
Propiedad pública Obtener habilitado '' '[bool] Obtiene el valor habilitado
habilitado = dbg_enabled
Propiedad final
Propiedad pública Show (BNewValue) '' '' '[String] Establece el panel de depuración.
dbg_show = bnewValue
Propiedad final
Propiedad pública Get Show '' '' [String] obtiene el panel de depuración.
show = dbg_show
Propiedad final
Propiedad pública Deje Allvars (BNewValue) '' '
dbg_allvars = bnewValue
Propiedad final
La propiedad pública obtiene Allvars '' '[bool] si se mostrarán todas las variables.
allvars = dbg_allvars
Propiedad final
'********************************************** **** ********************************************** **** *****************
'' @sdescription: agrega una variable a las informaciones de depuración.
'' @param: -label [cadena]: descripción de la variable
'' @param: -output [variable]: la variable ITSET
'************************************************ **** ********************************************** **** *****************
Public Sub Print (etiqueta, salida)
Si dbg_enabled entonces
Si err.number> 0 entonces
Llame a dbg_data.add (valllabel (etiqueta), !!! Error: & err.number & & err.description)
Err.Clear
demás
uniqueID = válidoLabel (etiqueta)
Respuesta. Escribe uniqueid
Llame a dbg_data.add (uniqueID, salida)
final si
final si
fin