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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
& \, y0 `, _3 M* U6 k7 H使用方法很简单：
+ [2 |! W/ Q# R7 E: M3 m3 ytest.asp </P>
8 P* |- P7 i( m8 J$ D" h$ G! J<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
3 r+ p; N9 D5 e5 O4 T' ]( Z&lt;%
$ W( l, D9 n3 a6 r1 eoutput="XXXX"
2 Z; S, Q' V/ J3 l" M2 n  t2 t3 OSet debugstr = New debuggingConsole
2 e5 L. u  M& O9 y+ Vdebugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
8 ^& n$ R5 u7 A  z- l/ R6 h2 m　　 '……
2 M5 C4 H0 q" d! _4 D' z4 U  A　　 debugstr.draw
9 A$ W4 O" d. w7 dSet debugstr = Nothing
+ e& ^7 A7 |& E9 A5 g%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
<>　　 private dbg_Enabled
　　 private dbg_Show
, r, J+ q+ D8 O" Y# \　　 private dbg_RequestTime
$ X7 b5 Y0 L* A3 V* r　　 private dbg_FinishTime
3 j& x" ?' K4 p5 H7 p* z' r　　 private dbg_Data
　　 private dbg_DB_Data
" R# `6 A1 f4 M4 R: F　　 private dbg_AllVars
' z- B  x; l1 k0 p6 \' H& N　　 private dbg_Show_default
　　 private DivSets(2)
9 n: i+ y* P* H* g% A   
# S, i( a7 l) V6 k$ ?( b5 |: j'Construktor =&gt; set the default values
Private Sub Class_Initialize()
5 _4 p8 y: }$ A, f6 s( c' a　　 dbg_RequestTime = Now()
6 a0 R( e6 e' w7 X2 F$ c1 g  J5 Y　　 dbg_AllVars = false
* X) N; Z3 e* O+ R8 W' c, N8 U3 ~　　 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>
- T2 }* T+ z8 p( N2 G6 _7 ?: s5 T" M<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
1 w3 T- ?/ v" f" {; SEnd Sub </P>
( N+ b) Z3 h+ ?3 J& F5 b) ?+ d' ]5 k1 t7 l<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
9 O6 b9 X' k, h% Z　　 dbg_Enabled = bNewValue
End Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
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
0 [' s. c( t  ]; u3 J　　 dbg_Show = bNewValue
End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
End Property </P>
<>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>
<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
" Y# Y& }+ o9 G2 ?5 p''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
6 t6 \# D* D, u; O. p; I8 x. C: I'***********************************************************
0 E( x% f( ?  E$ |Public Sub Print(label, output)
5 Z" v# a) R2 `. `* O　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
% z) ?3 B" r& o. g* e  X! r4 I: N　　　　　　 err.Clear
) w5 {' {) m2 I0 ]3 j7 X* E　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
$ I- _' o% U1 \( G) `( j3 s' m　　　　　　 call dbg_Data.Add(uniqueID, output)
+ A" h% o( f8 _9 ^' ]8 n/ ^& D$ o　　　　 end if
　　 End If
End Sub
! K2 f4 Q  D8 a- t! j  
'***********************************************************
% o# K7 X0 T/ ~8 q6 f! t; S# a'* ValidLabel
6 |/ n4 [' u$ H& z* _. N' t  y'***********************************************************
Private Function ValidLabel(byval label)
　　 dim i, lbl
　　 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
  r2 n/ S0 H+ M/ f4 T  
, U3 P/ t& G# m$ H8 D: L　　 ValidLabel = lbl
( J; U" U. Z0 Z4 U9 E( o. U8 uEnd Function
  
) s3 h( A9 h* G/ c+ L  G) W'***********************************************************
'* PrintCookiesInfo
# N9 N4 S5 n( m7 x5 I" U1 C'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
5 A' h, Y; J. y1 R" C1 M7 I　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
4 a. T% u# R! b  @3 H　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
$ k5 I6 B" C% g* K( l* J, P   Next
　　 End If
: ?+ ^2 p) T! T- ~  ^  I, t　　 Next </P>
( p8 ]! w' i* m( @. E<>　　 tbl = MakeTable(tbl)
　　 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)
  }0 j# C8 C* f1 Uend sub
4 _; e" d6 c; F8 @8 X. _  
'***********************************************************
'* PrintSummaryInfo
'***********************************************************
7 I7 i7 r9 C4 d8 X3 X5 cPrivate Sub PrintSummaryInfo(byval DivSetNo)
. Z+ e! H! D0 \) ], A$ O% T+ w6 B　　 dim tmp, tbl
; {; ~8 f! X5 W) E. y& ^  Z　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
. L' @, ]3 X; \　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
. V$ [; t' w( i# Y& W. w$ Y4 Q+ M　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
　　 tbl = AddRow(tbl, "Status Code",Response.Status)
" }2 _3 Z6 [: ?9 \0 d　　 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)
　　 Response.Write replace(tmp,"|", vbcrlf)
5 ^8 L7 Y8 }0 t; SEnd Sub </P>
<>'***********************************************************
" a. @( {+ h+ z( K''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
2 S) `! H' D1 t* ^1 X) I& E" J, Y''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
Public Sub GrabDatabaseInfo(byval oSQLDB)
　　 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"))
  Y! c/ Q+ G' y　　 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 <>'***********************************************************
- j/ b* m6 t9 [" l$ m9 q- G'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
' g. A4 R4 r6 E1 M　　 dim tbl
/ U  E3 y9 D; }( b' ~& X　　 tbl = MakeTable(dbg_DB_Data)
: T4 `6 T1 k5 s3 B; I1 Q　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
# b  P' c- G3 r'* PrintCollection
# i$ }0 K' ]& w1 o+ P'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
' o+ j2 w/ \% c7 X7 u9 b: F- z　　 For Each vItem In Collection
& e1 ~5 N+ O$ z( P/ |  \% [0 c　　　　 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}")
# m  j6 p' J& }- m, m' T　　　　 elseif isnull(Collection(vItem)) then
; M, z1 O' f" L2 |( S( j* Y　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
2 I) b( g8 ]! C+ S: H　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
　　　　　　 if dbg_AllVars then
  o5 i6 S, E( \　　　　　　 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
9 L! o. g# C  B' ~　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
7 S* {/ L$ z. X. F' KEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
/ W; G2 P  A# x* I" U( s　　　　　　 else
/ l+ t1 x5 N) a# D0 y　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
9 j' p! E" F7 C8 `7 y　　　　 end if
　　 end if
　　 Next
4 ?) Y  Y& [, T; a! n) c　　 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
: G3 v3 {4 G0 I0 l: i　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
) O" g' [/ \' P  p, n+ S　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
+ Q7 [( W0 z/ s　　　　 Response.Write replace(tbl,"|", vbcrlf)
+ Q/ m3 v4 N& Z' z/ p" tEnd Sub
, Y8 M! Q6 d0 a. {3 E  _9 \  
'***********************************************************
7 B3 ?% i3 C8 W4 M: @6 q'* AddRow
  C3 J; Z* B! G5 B8 ~0 P( H'***********************************************************
Private Function AddRow(byval t, byval var, byval val)
& l" l4 y+ Z) ?% e7 d* g+ N　　 t = t &amp; "|&lt;TR valign=top&gt;|&lt;TD&gt;|" &amp; var &amp; "|&lt;TD&gt;= " &amp; val &amp; "|&lt;/TR&gt;"
" s* ]2 K: l+ L. M; H) c　　 AddRow = t
End Function </P><>'***********************************************************
'* MakeTable
0 u  T3 Z0 c5 l! v; }6 n* r$ x'***********************************************************
2 p0 b2 l) t; z7 xPrivate Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
End Function </P><>'***********************************************************
2 G4 a+ y! n3 y' o" S* H3 }''@SDESCRIPTION: Draws the Debug-panel
0 b; E% T4 f* Y" V: Y'***********************************************************
Public Sub draw()
　　 If dbg_Enabled Then
9 o6 ]" y4 @  Y& V　　　　 dbg_FinishTime = Now()
4 N. u8 P) z4 w4 |2 |8 E  
( X% g9 @& m* ]$ ^* e　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
% N4 ~' D- s# R  w: `+ c/ m　　   dbg_Show = split(dbg_Show,",")
. D0 Z4 ]: [0 L# E; y5 O' {/ U! K5 j+ r  
9 \0 L! s) ?2 T) `' p( ~: e　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 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;"
　　 Call PrintSummaryInfo(divSet(0))
/ U& Y4 I. d8 n5 |8 X- \4 w! q  ~　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
  G6 O. Q2 T3 {% K5 f6 c9 Q　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
　　  Call PrintCookiesInfo(divSet(4))
/ k" Q3 o/ T2 ~　　  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))
2 t) a4 R! ~6 U/ t+ @　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
7 k5 k2 k, S5 h# S. X" e　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
# f. ^* h# J9 d( j　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
6 I, u" z. h7 M* {% J+ f　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
" F1 t  G! B! L# Z/ C　　  Response.Write "&lt;/Table&gt;"
　　 End If
End Sub </P><>'Destructor
Private Sub Class_Terminate()
' M4 R6 R) k! U6 d4 m5 O% \　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
* W$ o3 C8 W0 r; |, v1 S: m5 CVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
1 a- t" @& e- h&amp;n
/ o; b9 t1 X1 w, i9 l4 x( _+ [bsp;
: v/ A; P& W+ e, s( {& Y8 dProperty 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
7 T) k' X  v/ p0 V6 e3 N' \  
) _0 H9 I8 L  vProperty Get Show===[string] Gets the debugging panel.
  
! p4 \4 q4 C8 F; nProperty 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)
/ \) h" N2 h" w+ Z5 L; W  X/ ~7 E0 Y　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
  M+ p4 X1 h4 ^  b　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
& D  F* w1 ~2 z& X' ]+ M　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
0 x  D8 o: i; f6 F, H. ?Methods Detail
  
9 C- f3 D1 D' O- Y$ A. Lpublic sub===Print (label, output)
Parameters:  
" \6 B! p- W$ t" W- f- t$ K( f. W( O: Z　　 - label [string]: Description of the variable
; }1 k* L  A4 G5 V1 w& a2 O  y' Q2 @　　 - output [variable]: The variable itself
+ U9 X& @" T( L; b) N  
. s5 f  \. }! Z# W, Tpublic sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
　　 - oSQLDB [object]: connection-object</P>