ASP中令人震撼的Debug类（VBScript）

"
MakeTable = tdata
End Function

'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
Public Sub draw()
If dbg_Enabled Then
dbg_FinishTime = Now()
 
Dim DivSet, x
DivSet = split(dbg_Show_default,",")
   dbg_Show = split(dbg_Show,",")
 
For x = 0 to ubound(dbg_Show)
divSet(x) = dbg_Show(x)
Next
 
Response.Write "<BR><Table width=100% cellspacing=0 border=0 style=""font-family:arial;font-size:9pt;font-weight:normal;""><TR><TD><DIV style=""background:#005A9E;color:white;padding:4;font-size:12pt;font-weight:bold;"">Debugging-console:</DIV>"
Call PrintSummaryInfo(divSet(0))
   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
  Call PrintCookiesInfo(divSet(4))
  Call PrintCollection("SESSION", Session.Contents(),divSet(5),AddRow(AddRow(AddRow("","Locale ID",Session.LCID & " (&H" & Hex(Session.LCID) & ")"),"Code Page",Session.CodePage),"Session ID",Session.SessionID))
  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
  Call PrintDatabaseInfo(divSet(8))
  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
  Response.Write "</Table>"
End If
End Sub

'Destructor
Private Sub Class_Terminate()
Set dbg_Data = Nothing
End Sub

End Class

%>

类的说明：


CLASS debuggingConsole
Version: 1.2

--------------------------------------------------------------------------------

Public Properties

Property Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
 
Property Get Enabled===[bool] Gets the "enabled" value
 
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
 
Property Get Show===[string] Gets the debugging panel.
 
Property Let AllVars(bNewValue)===[bool] Sets wheather all variables will be displayed or not. true/false

Property Get AllVars===[bool] Gets if all variables will be displayed. 

--------------------------------------------------------------------------------
Public Methods

public sub===Print (label, output)
Adds a variable to the debug-informations. 

public sub===GrabDatabaseInfo (byval oSQLDB)
Adds the Database-connection object to the debug-instance. To display Database-information 

public sub===draw ()
Draws the Debug-panel 

--------------------------------------------------------------------------------
Methods Detail
 
public sub===Print (label, output)
Parameters: 
- label [string]: Description of the variable
- output [variable]: The variable itself
 
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters: 
- oSQLDB [object]: connection-object（出处：viphot）

关键词：ASP中令人震撼的Debug类（VBScript）