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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
" y: z! Y" Q+ @! \<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
& y9 R  W6 I) n1 x$ I) Q* I使用方法很简单：
: I- I, B1 C: Wtest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
: E: v) }+ t  D9 N% r; L% Y&lt;%
output="XXXX"
& s) j; I( _6 P0 `2 W; \Set debugstr = New debuggingConsole
- u5 P8 o) x+ @. G! Rdebugstr.Enabled = true
+ R$ O' W. _9 n0 l% ^& l4 P; F3 x　　 debugstr.Print "参数output的值", output
- ?1 l4 ]4 m" ~( y/ w# |　　 '……
　　 debugstr.draw
: H0 n3 n2 K) Z8 [) KSet debugstr = Nothing
%&gt; </P>
* X, |# p6 b5 V6 }<>=================================================== </P>
<>debuggingConsole.asp </P>
" z# f( `' P" e/ ^6 L, V% l<>&lt;%
" A- F7 n# M& R7 b6 y# F' cClass debuggingConsole </P>
2 Q/ s/ A8 Y0 y/ z' |<>　　 private dbg_Enabled
　　 private dbg_Show
4 Z7 L) X* D2 p. f. r: x　　 private dbg_RequestTime
　　 private dbg_FinishTime
. h2 d) i# o; V( h* z9 b5 w+ F6 L; v　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
; s; E% E8 I2 U$ N# N; a6 v+ \　　 private dbg_Show_default
0 P7 d& t% E: I" h6 x" c$ K　　 private DivSets(2)
   
