dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0" End Sub
Public Property Let Enabled(bNewValue) ‘‘[bool] Sets "enabled" to true or false dbg_Enabled = bNewValue End Property Public Property Get Enabled ‘‘[bool] Gets the "enabled" value Enabled = dbg_Enabled End Property
Public Property Let Show(bNewValue) ‘‘[string] Sets the debugging panel. Where each digit in the string represents a debug information pane in order (11 of them). 1=open, 0=closed dbg_Show = bNewValue End Property Public Property Get Show ‘‘[string] Gets the debugging panel. Show = dbg_Show End Property
Public Property Let AllVars(bNewValue) ‘‘[bool] Sets wheather all variables will be displayed or not. true/false dbg_AllVars = bNewValue End Property Public Property Get AllVars ‘‘[bool] Gets if all variables will be displayed. AllVars = dbg_AllVars End Property
‘****************************************************************************************************************** ‘‘@SDESCRIPTION: Adds a variable to the debug-informations. ‘‘@PARAM: - label [string]: Description of the variable ‘‘@PARAM: - output [variable]: The variable itself ‘****************************************************************************************************************** Public Sub Print(label, output) If dbg_Enabled Then if err.number > 0 then call dbg_Data.Add(ValidLabel(label), "!!! Error: " & err.number & " " & err.Description) err.Clear else uniqueID = ValidLabel(label) response.write uniqueID call dbg_Data.Add(uniqueID, output) end if End If End Sub
‘****************************************************************************************************************** ‘* ValidLabel ‘****************************************************************************************************************** Private Function ValidLabel(byval label) dim i, lbl i = 0 lbl = label do if not dbg_Data.Exists(lbl) then exit do i = i + 1 lbl = label & "(" & i & ")" loop until i = i
ValidLabel = lbl End Function
‘****************************************************************************************************************** ‘* PrintCookiesInfo ‘****************************************************************************************************************** Private Sub PrintCookiesInfo(byval DivSetNo) dim tbl, cookie, key, tmp For Each cookie in Request.Cookies If Not Request.Cookies(cookie).HasKeys Then tbl = AddRow(tbl, cookie, Request.Cookies(cookie)) Else For Each key in Request.Cookies(cookie) tbl = AddRow(tbl, cookie & "(" & key & ")", Request.Cookies(cookie)(key)) |