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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
9 }/ X- B- ~( T6 |test.asp </P>
* s- q+ T4 r5 K! D<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
$ m; e9 G3 ?" v. Q& F1 j: u8 T# k& T&lt;%
output="XXXX"
Set debugstr = New debuggingConsole
" ]( t- Q( ^3 L, ?. w6 \3 gdebugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
　　 '……
　　 debugstr.draw
Set debugstr = Nothing
" M2 Y+ z7 a( Y: t. v6 n%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
: z0 m! U: H6 G) E& z　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
7 D+ Q5 C$ ]& _- l　　 private dbg_AllVars
' t5 n# s4 Z* g3 w) R1 s. f( s　　 private dbg_Show_default
( r: [) o3 Y; @　　 private DivSets(2)
   
'Construktor =&gt; set the default values
6 h. F- H! u: V" E: G5 N4 |Private Sub Class_Initialize()
　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
* t6 t3 H: P, Z% }" n1 C; W+ S4 j* |　　 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>
) s* J9 t! m6 k5 }; [3 v+ ?) l9 j7 a& V* p<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
. V1 m4 B  O/ x" N$ v&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>
; P( A. @3 s2 |5 C# F2 H3 A! n<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
0 U4 R* u5 V$ H8 W1 B& X; k5 SEnd Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
End Property </P>
9 A$ N" l7 j; c) f<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
# i8 B0 y7 u5 j, @" B$ v9 iEnd 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
1 g* n( c: z6 f& F' B9 L　　 dbg_Show = bNewValue
  K4 _9 N% P( D5 S$ xEnd Property </P>
# j! e( [9 l' ?) g<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
End Property </P>
0 t8 l% m1 E; r' D+ `$ A' }<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
: K4 {( v" @. p. N, \$ G　　 dbg_AllVars = bNewValue
End Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
End Property </P>
- R5 q9 D. F9 a. F<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
1 q+ u0 Z- ^( @1 u''@PARAM:  - output [variable]: The variable itself
; Z8 @1 p9 z3 K! }& U4 A'***********************************************************
Public Sub Print(label, output)
& T# |- v' j- K  q6 W$ l" ?　　 If dbg_Enabled Then
1 t) M& r$ w3 [2 m" i　　　　 if err.number &gt; 0 then
  y  V: b- p+ D2 |+ g& u- ^7 [3 Y　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
　　　　　　 err.Clear
( n9 R3 `$ R% `/ r　　　　 else
) P9 o' i9 L/ \1 Z' V　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
& f# v. b4 b+ {* C# k" TEnd Sub
  
'***********************************************************
. {0 K! \& q" v( H  T  |'* ValidLabel
'***********************************************************
Private Function ValidLabel(byval label)
1 k# [( d8 m6 I　　 dim i, lbl
' Z/ `  [6 l6 y3 g) s8 T( [9 ], N　　 i = 0
2 D( q8 h" y0 O3 Y; g+ w2 M+ k　　 lbl = label
. g# Q7 a8 X7 {; v　　 do
' `9 ?, v- R2 u- @　　 if not dbg_Data.Exists(lbl) then exit do
, K, F. S, m* x" y5 ?3 x　　 i = i + 1
. K2 O) E7 y1 B8 I5 f& N6 R　　 lbl = label &amp; "(" &amp; i &amp; ")"
$ E+ u2 _/ t/ \　　 loop until i = i
  
6 J/ j- @# q2 [8 y4 H! v5 x　　 ValidLabel = lbl
4 O, j' K/ s) q7 u' r, aEnd Function
  
* c7 I' C4 u8 w$ d9 i% r7 j'***********************************************************
'* PrintCookiesInfo
# R0 r; q  E* x, c- V- p'***********************************************************
2 C6 _7 {) e" b/ O( q1 `  x3 XPrivate Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
& z/ U/ c! b; J: x　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
* X( D, q! E- D1 t' X6 u　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
, i$ O( q0 I+ d; T0 vCookies(cookie)(key))   
   Next
　　 End If
　　 Next </P>
/ i' u! X+ Y' S  u& v<>　　 tbl = MakeTable(tbl)
/ I0 D+ q+ s; j4 @8 \5 b- Y　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
* ]3 D% t; d" `# l) g3 J　　 Response.Write replace(tmp,"|", vbcrlf)
* d5 M% s$ D' K" G1 pend sub
" c1 g7 p5 u4 E  
$ E8 J. f- z3 H( d6 g2 Q1 Y5 L) x'***********************************************************
4 F$ i8 y5 }0 c3 f- A5 D, C# l& J'* PrintSummaryInfo
'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
2 o) n, A; m# Z" B3 n) O/ h　　 dim tmp, tbl
( Y  u2 W9 Y' Z) q　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
. y4 r* Z  q7 J6 ~' m4 v; o, G　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
8 s* q! m4 D* ^" l& z. |　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
* i$ n  }0 {( H, j' S. i' e　　 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)
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
" \! q0 d, G- Q) _( T　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
<>'***********************************************************
4 ~7 ~; d9 l# Z8 z5 d''@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)
6 g% f* B9 G/ k( o. S9 k1 l　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
9 h& `; I  D: W- F, a" F  ^　　 dbg_DB_Data = AddRow</P>

韩冰

(dbg_DB_Data, "DBMS",oSQLDB.Properties("DBMS Name") &amp; " Ver: " &amp; oSQLDB.Properties("DBMS Version"))
; e6 f( `; \0 M0 M　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
End Sub <>'***********************************************************
, [# Z# u5 K/ z0 x7 ^* h'* PrintDatabaseInfo
$ _8 @: u; B# [6 g/ A8 d  B'***********************************************************
: ~* p# P# R% jPrivate Sub PrintDatabaseInfo(byval DivSetNo)
2 x/ K( @# V5 U3 ~0 J& b　　 dim tbl
. J& ]/ s& F  E0 v' r5 o' {* H　　 tbl = MakeTable(dbg_DB_Data)
* S9 M+ k8 i, o# B3 B/ `: b$ T　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
6 B; U+ n( y! I' m( n　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
* L! {0 a" D# P) i, O'* PrintCollection
0 B* A6 g7 r' Z+ G* X'***********************************************************
: p' R: F! p) {9 G% u( p7 sPrivate Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
　　 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
7 G" [9 M8 j  {' H　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
  a7 f: w! i" H　　　　 elseif isnull(Collection(vItem)) then
' c+ X( }7 A' g　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
  `5 |5 }& S. R6 K4 A6 k　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
; V/ e, O3 g( H% J7 C8 Y　　　　　　 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
　　　　　　 if Collection(vItem) &lt;&gt; "" then
! D; Q: l+ ~. E　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
' T9 [  W' |" F　　　　 end if
6 J8 C" @. D" S! Y　　 end if
　　 Next
: v" ]5 \9 t/ f( _( B' b　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
  G$ _$ q5 z3 q! Y4 \9 R　　 tbl = MakeTable(tbl)
6 a1 k& ]$ a/ P3 m# ?　　 if Collection.count &lt;= 0 then DivSetNo =2
: f+ j6 X, n6 @$ K( D* U' ~　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
( ~4 U# [% N$ A6 g- v　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
$ j; i+ M" w1 `5 i/ C+ i- O$ q) m& E  
0 z( U4 @% v% z'***********************************************************
" d- P2 g7 g) n! L'* AddRow
& ?. g5 D4 m! t: q* l9 K- g'***********************************************************
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;"
8 H3 D) j4 M9 n! f& N; M5 r　　 AddRow = t
, F5 K/ l6 z/ R' UEnd Function </P><>'***********************************************************
' c5 r6 N: `7 v; d% p% j% {% M& g'* 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
/ J( T, }' r3 v* j" Q% mEnd Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
: Z9 ]+ d5 d$ S: J% ['***********************************************************
+ A! v, r1 u, A8 b+ m% h$ mPublic Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
4 H# \$ z5 C( F9 T6 ^& Z  
) R, r( p$ a# I& x( U8 d" O" ]% w　　 Dim DivSet, x
$ x4 F: r& m5 G- v* N* w6 ?　　 DivSet = split(dbg_Show_default,",")
/ @7 S" S/ g+ Z2 }# a　　   dbg_Show = split(dbg_Show,",")
  
, u9 G" h+ _4 s　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
$ \; o2 \3 y3 M2 R, f* p7 e　　 Next
  
8 B2 C, d$ T+ `: a6 H( b　　 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;"
　　 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),"")
8 s" _* ~- t4 N' D5 _9 |2 W" O　　  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))
　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
' B5 Z- n, L. i8 |/ r: ]' j　　  Response.Write "&lt;/Table&gt;"
　　 End If
: N9 L. |! k! k) w8 P( FEnd Sub </P><>'Destructor
Private Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
% S, ?6 {9 e# }. v# C( p/ O/ NVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
bsp;
% Q& }+ h$ |! s1 m, q$ q  M' d5 j2 qProperty Get Enabled===[bool] Gets the "enabled" value
  
) B) Z, h: I9 f( d  C- WProperty 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
7 S( [, I3 s2 ~; {4 `0 @# H  
Property Get Show===[string] Gets the debugging panel.
3 h9 Z* ?. ?' [0 z! p: g  
% C( K+ g& G4 s  U9 C- }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><>--------------------------------------------------------------------------------
Public Methods </P><>public sub===Print (label, output)
　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
7 d) U$ N5 F9 p; g2 `　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
/ T$ x& B: x7 k9 v　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
& w: I: C0 O, n4 {& d) QMethods Detail
  
0 m$ u) Y9 E! Z1 Y6 P. lpublic sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
8 x0 D  J1 d- ^* t/ z0 gpublic sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
- c6 d5 I6 Z+ ]　　 - oSQLDB [object]: connection-object</P>