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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
# {$ r/ V$ y  ^8 J5 ]: `<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
/ G0 f! _3 E1 Z, _: dtest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
9 }2 l' m$ N$ ^/ s&lt;%
output="XXXX"
9 k, c/ F1 X0 a6 Q$ xSet debugstr = New debuggingConsole
: ^( Q- p. Q- |debugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
　　 '……
; P+ G- |4 E/ f/ x8 C8 z　　 debugstr.draw
2 L, C3 a' p, |% @3 mSet debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
4 C& K+ S8 i& o, k7 F<>&lt;%
% ]! t- O* H$ `; @' P1 y2 XClass debuggingConsole </P>
<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
　　 private dbg_FinishTime
) N& n: F% n& Z- m8 Y* a+ m( A3 S　　 private dbg_Data
　　 private dbg_DB_Data
; y' v3 \+ l2 Z  i( e% V6 e　　 private dbg_AllVars
! b! W6 I  f1 s　　 private dbg_Show_default
* F9 Q* t; u: A　　 private DivSets(2)
( [7 A4 h4 \' @/ x! ^  z- q4 u   
'Construktor =&gt; set the default values
Private Sub Class_Initialize()
1 m$ v# l, q) C0 n5 a- ?　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
& z2 E9 A/ T" o　　 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>
) K( o2 n" W3 B<>　　 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>
1 S; @+ R9 A9 q0 y8 Y<>　　 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>
6 P5 m5 o/ |# x% [8 d<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
* ]' c; Q: u$ PEnd Sub </P>
- t2 m3 W$ n: k0 h7 \% L<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
5 S4 m8 W" z9 ]( l( g　　 dbg_Enabled = bNewValue
End Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
, ]" x& X  k, }5 A% F$ n: xEnd 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
* n7 a+ E$ }; I6 o, W' N) i, @　　 dbg_Show = bNewValue
End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
7 _6 \  N0 e" xEnd Property </P>
2 g+ y. h/ {( m6 c) h* U5 Q<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
# @2 X6 u6 }: t) O: R" e; UEnd Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
  X3 R, J% j( U1 t　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
7 ?& G6 W7 T1 S7 L) H# W! f' d''@PARAM:  - label [string]: Description of the variable
( k$ V2 O1 W5 R( f''@PARAM:  - output [variable]: The variable itself
'***********************************************************
; _) T5 S. U. `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)
　　　　　　 err.Clear
　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
' `& g+ c; c3 t, T6 M" p, |0 v& v　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
3 o" _  k% K$ T' i　　　　 end if
+ y. t5 U. A; {4 C) K8 U2 |　　 End If
2 E  l4 {' S# O2 A  |End Sub
  
'***********************************************************
'* ValidLabel
'***********************************************************
5 C  \0 K# C0 f, oPrivate Function ValidLabel(byval label)
  E7 J+ {1 @  B* p4 S　　 dim i, lbl
. d7 l! B% E! n  J5 D9 {7 V& R9 }　　 i = 0
( d, J1 y6 i$ C$ h7 ?2 x　　 lbl = label
　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
2 B7 n! G5 v$ @) ~$ t5 g3 m　　 lbl = label &amp; "(" &amp; i &amp; ")"
: t) ~' P. s, I! X　　 loop until i = i
  
2 R5 Z4 Z: [" h: w　　 ValidLabel = lbl
End Function
  
8 S/ ^2 g" O! h9 {% [$ K'***********************************************************
'* PrintCookiesInfo
; r' u$ U$ T8 K# w2 \' r'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
3 B6 N. r; K( w　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
, \" H; ?7 E1 z! o　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
　　　　 For Each key in Request.Cookies(cookie)
7 \& ~. V4 I" y+ C2 ?1 s　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
　　 End If
　　 Next </P>
3 Z) W/ [! A2 M  I3 l6 k<>　　 tbl = MakeTable(tbl)
7 P& ~6 j- E# T6 K) ^4 p+ S　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
( P6 z0 d2 y. w! Z　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  
'***********************************************************
'* PrintSummaryInfo
: \: Y$ `. A! ~% D8 T'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
3 l% F* t; t- |( H% u  S; l' o　　 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)
1 i9 _! ?/ Y! s  C1 }5 t2 H7 b8 N　　 tbl = MakeTable(tbl)
, w1 b4 e9 _8 d* u0 R, @: q　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 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
" P) m) x9 D# C" Y+ k'***********************************************************
, n9 i. P% u: D  q3 g, O- tPublic Sub GrabDatabaseInfo(byval oSQLDB)
- a5 G5 j- U6 O4 g　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
　　 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"))
End Sub <>'***********************************************************
) R9 H. H3 e' z( L'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
- k7 w8 Y: j2 A* \5 M　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
2 u2 {6 d8 t7 Q5 d0 CEnd Sub </P><>'***********************************************************
# `: Y% V# ?- q0 ?$ w1 Q'* PrintCollection
2 }& ~% Q! i. f: W3 \'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
' C- I9 o0 a# H9 h8 Q* M. @　　 Dim vItem, tbl, Temp
　　 For Each vItem In Collection
! ~+ R/ Q6 Q5 P, G& Y2 Q. ]　　　　 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}")
, @, S1 x. s0 M: U: @* V) v9 u0 U　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
2 @9 [0 }& `6 D1 k4 r　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
9 |, K' Q( q. P  o  B  [; n; Q　　　　　　 if dbg_AllVars then
+ n2 k4 A8 H4 _% E5 d* j" F　　　　　　 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
, R8 G8 x' H4 k, a2 H# T% k　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
% J  i2 N- m& W; ^2 w4 j% C. f　　　　　　 tbl = AddRow(tbl, vItem, "...")
, p0 u3 w% f, f, O2 Y: A( `　　　　　　 end if
　　　　 end if
　　 end if
: ]2 W8 F  g0 S- B& Q( G; Q　　 Next
1 |( k# U1 V$ O1 q, T. }  U　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
! y: d8 F$ ]: |) t3 b" D　　 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," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
. h8 C/ D8 T) n8 u( iEnd Sub
8 D3 h5 x2 X% d( C  
'***********************************************************
4 Q3 o, _9 n; }# S9 v& R6 Q( B'* AddRow
2 q$ y1 Q0 c$ U1 ]: z'***********************************************************
2 s6 p5 t& ~; o. x( [/ zPrivate 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;"
+ t) ^+ N& b. Z# K" V/ d# Y! }　　 AddRow = t
End Function </P><>'***********************************************************
'* MakeTable
  }9 R# `# s  y  {  t6 i; F9 I- _'***********************************************************
