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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
( V" |7 I& w. c- s& ~7 E<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
6 d7 y, _( P% }. {# ^使用方法很简单：
test.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
output="XXXX"
  h- n8 n  x$ ?5 `* ~2 VSet debugstr = New debuggingConsole
+ i5 c2 a- x4 Bdebugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
1 Z' `5 n4 \& H: M% M% S* S) G+ Y1 ?　　 '……
　　 debugstr.draw
Set debugstr = Nothing
9 p0 |$ W' M/ z% n3 s, [; J%&gt; </P>
<>=================================================== </P>
, M4 r! c) v# S1 j<>debuggingConsole.asp </P>
( X+ |$ t0 e/ W8 W5 }* T. r<>&lt;%
8 v0 J( v: F6 ^- P' l3 R8 {$ rClass debuggingConsole </P>
<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
　　 private dbg_FinishTime
& l9 N2 Y9 Q: m　　 private dbg_Data
　　 private dbg_DB_Data
* Y; B1 k, l7 d　　 private dbg_AllVars
( U) H% y- L4 G9 p5 m　　 private dbg_Show_default
　　 private DivSets(2)
   
9 j& a" o& S" e$ W5 x* |1 h0 q" `'Construktor =&gt; set the default values
Private Sub Class_Initialize()
　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
- h1 z% a9 \# ]/ R2 L) l) ], w　　 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;
* b" W% J! U) J6 {3 \; n. `, H: M&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>
9 C( ]" v- Y2 R+ h<>　　 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>
: M1 n9 z) P9 _) Y<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
End Sub </P>
9 I' c/ s2 k+ l/ q, W+ C<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
+ f6 {. C, |5 m  l0 ~& M8 B　　 dbg_Enabled = bNewValue
8 X8 ~3 b( B* uEnd Property </P>
( \' U" F% S" a# y<>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
3 H; t9 Z, A$ j9 Y& p) \2 U  A/ C　　 dbg_Show = bNewValue
; P$ k9 j( ]6 X' Z9 JEnd Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
; l$ M+ L" Y6 K; `　　 Show = dbg_Show
( f1 G2 c# l& J7 O" Y; WEnd Property </P>
1 |0 w5 u& x4 |: I/ B<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
End Property </P>
$ N; @3 A0 j0 x% x( b( F9 m<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
. b* z  _# `, _7 \　　 AllVars = dbg_AllVars
End Property </P>
' [% R% i% R* q6 S; d: j<>'***********************************************************
* V: s) O5 A5 F6 ~: c''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
. p# R' O4 t* x7 ^# s'***********************************************************
Public Sub Print(label, output)
& ]# F8 D: \3 T7 \" g4 y　　 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)
2 ]  {; h! W* ~2 H　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
" L5 I- S" B/ ?9 P: O　　　　 end if
$ V8 f3 q* T' I: F4 k( a0 {& D　　 End If
End Sub
& w, a* c2 k: L/ r& D- b- n  
8 y3 }. I, |+ {'***********************************************************
'* ValidLabel
'***********************************************************
Private Function ValidLabel(byval label)
" O9 F% h) L% V' a% q9 [　　 dim i, lbl
　　 i = 0
' j2 z) ^% M( e3 i* t( {1 h　　 lbl = label
　　 do
+ b) r# B0 j1 W$ Z" h* d　　 if not dbg_Data.Exists(lbl) then exit do
$ Z: U( W9 n, V+ H　　 i = i + 1
) m8 r+ u, {. C/ ~: L  Q　　 lbl = label &amp; "(" &amp; i &amp; ")"
6 E7 s0 r5 b& c% |! L2 k! K& A　　 loop until i = i
  
: _2 H& U% {( {. M6 D　　 ValidLabel = lbl
End Function
  
. s  B9 z6 l6 W'***********************************************************
'* PrintCookiesInfo
'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
　　　　 For Each key in Request.Cookies(cookie)
/ m; I" b% t8 ?* Z8 `, y+ J　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
　　 End If
3 U) j! n; F9 ?# |　　 Next </P>
<>　　 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)
end sub
& i, J. S: ]9 F6 |  P  
6 V4 K) s! ~1 l! W. d: k5 ~+ ?'***********************************************************
3 `+ A' @: Z/ s8 n' k% `'* PrintSummaryInfo
'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
+ ]2 m$ j( u& s+ y　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
  w( R' A4 q* o: G5 n　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
7 C6 ~% W% O% _* g; f　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
! d. z2 ]2 s% y1 f) Z2 O+ R3 f　　 tbl = MakeTable(tbl)
! z9 x2 L) u; s3 u# ^+ O　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
7 b. B! z7 a4 V7 A3 ~; P. iEnd Sub </P>
! C$ |5 n8 b7 [) r! W% V1 G1 }<>'***********************************************************
''@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)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
/ d% f; v% G3 j9 @% E5 k, l　　 dbg_DB_Data = AddRow</P>

