ASP里面令人震撼地Debug类（VBScript）(2)

　　 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))
Next
　　 End If
　　 Next
　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count <= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)