Private Function MakeTable(byval tdata)
# {6 W2 Q: o& H2 Z9 Y# Q　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
' ~7 @6 K2 g$ q+ M' t　　 MakeTable = tdata
6 m! i! t# t* B( w( iEnd Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
9 G2 g9 w- }5 m' [) T'***********************************************************
4 r! s$ a: {; H$ @! f  a, w, r+ m% tPublic Sub draw()
. e. ]* C8 ^9 u　　 If dbg_Enabled Then
; V; o' e% X  S9 X4 A9 F) Q　　　　 dbg_FinishTime = Now()
- K1 W' h8 d" ]# o  
. D1 n: [' ]+ k5 ~4 @　　 Dim DivSet, x
8 Q6 I) w  N2 d$ m　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
; m* y0 l8 K, Z; r" I　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
, K: x" ], Z5 x$ r9 n: r　　 Next
  
! t: z( e3 v' _/ h　　 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;"
9 c, }$ s2 g4 X$ n! P/ Z' \; T　　 Call PrintSummaryInfo(divSet(0))
+ d; Y' i9 q1 m" j; L% A　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
6 F4 b7 d/ @2 n: r, g! F$ Q& g5 F" q　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
5 ?+ g' r- \8 `4 G) l# z1 J& h　　  Call PrintCookiesInfo(divSet(4))
# o3 f8 d" ]6 Z0 ^* X　　  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))
9 n0 y& K' n  v　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
0 P: k+ L3 U, [3 e% x: w& Z　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
2 n$ t; M; q. I8 \$ o6 m6 G　　  Call PrintDatabaseInfo(divSet(8))
& {: W6 t4 V+ k4 C: N　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
1 H3 j$ k$ ?! Z3 f　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
/ u: q2 N( @& o- W& M! U" N　　  Response.Write "&lt;/Table&gt;"
　　 End If
* W5 v( \; b3 z& v1 ?4 qEnd Sub </P><>'Destructor
2 E, `* Y* r5 T9 [$ mPrivate Sub Class_Terminate()
/ ^" V8 w, z0 _: E; P9 m/ u　　 Set dbg_Data = Nothing
1 A+ O7 b% y: ]# zEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
. r& h. u7 r1 F6 X# KCLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
, t/ l* i: \7 F! tbsp;
# d% L8 E$ ]; n  ]9 H  oProperty Get Enabled===[bool] Gets the "enabled" value
- L# q5 ]( _: N, P+ Z  
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 </P><>roperty Get AllVars===[bool] Gets if all variables will be displayed.  </P><>--------------------------------------------------------------------------------
Public Methods </P><>public sub===Print (label, output)
: q/ Y" g) g7 ^" R　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
6 M+ g) ^- O0 U4 x　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
6 |; D. f/ X4 ~1 d. \: d1 |Methods Detail
! y1 A8 u: \% R5 J  
public sub===Print (label, output)
% b6 a7 s2 s0 V: i' X5 X$ X+ pParameters:  
7 C* G1 J- d! p4 Y, H/ p! d　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
　　 - oSQLDB [object]: connection-object</P>