Não sei se os amigos que escrevem código no ASP têm o mesmo sentimento que eu. e, em seguida, relacionados à saída, relacionados, vamos ver se está correto. Alguns dias atrás, escrevi mil linhas de página, que contém cerca de sete ou oito sub/função
Eu vi uma aula de depuração (VBS) no ASP hoje e tentei.
O método de uso é simples:
test.asp
<!-#inclua arquivo = depurador de depuração.asp->
<%
saída = xxxx
Definir Debugstr = new DebuggingConsole
Debugstr.enabled = true
Debugstr.print Parameter Valor da saída, saída
'...
Debugstr.Draw
Definir Debugstr = nada
%>
============================================= =
DebuggingConsole.asp
<%
Classe DebuggingConsole
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 DIBLESTS (2)
'Construktor => Defina os valores padrão
Sub -classe privado_initialize ()
dbg_requesttime = agora ()
dbg_allvars = false
Definir dbg_data = server.createObject (script.dictionary)
divsets (0) = <tr> <td style = 'cursor: hand; ). Padding-Bottom: 2;#Título#| Dados#|
DivSets (1) = <tr> <td> <div id = Select#Selecione o estilo = peso-fonte: Bold; 4; AME # Style = Cursor: Texto;
DivSets (2) = <tr> <tdy> <div id = seita#SectName#Style = Background:#7ea5D7; |
dbg_show_default = 0,0,0,0,0,0,0,0,0,0,0,0,0
final sub
Propriedade pública Let Habiled (BOOL] Conjuntos ativados para True ou False
dbg_enabled = bNewValue
Propriedade final
A propriedade pública é ativada '' '[bool] recebe o valor ativado
ativado = dbg_enabled
Propriedade final
Propriedade pública Let Show (BNewValue) '' '' [String] define o painel de depuração.
dbg_show = bNewValue
Propriedade final
Propriedade pública Get Show '' '[String] Obtém o painel de depuração.
show = dbg_show
Propriedade final
Propriedade pública Deixe AllVars (BNewValue) '' '
dbg_allvars = bNewValue
Propriedade final
Propriedade pública Get AllVars '' '[bool] se todas as variáveis forem exibidas.
allvars = dbg_allvars
Propriedade final
'***************************************************** **************************************************** **************************************************** **************************************************** **************************************************** **************, *************************************** ************** *********************
'' @sdescription: adiciona uma variável às informações de depuração.
'' @param: -label [string]: descrição da variável
'' @param: -Output [variável]: a variável é
'***************************************************** **************************************************** **************************************************** **************************************************** **************************************************** **************, *************************************** ************** *********************
Public Sub Print (etiqueta, saída)
Se dbg_enabled então
se err.number> 0 então
Ligue para dbg_data.add (validLabel (etiqueta), !!! Erro: & err.number & e err.description)
err.clear
outro
exclusivo = ValidLabel (etiqueta)
Response.Write exclusivo
Ligue para dbg_data.add (exclusivo, saída)
final se
final se
fim