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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
test.asp </P>
. X/ [3 [, k% Y8 A! ~0 s<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
7 m/ m$ m! F2 K0 F* z! R; |* E&lt;%
output="XXXX"
Set debugstr = New debuggingConsole
8 l/ W- {$ z- ~, u! Rdebugstr.Enabled = true
! K) d- H* l1 L! d　　 debugstr.Print "参数output的值", output
$ v# I3 \- Q6 a3 `4 O3 J* C　　 '……
- i- ~& b! B& ?. L  }0 r/ U　　 debugstr.draw
' o# a+ a$ R% k( d1 u5 R) V$ _5 q0 BSet debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
0 h/ t1 I$ M0 \5 R<>debuggingConsole.asp </P>
<>&lt;%
) g% `( q; D# @Class debuggingConsole </P>
<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
# j/ x; z! X3 y- v9 h　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
6 _* t" B9 j/ Y3 L- Z4 d; x. ?　　 private dbg_Show_default
　　 private DivSets(2)
8 y( a( h" O$ b8 D2 Z   
7 q6 P- v3 d( c0 _4 h'Construktor =&gt; set the default values
Private Sub Class_Initialize()
　　 dbg_RequestTime = Now()
1 Y) Y' ~8 T% _; z; ^0 b　　 dbg_AllVars = false
8 m0 u9 I/ U: Y3 B- x/ {1 {  ?　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
<>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>
<>　　 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>
<>　　 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>
<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
End Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
End Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
End Property </P>
2 Z" K6 V, i6 X. X( O& c# y& k* y<>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
; @, Q1 c3 G5 G$ ?0 q1 O" A: n　　 dbg_Show = bNewValue
End Property </P>
8 s0 G1 c; i% k' |8 W<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
End Property </P>
: @2 w+ P: t. K" g0 ~, I0 K<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
End Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
7 c! \* y7 |, R1 p( {End Property </P>
, q& E  O& w. Y$ c<>'***********************************************************
''@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 &gt; 0 then
　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
: g$ @' e/ K1 ~' a　　　　　　 err.Clear
; \0 W8 s  \7 y　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
% }# O, _% }* t. p& p　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
4 R9 z- w2 i" f9 `) y( w1 a　　 End If
# c  I; k6 F( b8 @0 n" OEnd Sub
  
'***********************************************************
'* ValidLabel
; N" O/ x+ A  m' V'***********************************************************
1 R  W+ r9 g* U( FPrivate Function ValidLabel(byval label)
: ]( M1 W, ?; v% P4 k# G/ @　　 dim i, lbl
+ k2 J# c/ N$ D/ N* B　　 i = 0
　　 lbl = label
) N* t$ X, v8 K　　 do
9 u4 g: `% E4 a/ \' F5 U　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
7 T8 k( M8 l! d8 g　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
  
　　 ValidLabel = lbl
8 S+ c! q" X6 p6 K6 w1 ZEnd Function
: o) B8 X8 f- Y: U6 o6 G$ @  
% M( V0 _2 W% F9 F6 V'***********************************************************
'* PrintCookiesInfo
8 a$ K# W, m' B'***********************************************************
$ d$ W5 n2 w/ G: pPrivate Sub PrintCookiesInfo(byval DivSetNo)
, G% P4 _$ ~$ Z3 M% C; i　　 dim tbl, cookie, key, tmp
; l- c$ q5 W$ F! C　　 For Each cookie in Request.Cookies
9 t, @7 _  A- q　　 If Not Request.Cookies(cookie).HasKeys Then
% c+ p' w, c1 }　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
　　　　 For Each key in Request.Cookies(cookie)
' S( n: w" u1 k7 A2 _. O. s8 ~　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
9 U& {3 k: t, |9 C9 Z   Next
) R( _- n8 e- J; W8 }* L　　 End If
; p* D5 D1 N* J, x2 ^　　 Next </P>
<>　　 tbl = MakeTable(tbl)
: W$ G! w/ i3 o* Z　　 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)
end sub
7 Z$ ?% @; M, z: X1 k# T' W  
8 ^. \& l( q7 P, B1 }'***********************************************************
'* PrintSummaryInfo
'***********************************************************
, D/ I$ T/ t4 ^' P" s4 D& d! [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")
! V( ~+ B  m7 }0 A% d0 e　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
　　 tbl = AddRow(tbl, "Status Code",Response.Status)
7 e& P" f" q1 e　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
　　 tbl = MakeTable(tbl)
! \8 j5 F8 D/ O$ U4 H　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
/ p- }4 T) D, c6 K! P' ^　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
Public Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
# [& e# |  i; ]% Z+ C6 E9 v0 s　　 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"))
4 i# _7 T: k* Z( y6 K- }" D　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
6 R  x9 O/ q; p* }* e) jEnd Sub <>'***********************************************************
3 R" f) x/ B5 y7 u; c3 A* z1 [1 d'* PrintDatabaseInfo
. ?" I+ P: d4 u! G'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
1 R! j) I5 p) h7 L  M. t2 Q　　 dim tbl
+ f1 \6 P( U+ `+ C" r8 J: @7 Y& W　　 tbl = MakeTable(dbg_DB_Data)
  s8 R3 @& N( Q* Z; a8 T1 n　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
'* PrintCollection
$ x8 Q5 `4 u% ~. v8 N'***********************************************************
/ x6 @# E- t( C% I/ k! y$ j9 |Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
; o/ ?  r& [$ @' O3 b9 [　　 For Each vItem In Collection
　　　　 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}")
+ z/ G3 C! a9 {  M, `# s' D5 ?2 W6 c　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
* C* k9 u9 R8 d. ^* f+ M% k　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
7 g+ m! N2 W+ {$ P1 [6 z　　　　 else
　　　　　　 if dbg_AllVars then
　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
$ f- V. R3 a/ B" d. d2 w; f　　　　　　 if Collection(vItem) &lt;&gt; "" then
3 f0 w, x, e. C; X% f$ G　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
8 F/ T1 G5 r8 K" [: D1 b8 U2 b% tEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
, G5 _* V" ]1 M　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
, O7 V( C- R! V9 N; g　　　　 end if
3 Q9 w0 t) `( t8 Z* I8 \5 @6 s　　 end if
　　 Next
1 K; x3 O6 r; K$ s　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
) d1 I) U, r: k) b　　 tbl = MakeTable(tbl)
, h' e* N. t7 k* A9 M2 i　　 if Collection.count &lt;= 0 then DivSetNo =2
& x  F0 N& X2 i　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
% h- E# R# O2 F0 x; ^6 t　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
/ `1 w& i0 }, S  
. d& [4 N! x  _'***********************************************************
+ D2 n+ }) N+ ^- X1 l5 B' @. |0 y" y'* AddRow
'***********************************************************
Private Function AddRow(byval t, byval var, byval val)
; \* f- b8 c  d3 e　　 t = t &amp; "|&lt;TR valign=top&gt;|&lt;TD&gt;|" &amp; var &amp; "|&lt;TD&gt;= " &amp; val &amp; "|&lt;/TR&gt;"
　　 AddRow = t
End Function </P><>'***********************************************************
'* MakeTable
, P) y& k5 b5 E+ E  a) W* l'***********************************************************
! i' ]9 |7 V- P9 q9 Y' v+ UPrivate Function MakeTable(byval tdata)
  R3 x0 m4 w, }3 |( r　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
$ ^9 G, T+ m- i$ ~3 p1 C' `3 }; SEnd Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
- g' U9 \$ @8 S9 i9 cPublic Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
$ T5 Z# E7 n' T* H* B; g  
" D' d& p$ U3 ~) Q' G　　 Dim DivSet, x
3 Q' }2 D0 D3 X) @+ u$ l& ~　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
/ B  A9 R3 @: \; h　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
2 B& j& l4 f6 p! [% `: [: r　　 Next
  
　　 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;"
6 P, Z: j& I3 `, O　　 Call PrintSummaryInfo(divSet(0))
　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
3 D3 P/ i# `* I: N: n　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
# e7 D& C% d( J5 C2 {　　  Call PrintCookiesInfo(divSet(4))
, U, c2 A; H2 L, ^, i: i: |　　  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))
( {4 s1 E# P+ D0 d4 ?7 }　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
9 u4 d) ~" L- [! p6 X+ V# r& i　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
( I$ M  h" k6 W, F( r" |# M  o5 r% g" s　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
; c* c( x3 x& Q# g. e7 n: H　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
　　 End If
End Sub </P><>'Destructor
9 x; ]/ l# ]1 N+ D# hPrivate Sub Class_Terminate()
/ Z1 O7 g6 O$ N- f7 p- [　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
- N; v0 x- R2 B- B" O! [Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
6 f; |% Q' q' P, `# v: L5 x% r&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
2 W( A( r8 [5 [3 E& R2 X# n  
& o9 f$ C) w4 H# t& x5 W2 Z4 HProperty 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
! W, D8 B7 W$ o. \  W' \7 q  
Property Get Show===[string] Gets the debugging panel.
  
& K+ X" O+ s/ A0 iProperty 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><>--------------------------------------------------------------------------------
Public Methods </P><>public sub===Print (label, output)
　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
& ?: C3 C% ^# g$ Z4 t# E( V+ {3 B6 K　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
. {3 S& h. p* ?- K& [9 t" T6 AMethods Detail
  
public sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
# Q0 k* o! ~! |0 U/ c( ~# jpublic sub===GrabDatabaseInfo (byval oSQLDB)
6 a* r" q+ ~: ]7 j7 _Parameters:  
$ }) u/ L% t$ t9 F* o5 D9 }- \/ C　　 - oSQLDB [object]: connection-object</P>