'Construktor =&gt; set the default values
Private Sub Class_Initialize()
; [* D1 b. {" Z2 D% F# r　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
' v# ^. F3 D/ C! k8 x<>DivSets(0) = "&lt;TR&gt;&lt;TD style='cursor:hand;' onclick=""javascript:if (document.getElementById('data#sectname#').style.display=='none'){document.getElementById('data#sectname#').style.display='block';}else{document.getElementById('data#sectname#').style.display='none';}""&gt;&lt;DIV id=sect#sectname# style=""font-weight:bold;cursor:hand;background:#7EA5D7;color:white;padding-left:4;padding-right:4;padding-bottom:2;""&gt;|#title#| &lt;DIV id=data#sectname# style=""cursor:text;display:none;background:#FFFFFF;padding-left:8;"" onclick=""window.event.cancelBubble = true;""&gt;|#data#| &lt;/DIV&gt;|&lt;/DIV&gt;|" </P>
* j8 p4 B% x9 H# ?, J, l2 h<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
&lt;DIV id=sect#sectname# style=""font-weight:bold;cursor:hand;background:#7EA5D7;color:white;padding-left:4;padding-right:4;padding-bottom:2;"" onclick=""javascript:if (document.getElementById('data#sectname#').style.display=='none'){document.getElementById('data#sectname#').style.display='block';}else{document.getElementById('data#sectname#').style.display='none';}""&gt;|#title#| &lt;DIV id=data#sectname# style=""cursor:text;display:block;background:#FFFFFF;padding-left:8;"" onclick=""window.event.cancelBubble = true;""&gt;|#data#| &lt;/DIV&gt;|&lt;/DIV&gt;|" </P>
( M2 V* T7 K8 {( P<>　　 DivSets(2) = "&lt;TR&gt;&lt;TD&gt;&lt;DIV id=sect#sectname# style=""background:#7EA5D7;color:lightsteelblue;padding-left:4;padding-right:4;padding-bottom:2;""&gt;|#title#| &lt;DIV id=data#sectname# style=""display:none;background:lightsteelblue;padding-left:8""&gt;|#data#| &lt;/DIV&gt;|&lt;/DIV&gt;|" </P>
& T* b1 Z$ F; w<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
3 S' p; {& Z$ u3 W% q& c3 W' cEnd Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
: v% J& T. i7 E　　 dbg_Enabled = bNewValue
End Property </P>
  {  ]! ^  P/ `& G6 H4 ?2 b0 {<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
End Property </P>
<>ublic 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
* a" o  t" M' h& c　　 dbg_Show = bNewValue
End Property </P>
. T9 }4 p) E# [4 Z4 k<>ublic Property Get Show ''[string] Gets the debugging panel.
! G( n/ V) X1 u, u4 A3 j5 X3 J　　 Show = dbg_Show
End Property </P>
<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
# q: O* ^5 |) T  j) Y  ]/ AEnd Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
' v$ n: P9 A6 SEnd Property </P>
<>'***********************************************************
" R' {* |5 k" i" f; O''@SDESCRIPTION: Adds a variable to the debug-informations.
/ y; ^9 x# V) q- U; X) h+ M''@PARAM:  - label [string]: Description of the variable
$ @; A4 f1 \5 x: w$ Z7 p2 m''@PARAM:  - output [variable]: The variable itself
'***********************************************************
Public Sub Print(label, output)
　　 If dbg_Enabled Then
! i7 n9 @1 k! y1 K　　　　 if err.number &gt; 0 then
& A6 Q$ C) r8 P' F　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
) K4 b: u6 h+ V　　　　　　 err.Clear
. K2 _' `5 b: A　　　　 else
; @* Y+ g. v  m& Q　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
) {) l/ P( B: n8 s( L　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
% r/ X% f" |  b! x: x, TEnd Sub
  
'***********************************************************
'* ValidLabel
, x- W# O& N. y1 f1 j3 T'***********************************************************
& O! l& T2 h$ _1 h: ~" @/ R  V8 WPrivate Function ValidLabel(byval label)
" B" {! c: T- T# s　　 dim i, lbl
# j8 F% {! h& q9 _　　 i = 0
　　 lbl = label
　　 do
- h4 }: ]* {9 f# H: q　　 if not dbg_Data.Exists(lbl) then exit do
$ f) K$ X& D0 f　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
( |8 R% A' e$ o2 q8 s9 |! o　　 loop until i = i
  
　　 ValidLabel = lbl
End Function
  
'***********************************************************
'* PrintCookiesInfo
'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
" n. Z9 F- [6 [- h　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
& g/ K1 ~9 K- B9 l　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
% W7 A* {' |; e# i0 I! ]+ F  ]　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
3 m- Z$ E% Y% x( @0 O" mCookies(cookie)(key))   
   Next
' a) Z+ `7 C! v( p( ~6 P　　 End If
8 M8 y6 b2 R" i3 i! D1 m7 N% `　　 Next </P>
<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
  h0 d' ^  r. U4 T) D( r3 I2 zend sub
  
'***********************************************************
% v. @2 ~% L% J+ [/ u" Y* k'* PrintSummaryInfo
* B( T; U. w* w- v* C! |'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
　　 tbl = MakeTable(tbl)
& v% T# O3 ], a( @" N, _, T　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
& |' W" H$ R: x9 w# C- l<>'***********************************************************
9 @; e4 ?5 V+ x( e/ I- U) K" w7 r& b''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
3 o1 \. j. f: U, Z''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
5 I. t4 c# q& Q- TPublic Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
- b+ `- p* g. l& B' C　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
　　 dbg_DB_Data = AddRow</P>

韩冰

(dbg_DB_Data, "DBMS",oSQLDB.Properties("DBMS Name") &amp; " Ver: " &amp; oSQLDB.Properties("DBMS Version"))
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
0 i5 V5 L% z6 ~5 rEnd Sub <>'***********************************************************
'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
, g* r  ^1 ~1 K4 K　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
9 ?$ z, d: J( B  B1 m　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
! @. O$ n( V3 P4 b　　 Response.Write replace(tbl,"|", vbcrlf)
- B6 F' ]# ~! R4 D4 A9 qEnd Sub </P><>'***********************************************************
4 R) U3 g, p: M  c. y3 c'* PrintCollection
: a9 B' |- o1 a+ ^'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
8 D( U- m) ~: Q. ^, n　　 For Each vItem In Collection
3 L$ A0 @1 I  B1 |* z/ v2 _　　　　 if isobject(Collection(vItem)) and Name &lt;&gt; "SERVER VARIABLES" and Name &lt;&gt; "QUERYSTRING" and Name &lt;&gt; "FORM" then
　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
$ |' t$ z4 k( D  b　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
　　　　　　 if dbg_AllVars then
: J2 D( S: X% t2 B3 O$ V　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
4 {; M1 S" ]' K/ Z　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
) m5 J4 j% ?4 k7 L) n　　　　　　 else
: M/ @+ l- I  i8 D/ s" x; B8 K　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
　　　　 end if
　　 end if
0 |3 R* p7 ]5 k1 X1 E8 C7 q　　 Next
　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
　　 tbl = MakeTable(tbl)
　　 if Collection.count &lt;= 0 then DivSetNo =2
　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
1 c% v8 C! ?) d: c- O* l　　　　 Response.Write replace(tbl,"|", vbcrlf)
7 c" B' I" r" x/ b; I( @End Sub
: u. Y" K9 k: N- }3 i( x  
'***********************************************************
4 S* n2 M8 s$ [1 o! S'* AddRow
* R  S# _% `/ t  x. B'***********************************************************
Private Function AddRow(byval t, byval var, byval val)
　　 t = t &amp; "|&lt;TR valign=top&gt;|&lt;TD&gt;|" &amp; var &amp; "|&lt;TD&gt;= " &amp; val &amp; "|&lt;/TR&gt;"
. W$ I  u, G7 K6 l/ ~　　 AddRow = t
End Function </P><>'***********************************************************
'* MakeTable
'***********************************************************
Private Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
End Function </P><>'***********************************************************
* C! f% W4 \! S6 |- ^$ ^9 d''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
0 H" v6 |7 ?! B2 DPublic Sub draw()
9 u) B7 i4 q, _7 e3 P　　 If dbg_Enabled Then
' Y- `  z' t% N& f* b+ W* _9 d　　　　 dbg_FinishTime = Now()
+ f# p$ F* Z$ V' H( e& x  ]; A  
　　 Dim DivSet, x
" h( y5 \  j3 k3 j; ~5 A　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
5 z- ^- t  H' ]* q) [　　 For x = 0 to ubound(dbg_Show)
4 e. @, t7 R' E- ^9 R; c' G% |　　　　 divSet(x) = dbg_Show(x)
　　 Next
  q6 l" j. V. ]$ e  
) a, ]; f& ]7 p! |, V  @. J　　 Response.Write "&lt;BR&gt;&lt;Table width=100% cellspacing=0 border=0 style=""font-family:arial;font-size:9pt;font-weight:normal;""&gt;&lt;TR&gt;&lt;TD&gt;&lt;DIV style=""background:#005A9E;color:white;padding:4;font-size:12pt;font-weight:bold;""&gt;Debugging-console:&lt;/DIV&gt;"
- e# N# z6 m3 E7 H( M　　 Call PrintSummaryInfo(divSet(0))
8 c* R! E; f. X. n, J( p2 n* h# ^　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
' C" w6 K# {# Z% T　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
- Y+ U# g8 \/ e* k# E9 @9 D- }8 @　　  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 &amp; " (&amp;H" &amp; Hex(Session.LCID) &amp; ")"),"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))
- g4 P6 L4 G: Z( p* w" v& P　　  Call PrintDatabaseInfo(divSet(8))
! r& G: \/ }: X" |& d6 Q4 X　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
; v7 A' ]' @: _/ A( x　　  Response.Write "&lt;/Table&gt;"
　　 End If
6 k, Z% Q, I8 \* C# }; `/ ?+ fEnd Sub </P><>'Destructor
Private Sub Class_Terminate()
9 ?- l- |+ v3 w　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
* @1 r; B# l' }6 SCLASS debuggingConsole
& ?. b: @' y* T5 o  cVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
  ^* e8 a6 `& [; V&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
* o  s4 q6 b% t& K$ W, ~' n3 w  
8 c, n' l2 h% D2 Y: EProperty 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
  `! `2 f; A* L' k1 e! Y$ [  
# n# ^1 v  y, gProperty Get Show===[string] Gets the debugging panel.
  
Property Let AllVars(bNewValue)===[bool] Sets wheather all variables will be displayed or not. true/false </P><>roperty Get AllVars===[bool] Gets if all variables will be displayed.  </P><>--------------------------------------------------------------------------------
3 j, l5 |$ [0 \Public Methods </P><>public sub===Print (label, output)
6 k7 k' W5 ?0 u1 O5 A$ u& |　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
( l& B2 H1 I" E! |' f7 g" e- r　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
2 }% j* T/ v* k( D( K  z3 w+ P5 q: M% t　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
  
public sub===Print (label, output)
/ n% H# i2 j1 m3 ^" m  dParameters:  
% ^) K! h$ e% T- I　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
8 |$ K( _# q& L9 ~; H) C  
public sub===GrabDatabaseInfo (byval oSQLDB)
$ J* X! z$ w# V1 e. p3 \% `* G, `Parameters:  
7 v8 M4 L+ X3 i8 A" S　　 - oSQLDB [object]: connection-object</P>