Слова переводчика:
Я не знаю, есть ли у друзей, которые пишут код в ASP, то же самое, что и я. И затем вывод связанный связанный с этим давайте посмотрим, правильно ли это. Несколько дней назад я написал тысячу строк страницы, которая содержит около семи или восьми подразделений
Я видел урок отладки (VBS) в ASP и попробовал это.
Метод использования прост:
test.asp
<!-#include file = DebuggingConsole.asp->
<%
Выход = XXXX
SET DEBUGSTR = Новая отладка
Debugstr.enabled = true
DebugStr.print Параметр значения вывода, вывода
... ...
debugstr.draw
SET DEBUGSTR = ничего
%>
====================================================================
DebuggingConsole.asp
<%
Класс отладка
Приватный dbg_enabled
Частный DBG_SHOW
Частный DBG_REQUESTTIME
Частный dbg_finishtime
Частный DBG_DATA
Приватный DBG_DB_DATA
Частный DBG_ALLVARS
Private DBG_SHOW_DEFAULT
ПРИЗАЦИИ Divsets (2)
'Construktor => Установите значения по умолчанию
Private sub class_initialize ()
dbg_requesttime = now ()
dbg_allvars = false
Установить dbg_data = server.createObject (scripting.dictionary)
Divsets (0) = <tr> <td style = 'cursor: hand;' onclick = javascript: if (dacument.getelementbyid ('data#sectname#'). ) Стиль. ПЛАЗАЦИЯ: 2;#заголовок#|. Данные#|
Divsets (1) = <tr> <td> <div id = sect#select#style = font-weight: bold; 4; ame # style = cursor: text;
Divsets (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
Конец суб
Общественное свойство Let outdabled (bool] устанавливает включенные в True или False
dbg_enabled = bnewvalue
Конец собственности
Общественная недвижимость включена '' '[bool] получает включенное значение
enabled = dbg_enabled
Конец собственности
Общественная собственность Let Show (Bnewvalue) '' '[String] Устанавливает панель отладки.
dbg_show = bnewvalue
Конец собственности
Общественная собственность Get Show '' [String] получает панель отладки.
show = dbg_show
Конец собственности
Общественная собственность пусть Allvars (bnewvalue) '' ''
dbg_allvars = bnewvalue
Конец собственности
Общественная собственность получит Allvars '' [bool], если будут отображаться все переменные.
allvars = dbg_allvars
Конец собственности
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******************************* ************** *******************
'' @sdescription: добавляет переменную в информационные данные отладки.
'' @param: -label [String]: описание переменной
'' @param: -Output [variable]: переменная istet
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******************************* ************** *******************
Общедоступный суб -печати (метка, вывод)
Если dbg_enabled, то
Если err.number> 0, тогда
Вызовите dbg_data.add (validlabel (label), !!! error: & err.number & & err.description)
err.clear
еще
UniqueId = validlabel (метка)
response.write uniquidid
Позвоните dbg_data.add (уникальный