韩冰

(dbg_DB_Data, "DBMS",oSQLDB.Properties("DBMS Name") &amp; " Ver: " &amp; oSQLDB.Properties("DBMS Version"))
  p3 f0 p* J0 s; ]5 Q* g4 u　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
End Sub <>'***********************************************************
" z8 n0 t$ U; s( |) C/ c1 J" i. ~'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
% \4 [8 ~8 l; t　　 dim tbl
2 g. N6 E# \) k( L+ h# f. |　　 tbl = MakeTable(dbg_DB_Data)
8 p, F7 Y5 h5 w1 f5 x　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
, Y' k/ z* Z+ \End Sub </P><>'***********************************************************
'* PrintCollection
'***********************************************************
- Z: m9 }6 M8 x5 ~, \Private 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
6 l9 Y$ F& A2 V2 ]. h% Y　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
# S& V4 {# R# E0 {+ {　　　　 elseif isarray(Collection(vItem)) then
( ~# u; j$ s4 S8 t" j* p　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
& m( ~, p3 r# u0 l- ^　　　　 else
　　　　　　 if dbg_AllVars then
" J3 M  N; A0 B5 b7 h. J　　　　　　 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
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
, I+ n6 _. F( Z0 u　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
　　　　 end if
　　 end if
　　 Next
　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
- T4 V7 b6 W. o( C( E8 h  O　　 tbl = MakeTable(tbl)
. c# t& y8 u3 p; K! g　　 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)
End Sub
  
$ m5 K# V0 _& o+ W9 F. Z- F'***********************************************************
! s/ q9 N5 @% h1 G' h'* AddRow
& ]4 j8 k2 U3 z  q, R# T6 e'***********************************************************
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;"
　　 AddRow = t
% q0 C2 n4 U% ^End Function </P><>'***********************************************************
2 L1 J% s0 A5 ?) a'* MakeTable
'***********************************************************
Private Function MakeTable(byval tdata)
, p4 K. y$ ?# w* F% Z　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
% g* J# I7 \& [2 m　　 MakeTable = tdata
End Function </P><>'***********************************************************
  B8 A2 C# X" u4 g- X; H  r1 r8 I''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
5 t. L: W: v% r& V8 z* \Public Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
  
　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
+ P* z) z. q, Q) {3 Y6 w  
# K6 [# s5 |. Y3 |" j) q& i9 V　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 Next
- ~& n; ?2 Y6 j9 S& G  
8 |9 w0 @+ i: @( P" s　　 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))
  t- g; m; T; h; g+ y; y& {# l8 u& \　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
( `& k3 v! W# N8 U　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
3 t2 Z( r7 x& T6 O　　  Call PrintCookiesInfo(divSet(4))
7 ?: Z" a( {# _　　  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),"")
　　  Response.Write "&lt;/Table&gt;"
$ g; J: n, |5 K& j. a% [　　 End If
End Sub </P><>'Destructor
" x# U7 Z/ x, V' r: BPrivate Sub Class_Terminate()
　　 Set dbg_Data = Nothing
. G" R) h% h4 `+ LEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
& Y$ ^7 _. Z8 X$ QCLASS debuggingConsole
3 V( P) X  j$ f8 V& FVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
- e+ H8 H5 t& A3 j+ ~( l&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
: y3 \2 d8 c$ ^, `& m  
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><>--------------------------------------------------------------------------------
3 ~" W; ?7 E4 }/ x& M5 @: K1 `Public Methods </P><>public sub===Print (label, output)
0 y, `8 z% `$ C1 F　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
  
0 j9 X+ h" A: Y/ T) V. Cpublic sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
3 X0 ]$ [, p1 H5 A# w* F6 jpublic sub===GrabDatabaseInfo (byval oSQLDB)
# K/ A' h: z! k5 e1 g8 oParameters:  
7 {0 j& N+ b" v8 T9 P7 q　　 - oSQLDB [object]: connection-object</P>