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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
% {5 y9 Q3 [+ V6 X% z8 R<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
test.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
) `1 x! h" |3 N0 Youtput="XXXX"
Set debugstr = New debuggingConsole
debugstr.Enabled = true
* K8 M5 c7 V) ]: g- ~' A　　 debugstr.Print "参数output的值", output
　　 '……
% u) ~' m( P: U6 }# Y; X+ f　　 debugstr.draw
Set debugstr = Nothing
%&gt; </P>
* }9 H6 N- |0 l<>=================================================== </P>
! ]1 r0 c. f" w- E<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
<>　　 private dbg_Enabled
/ [5 F  Y9 P# ?  z" i) x* w0 a　　 private dbg_Show
* E8 c" L- G5 }1 S6 n　　 private dbg_RequestTime
　　 private dbg_FinishTime
. y3 g7 i2 U, ?# q  n　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
# T# X4 b: A2 K　　 private dbg_Show_default
　　 private DivSets(2)
- w8 B9 S# X" g4 n   
1 [& a. m% K8 O# B7 N3 w( j6 S8 B'Construktor =&gt; set the default values
Private Sub Class_Initialize()
' r7 F' x) u4 [& y# ?4 C　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
9 k  m- B. Z1 t% R% E0 U4 b1 Q  J　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
2 p: D. }. r0 }7 Y1 B<>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>
  y2 O, l' x: V( ~1 b<>　　 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"
2 r0 M) y0 v+ Z; ]# A) EEnd Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
End Property </P>
8 H8 l% s% w; O: @* y<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
5 A, Z5 @( D, E  _% B% t4 I# [2 u　　 Enabled = dbg_Enabled
" G' U- v/ R7 P" P; YEnd Property </P>
+ [7 O- [; e4 E9 {) ?% N<>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
- m$ p6 z5 _& B0 c2 E　　 dbg_Show = bNewValue
End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
% }) @0 ?6 K1 H9 tEnd Property </P>
1 I0 v$ V" L0 y) c. C1 G( Y3 r<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
End Property </P>
0 d3 C. \, S/ {& F7 K. f<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
% |  s! H4 ?( ~8 T5 |7 x: u　　 AllVars = dbg_AllVars
End Property </P>
: A+ y) Q8 n1 u/ x& X3 W<>'***********************************************************
# T8 o- _  c- F''@SDESCRIPTION: Adds a variable to the debug-informations.
2 N* C5 X' F5 _; Q''@PARAM:  - label [string]: Description of the variable
& h% z2 }; r* k5 T''@PARAM:  - output [variable]: The variable itself
'***********************************************************
* {. I; X0 H# tPublic Sub Print(label, output)
8 s3 F  S) H/ E0 r/ j7 _2 C  l　　 If dbg_Enabled Then
" v' D2 e) B' B7 \6 o* ^6 z2 l, ?$ {　　　　 if err.number &gt; 0 then
　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
　　　　　　 err.Clear
9 c! p, v5 E  n　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
% f. i6 t+ @7 E/ _+ f　　　　　　 call dbg_Data.Add(uniqueID, output)
  ?1 w& G6 D5 Q/ }3 h# v( f  Y$ b　　　　 end if
) l$ F4 w. ]" {1 P- V- r  Q　　 End If
, w& ^, h' c1 l* S3 h: N4 ZEnd Sub
- [$ l% o; a/ V  
2 G0 r8 ^% g) s9 d0 [8 s'***********************************************************
'* ValidLabel
'***********************************************************
% _/ n+ O7 {" V4 w# e$ x- ^/ kPrivate Function ValidLabel(byval label)
6 f# t. ?6 x$ r5 O$ G4 r　　 dim i, lbl
; n/ S: D: @1 a9 o　　 i = 0
　　 lbl = label
　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
  
　　 ValidLabel = lbl
) x4 p8 K$ ]# p( A) v$ |* w: xEnd Function
  
'***********************************************************
'* PrintCookiesInfo
'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
/ v7 a, D# v4 E, S2 q　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
  s" f0 y* c/ i+ Z  S　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
) l- k) t$ y# C5 w$ Q: T　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
4 S$ S- t  q1 Z   Next
　　 End If
/ `4 s7 z% L$ ]1 W2 h, W　　 Next </P>
. W. P4 R$ A; O8 C# ]<>　　 tbl = MakeTable(tbl)
2 K8 C6 w4 J6 v/ V- @　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
, {5 Y. w( j- P  F　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
; v5 J# D" m9 S9 F% q0 C; S3 {  
'***********************************************************
'* PrintSummaryInfo
4 k) W& s7 V! ~- A$ ~'***********************************************************
* @7 j. Y6 V5 X% S" kPrivate Sub PrintSummaryInfo(byval DivSetNo)
　　 dim tmp, tbl
8 x' w) @3 k* t4 K1 w) q9 L& I　　 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)
  f/ G6 i, {: O# W  v% h0 d( V- F$ y4 F　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
" A7 {; y# r( F　　 tbl = MakeTable(tbl)
" m: M; r% S" l2 g　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
+ c& r; b1 m7 c: @; F6 J* w( F1 }& x　　 Response.Write replace(tmp,"|", vbcrlf)
/ c- T+ ?0 _% }End Sub </P>
# k, C4 T" ?4 ]& D$ t  D<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
1 N' [: x$ ]7 D& T3 T'***********************************************************
3 }, l2 x2 Z7 `2 @) B2 fPublic Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
+ d% N* _, t1 I% a! m) }% |6 A　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
5 ~- \9 E- T  w　　 dbg_DB_Data = AddRow</P>

韩冰

(dbg_DB_Data, "DBMS",oSQLDB.Properties("DBMS Name") &amp; " Ver: " &amp; oSQLDB.Properties("DBMS Version"))
' K2 X8 F) D# l, @$ J+ Z4 }( Q0 k　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
! M! i+ [9 M. H6 k. _End Sub <>'***********************************************************
'* PrintDatabaseInfo
8 l/ z. ]/ \) ?; I& V8 i: g'***********************************************************
8 @; M/ @8 N# @0 u8 FPrivate Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
( R) j* l) h( I　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
" q& ~# V. j0 ^6 t0 x( v　　 Response.Write replace(tbl,"|", vbcrlf)
' \, Q. [  z1 }3 B2 D- nEnd Sub </P><>'***********************************************************
% N5 x& P9 N; {2 ]) A, y, E! N'* PrintCollection
'***********************************************************
/ c. _5 g, c1 r% P0 ^- F5 bPrivate Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
! ~9 }' K# D& t* ?- v0 r　　 For Each vItem In Collection
: c+ i- Q7 s; U6 ?5 u; |　　　　 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
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
! y# R6 ^! n8 Q$ V4 p1 r5 \　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
- o! K1 n6 E& `$ g1 v+ L1 `　　　　　　 if dbg_AllVars then
9 X+ p( K% Y" q/ Z) u" }( |9 ~　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
8 f+ ~9 R$ j. c7 S8 `: B2 O/ Z　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
) S' c. d, B2 `! {5 d- O3 F$ X) u　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
/ S5 O1 l2 N8 S6 t# y4 g　　　　　　 else
  S# o- u- v. V& B　　　　　　 tbl = AddRow(tbl, vItem, "...")
