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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
6 |+ U$ p* R1 M8 s$ u0 l; N<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
test.asp </P>
1 Z! P3 ~# u- E6 _& B<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
9 u. v$ S8 W! P# x$ `2 }# Goutput="XXXX"
5 F& K  D: _' F( M  dSet debugstr = New debuggingConsole
) A4 K# A6 r' y, wdebugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
　　 '……
7 C" z2 t" }6 `# M1 s- t: A( e　　 debugstr.draw
# B% h* ^4 v  GSet debugstr = Nothing
%&gt; </P>
- q( j+ R2 k: o0 W<>=================================================== </P>
0 \& E0 u, F/ I( r2 V<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
<>　　 private dbg_Enabled
. s4 _0 O+ Y! y3 E( g% B$ r　　 private dbg_Show
　　 private dbg_RequestTime
2 ^9 m0 X0 }) @4 @) L. j* X& [: l　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
0 q8 }- b0 Q$ e　　 private dbg_AllVars
4 P9 V, f4 F( k4 N0 G; {　　 private dbg_Show_default
　　 private DivSets(2)
   
'Construktor =&gt; set the default values
7 i5 B7 f2 T* OPrivate Sub Class_Initialize()
　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
5 t. ]  e, h+ w　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
* X% o- {/ Y( B3 W7 w<>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;
: k- P* c7 s6 t% h4 O+ T* g2 z7 j- E&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"
) b* l) B/ D: hEnd Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
6 E* c2 l/ E& |! \' W　　 dbg_Enabled = bNewValue
End Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
. S3 K4 g% I& v8 }8 M! |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
7 k2 G, A8 B+ ^8 q  P# Q% A$ Z, c　　 dbg_Show = bNewValue
2 }* j9 H$ ?! `( C$ j) tEnd Property </P>
/ A" m, E5 w: Q6 w<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
$ d# ?1 o% ^+ B, B- H- `End Property </P>
1 f# ?% z% o- J) o8 T, i/ N  h<>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
End Property </P>
<>'***********************************************************
. Y9 W; ]- ]: F, \( J7 Q5 w: Q''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
3 i" J4 Y+ Y3 ]- J- u% o) y& M''@PARAM:  - output [variable]: The variable itself
- B) S* |+ g$ M8 B, T'***********************************************************
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)
8 T: {9 D  u3 @0 s4 `5 J　　　　　　 err.Clear
' o( Y& Q- {; u: A　　　　 else
4 Z3 i. P: q$ T! I& l8 T　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
" a: A3 z+ Y$ M! B! Y4 \* ?　　　　　　 call dbg_Data.Add(uniqueID, output)
, f( C" S" ]2 x/ |5 v7 E$ d　　　　 end if
- n7 p! o6 w1 k2 j: y　　 End If
7 Q6 k8 e# l" v" o1 |, p' @End Sub
( a, d* _" s3 s1 m& p' ^8 C  
'***********************************************************
' \, e9 c" r( h- l0 Y9 E  \! B'* ValidLabel
'***********************************************************
/ c4 X2 n4 w3 JPrivate Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
" y. e3 O8 X0 S) H　　 lbl = label
　　 do
7 |2 q* P: l1 W1 W8 U( L8 k4 ~2 R　　 if not dbg_Data.Exists(lbl) then exit do
( x1 p, t  G$ T) U* \3 n　　 i = i + 1
2 W1 t3 o9 k0 N　　 lbl = label &amp; "(" &amp; i &amp; ")"
2 _1 N  ^4 K; l7 o　　 loop until i = i
# D0 L; d/ H. E/ `/ \6 L  
% @* V  N& K) z+ U5 m　　 ValidLabel = lbl
End Function
2 S) E) Q$ Z9 F( m5 I( k, J  
'***********************************************************
( a1 t6 W- a6 {6 B8 o) i" P'* PrintCookiesInfo
'***********************************************************
' X2 T' l5 D! f! W( }Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
0 ?# F' x) ?/ t) B. K# @　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
2 P/ m* V: H( g% g3 b) b3 |0 v　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
% _0 E" {. B! w5 `- q　　 Else
, F+ c9 x: n- m/ S　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
) O0 K2 l' \% [' e  qCookies(cookie)(key))   
   Next
　　 End If
　　 Next </P>
<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
% w8 ?% e; K/ B! v5 c: F　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
2 z9 R5 b9 n* W& b7 k　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
7 [- x! M" v* B) ?, v2 E  
'***********************************************************
7 E- Z! r* r  Z- x. A+ Z'* PrintSummaryInfo
'***********************************************************
0 \0 K9 {5 r  V. S9 v6 D/ ~: X) jPrivate Sub PrintSummaryInfo(byval DivSetNo)
　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
! R$ a8 U" P. D% I. J　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
7 y, U3 ?: m; t+ X4 p+ V　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
　　 tbl = AddRow(tbl, "Status Code",Response.Status)
( c2 u/ y5 }5 b7 u' o1 z' Y　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
: H) x' C2 ~. X2 N( n# H9 p' ?　　 tbl = MakeTable(tbl)
9 D, E5 D/ S6 W1 ^　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
4 m/ m4 @/ O4 b% y<>'***********************************************************
( v1 w9 _8 j  E1 F. B" j''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
6 W# M. ]& ^- n- b''@PARAM:  - oSQLDB [object]: connection-object
, R" [1 n* _. H  ~, j'***********************************************************
1 A6 ?- l. j  a1 dPublic Sub GrabDatabaseInfo(byval oSQLDB)
, U$ T- q6 _. v! h　　 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"))
% F( E. j6 h! R$ B! D( m　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
1 Z2 _2 {8 y% N! ^, DEnd Sub <>'***********************************************************
! z* k) q0 k7 F" [2 u+ g# N  W'* PrintDatabaseInfo
7 E1 I0 F- t1 S' d'***********************************************************
9 [6 R$ J# f9 t! N; p. W. m0 vPrivate Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
; u$ D  n1 V, j" W) l& C　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
7 T! O! I) r% u　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
'* PrintCollection
7 A' T4 K$ [" G'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
& L/ t% l3 Z; k　　 For Each vItem In Collection
/ S  o) l5 I( `% V) }　　　　 if isobject(Collection(vItem)) and Name &lt;&gt; "SERVER VARIABLES" and Name &lt;&gt; "QUERYSTRING" and Name &lt;&gt; "FORM" then
6 U& E8 p: @$ b3 i　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
3 ^* J+ Q9 _# P  N　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
+ {" h' L6 K" Z6 P　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
( U+ H% t* |1 G　　　　　　 if dbg_AllVars then
6 V4 n4 V/ N( I　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
5 E) B4 S  a( W8 x" F0 I　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
' z3 |$ P$ }; c  @; p' q6 b1 @　　　　　　 if Collection(vItem) &lt;&gt; "" then
3 x, T2 j# w2 f　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
* C. ~1 F+ s# W9 H/ p　　　　　　 end if
　　　　 end if
% T0 _& S4 ~0 g' ]　　 end if
; o5 l5 f1 ^. R1 _# K: H　　 Next
4 |) K$ A9 J! @! l9 j* s, 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
" y( n( ~+ ~; Y, z/ a　　 tbl = MakeTable(tbl)
　　 if Collection.count &lt;= 0 then DivSetNo =2
2 e, n& l' Z3 p( V! K　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
' b6 f1 T- }( j　　　　 Response.Write replace(tbl,"|", vbcrlf)
+ W, a$ j$ t# {7 Z, M) G* u! U4 REnd Sub
  
'***********************************************************
8 f! E: [! P0 x- r" ^7 j' ^'* AddRow
$ N0 b! m; a+ A! W2 t" n% z8 }'***********************************************************
$ d" F9 m& F) E  g& bPrivate 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;"
- |5 l* e; e0 z; v　　 AddRow = t
End Function </P><>'***********************************************************
'* MakeTable
'***********************************************************
Private Function MakeTable(byval tdata)
- n- K8 b3 e3 x) r# B5 f/ w　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
+ t  q5 b; M' o& g" M- K+ G　　 MakeTable = tdata
- |; e+ |5 h& e! f0 b0 JEnd Function </P><>'***********************************************************
0 T) i" [8 {, X& R''@SDESCRIPTION: Draws the Debug-panel
5 W5 x* i. k; M'***********************************************************
Public Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
% d/ h; d, L' |5 O. h, D2 }  
　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
1 r2 `" x* N* d0 D8 B# n　　   dbg_Show = split(dbg_Show,",")
0 H  ^9 W  M! c/ P5 O% D% T  
1 G3 L6 ~/ L0 V　　 For x = 0 to ubound(dbg_Show)
0 z  a% X: d) b$ p7 o8 h  ^　　　　 divSet(x) = dbg_Show(x)
　　 Next
  
. ]; G6 i6 |. M9 P6 \  G$ t　　 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 }, O; D4 N' L" N. W　　 Call PrintSummaryInfo(divSet(0))
　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
9 f9 u% A  k: a7 ^/ L. S0 ?& ^: ?　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
8 x7 \. i, A4 L　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
& Z+ u9 ?6 b  q　　  Call PrintCookiesInfo(divSet(4))
) ]7 y* H) p3 E! v4 W  h5 [3 n　　  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))
$ \) v2 J3 B; _　　  Call PrintDatabaseInfo(divSet(8))
; q. U% X# _) R2 w& B9 o7 K+ r. x　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
0 R( S; P1 K3 X5 e: ]6 q　　  Response.Write "&lt;/Table&gt;"
　　 End If
End Sub </P><>'Destructor
Private 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
&amp;n
bsp;
6 m. M6 S( K0 H; _0 N# n0 w- d7 ]Property Get Enabled===[bool] Gets the "enabled" value
  
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
  
- ]$ j. x) K: e1 w( CProperty Get Show===[string] Gets the debugging panel.
, G" A) d1 O4 z  
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)
- D7 C; F0 u% s; Y: ~1 J　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
# I, h6 L5 t+ m/ Z6 s　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
; X+ r' f5 m3 T, aMethods Detail
  
4 a) _" T+ k! M3 Ipublic sub===Print (label, output)
. t4 Y/ U% f; I/ Y/ nParameters:  
% J0 Q# _9 M, ^) \7 o6 v4 k1 D! C　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
" M7 ~& Q9 O* m# D! kpublic sub===GrabDatabaseInfo (byval oSQLDB)
- q, u5 k% d4 |! yParameters:  
. k0 N. ?0 N4 X1 R9 q1 Q　　 - oSQLDB [object]: connection-object</P>