Je ne sais pas si les amis qui écrivent du code dans ASP ont le même sentiment que moi. puis la sortie liée liée à la sortie, voyons si elle est correcte. Il y a quelques jours, j'ai écrit mille lignes de page, qui contient environ sept ou huit sous / fonction.
J'ai vu une classe de débogage (VBS) dans ASP aujourd'hui, et je l'ai essayé.
La méthode d'utilisation est simple:
test.asp
<! - # include file = debuggingConsole.asp->
<%
sortie = xxxx
Définir Debugstr = New DebuggingConsole
Debugstr.enabled = true
Valeur de paramètre debugstr.print de la sortie, sortie
'...
Debugstr.Draw
Définir Debugstr = Rien
%>
=========================================.
DebuggingConsole.asp
<%
Class DebuggingConsole
dbg_enabled privé
DBG_SHOW privé
Privé dbg_requesttime
privé dbg_finishtime
DBG_DATA privé
dbg privé_db_data
Dbg_allvars privé
privé dbg_show_default
Prive Divsets (2)
'Construktor => définir les valeurs par défaut
Private Sub class_Initialize ()
dbg_requestTime = maintenant ()
dbg_allvars = false
définir dbg_data = server.createObject (scripting.dictionary)
Divsets (0) = <tr> <td style = 'curseur: hand;' onclick = javascript: if (dacument.getElementByid ('data # sectname #'). e ') {document.getElementyid (' data # sectname # ' ). Padding-Bottom: 2; # Titre # | <Div Id = # sectname # style = Cursor: Texte; Données # | </v> | </ div> |
Divulgations (1) = <tr> <td> <div id = sect # SELECT # style = Font-Weight: Bold; 4; AME # Style = Cursor: Texte;
Divulgottes (2) = <tr> <td> <div id = sect # sectname # style = # 7ea5d7; |
dbg_show_default = 0,0,0,0,0,0,0,0,0,0,0,0,0
Sub-Sub
La propriété publique Let LET (bool] set enable
dbg_enabled = bnewvalue
Propriété finale
La propriété publique est activée '' '[bool] obtient la valeur activée
activé = dbg_enabled
Propriété finale
Propriété publique Let Show (BNewValue) '' '' [String] Définit le panneau de débogage.
dbg_show = bnewvalue
Propriété finale
Propriété publique Get Show '' '[String] Obtient le panneau de débogage.
show = dbg_show
Propriété finale
Propriété publique Let Allvars (Bnewvalue) '' '
dbg_allvars = bnewvalue
Propriété finale
La propriété publique obtient Allvars '' '[bool] obtient si toutes les variables seront affichées.
allvars = dbg_allvars
Propriété finale
'************************************************* **************************************************** **************************************************** **************************************************** **************************************************** **************, *********************************** ************** *****************
'' @SDescription: ajoute une variable aux informations de débogage.
'' @param: -Label [String]: Description de la variable
'' @param: -output [variable]: la variable iTSET
'************************************************* **************************************************** **************************************************** **************************************************** **************************************************** **************, *********************************** ************** *****************
Public Sub Print (étiquette, sortie)
Si dbg_enabled alors
Si err.number> 0 alors
Appelez dbg_data.add (ValidLabel (étiquette), !!! Erreur: & err.number & & err.description)
err.Clear
autre
UNIQUEID = VALIDLABEL (Étiquette)
Response.Write UNIQUEID
Appelez DBG_DATA.ADD (UNIQUEID, sortie)
terminer si
terminer si
fin