+ Q& Y. L$ T& ~& ^/ a7 l) q9 E　　　　　　 end if
9 O5 g3 b2 ?3 O5 X+ U8 [9 }　　　　 end if
　　 end if
& p+ p9 @+ O# B" \. z　　 Next
" u6 v- C$ q0 L8 q　　 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)
* f: _% L4 N# m# |; _　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
+ S4 M" k* n# U( |  s, N# @  
'***********************************************************
$ z. Q# J7 d5 i: G- F. I9 s5 R9 }' b'* AddRow
'***********************************************************
1 P$ w! c, g9 j" z+ {Private Function AddRow(byval t, byval var, byval val)
) y. b' U2 H7 U3 W　　 t = t &amp; "|&lt;TR valign=top&gt;|&lt;TD&gt;|" &amp; var &amp; "|&lt;TD&gt;= " &amp; val &amp; "|&lt;/TR&gt;"
- E2 S. L& h1 d' s4 H　　 AddRow = t
End Function </P><>'***********************************************************
0 g4 I# [: L4 o, E" e/ `'* MakeTable
8 t* }1 F, v; i. x, y'***********************************************************
/ u. @1 o/ u$ ~, {  kPrivate Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
! h5 S; [1 Z- u$ Z　　 MakeTable = tdata
End Function </P><>'***********************************************************
5 o$ W9 g. k5 _, W, D2 l( W  |''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
$ @; J3 \% ^5 v+ j& BPublic Sub draw()
$ u: g/ d2 H! z6 K3 N# Y　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
  
4 j; Q7 ], c- f. k' k4 b$ j　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
* u% Q) x: i! n　　   dbg_Show = split(dbg_Show,",")
  
( h) k: `* i0 T9 |　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
) l3 D2 Z" C+ _' A  z　　 Next
( ?% o9 U1 }1 a9 W) R5 R  
* f$ }! ?& Y8 G4 W　　 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;"
# T* A! X9 d/ C. o8 W: s8 S　　 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 &amp; " (&amp;H" &amp; Hex(Session.LCID) &amp; ")"),"Code Page",Session.CodePage),"Session ID",Session.SessionID))
/ n* J- s" K8 x* P) F$ P) _　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
2 B$ a5 f/ C7 ?% [　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
# N) C) g: t! ]% N　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
' Z, u6 \5 z. t/ x% B# B4 v% J: A' q　　 End If
4 X4 J3 I- x- U! c  LEnd Sub </P><>'Destructor
; F( Q2 {: ]; s7 X' wPrivate Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
0 @4 w. L2 `; p5 |2 t7 t& H2 X&amp;n
& H" m) m3 V) c* L& B4 A! zbsp;
0 z- c: c. y8 eProperty Get Enabled===[bool] Gets the "enabled" value
7 Y1 W# V7 @  N  
  a% ?# g: Y  P: U- ^# ~; J  {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
5 c; f/ T+ q" A* r. q  
Property Get Show===[string] Gets the debugging panel.
& R2 |% E3 |! ]0 }& u* Q, K  
  {2 b* V8 S# fProperty 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><>--------------------------------------------------------------------------------
0 q  Y& t# B( z6 X; l, mPublic Methods </P><>public sub===Print (label, output)
/ c) j( B* e1 ^) T4 U　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
0 i/ d" P; a2 E& i' _　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
. c% r2 ]" u4 W$ gMethods Detail
& D+ N# \: B% A( Z/ u  
' r" o* ^& h: e5 s# d2 _public sub===Print (label, output)
) [9 I$ {8 ~* y( Q/ lParameters:  
　　 - label [string]: Description of the variable
$ M0 Z( u9 v* X, p' P5 M　　 - output [variable]: The variable itself
% E8 h% c- q& |  
6 [3 u8 ]6 K) W' m" b8 Y6 vpublic sub===GrabDatabaseInfo (byval oSQLDB)
# r  j( h6 X" _# S8 w, m3 `7 MParameters:  
　　 - oSQLDB [object]: connection-object</P>