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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
% i$ ~5 T7 g+ P<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
$ P; s4 N4 i1 C; ^1 w2 a7 e. N; R使用方法很简单：
9 `- J+ {! ^1 e4 qtest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
) b" ^+ Z* p/ w1 l  c  f! o( ?&lt;%
output="XXXX"
Set debugstr = New debuggingConsole
. k$ I* c; k/ hdebugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
: l9 E8 M! Z2 t　　 '……
7 r* j! O' N, h' t, z　　 debugstr.draw
Set debugstr = Nothing
%&gt; </P>
8 i0 Z% S$ f% X<>=================================================== </P>
# B+ U' J% P; E<>debuggingConsole.asp </P>
; I1 E$ Z0 O/ |5 A* V<>&lt;%
: k9 k1 k/ c3 b& ^$ A8 KClass debuggingConsole </P>
) p- W& D9 Q: g9 _- m# w% {<>　　 private dbg_Enabled
$ H9 k6 \& P" B' E1 v8 T& j　　 private dbg_Show
& R3 X8 f: q- ~# v; L- B　　 private dbg_RequestTime
　　 private dbg_FinishTime
　　 private dbg_Data
# T# R1 g' T% u: B& _　　 private dbg_DB_Data
& w6 O& u" k" J3 t1 D7 u6 W　　 private dbg_AllVars
　　 private dbg_Show_default
3 H4 i7 E/ Y5 w9 N7 \$ g　　 private DivSets(2)
/ [: W5 N6 H3 m   
+ v0 L8 \# J1 |'Construktor =&gt; set the default values
Private Sub Class_Initialize()
. r4 ^$ o. a" ^4 ~! R5 U* |　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
　　 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;
- z& i( I# ]: \0 q&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>
6 W! E7 h" X3 o6 d9 f<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
; k- v7 j' A6 e: H- {2 L$ pEnd Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
1 s, ~. D6 k3 P8 _: Z% HEnd Property </P>
4 {' P- P$ h% {2 i, ~<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
. H4 z3 \( v/ O$ y# E. G0 @7 Y　　 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
　　 dbg_Show = bNewValue
End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
7 A* ?. y) q9 B" I3 F2 p- O  h　　 Show = dbg_Show
End Property </P>
<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
/ K2 ^4 D2 r: K" ~9 ~! f　　 dbg_AllVars = bNewValue
$ C9 c2 Y" ^) X2 j$ XEnd Property </P>
# s+ s& E, u1 M. d<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
, B/ m7 B9 t4 G  ]' C　　 AllVars = dbg_AllVars
. t. y& @7 ]7 h& ]# E6 u: cEnd Property </P>
  m& z9 ^' J( N1 D. Y2 x1 w" L<>'***********************************************************
! R+ t" D: ^5 u. t% D''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
9 \7 |* f! X2 r, o# k5 m$ C3 ]'***********************************************************
Public Sub Print(label, output)
　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
) L; u3 s9 a9 Q+ {, W- O　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
5 o$ b' K# F! Y7 l　　　　　　 err.Clear
- F+ D- G) Z* J! b& z　　　　 else
' A5 h7 e: s+ [　　　　　　 uniqueID = ValidLabel(label)
5 {2 H! \- @' L" w　　　　　　 response.write uniqueID
: a. D5 Q& H) o( y. M　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
End Sub
: @+ f( O' x+ z$ W, F  
'***********************************************************
'* ValidLabel
: {: @6 M1 U7 r; c. B'***********************************************************
  Z7 k% E) g9 X5 j# ~' tPrivate Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
& I  q) \5 A0 n- I　　 lbl = label
　　 do
& `: i4 [/ d* ~$ {" V: G% `$ M　　 if not dbg_Data.Exists(lbl) then exit do
: K; ]6 I2 {! B+ o# k# M) X- a$ a　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
; U) G7 b8 {% u" F5 u9 J3 F　　 loop until i = i
* [: G' b( W  u  
　　 ValidLabel = lbl
- v' M6 x% n$ g) |& YEnd Function
  
! ^  U4 ?; ^) @) F3 X) q4 \'***********************************************************
1 i: N. R! f, M'* PrintCookiesInfo
0 c; v  k9 C0 }1 J8 v'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
+ r2 I3 f, L# [" o# ~　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
4 A  Z0 ~4 K5 ]　　 Else
3 {' \+ B5 {/ _　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
! S! f7 A# p  r6 d7 h   Next
5 n; F! I. a  l　　 End If
　　 Next </P>
<>　　 tbl = MakeTable(tbl)
" U& |& m% p# q8 R/ G( s# `　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
# ]: R8 ?5 c/ d　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
2 P2 a7 f: s2 C& z* X/ e' `　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
* p! ?- h. E3 q  
( P: [& R; p+ I$ p$ J6 t'***********************************************************
& w2 L0 r2 N  X" ?7 X'* PrintSummaryInfo
'***********************************************************
4 R9 G( U% K' z: B* p6 lPrivate Sub PrintSummaryInfo(byval DivSetNo)
' C$ ^6 f( H: J, @　　 dim tmp, tbl
+ `4 R2 b: m0 f$ u. w/ ]3 u8 _5 ?　　 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)
% |$ W4 b5 M+ W$ w1 r, r　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
+ \* D) z; i  V4 R　　 tbl = MakeTable(tbl)
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
7 C0 G6 k3 X7 [* G4 o  A( R5 X　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
) d) r9 r# Y; X* _! I. B" L& z''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
7 k3 z5 v" w) h4 TPublic Sub GrabDatabaseInfo(byval oSQLDB)
: H' Z, q4 I# R3 ~. @( |　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
' [/ r! A0 d. y　　 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 <>'***********************************************************
, K2 g- h% E9 D3 a'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
　　 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)
End Sub </P><>'***********************************************************
'* PrintCollection
'***********************************************************
' m9 e$ H! K# j6 a" G$ uPrivate 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
* H) l+ i* N5 w3 u7 M: M& \+ P　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
( {% n# f' ]* H$ E0 R  B　　　　 elseif isnull(Collection(vItem)) then
4 a" a& Z$ u  Q( C# E" @　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
! {1 g  _6 V) o5 U　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
0 W1 c) L9 y' h5 p　　　　 else
　　　　　　 if dbg_AllVars then
　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
1 Q4 |( V. U* v/ {1 u　　　　 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
: K  S9 x5 q) o( l0 B4 _: o. pEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
9 f) Q9 S/ E0 b8 K; l　　　　　　 else
7 d. n, y6 d6 V# N" F　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
4 b$ C. P/ h$ G　　　　 end if
　　 end if
　　 Next
  i& z5 v' c- h% _% m& |　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
' D  T7 P  |8 x　　 tbl = MakeTable(tbl)
　　 if Collection.count &lt;= 0 then DivSetNo =2
; w6 p4 ?3 e$ I0 Y, d7 p( ]　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
$ C, x( t7 m) J& H　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
  Q) |8 l2 e5 B# _$ ]　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
  
2 V/ `: }5 S+ s, W" f0 K'***********************************************************
3 x; `& V9 v7 B% n  r. c'* AddRow
# ?/ q$ N: V( W' ]" m( f6 u'***********************************************************
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
End Function </P><>'***********************************************************
* Y: k, j/ X: F7 y) R+ Q8 L+ Y'* MakeTable
, ^) s, S0 N2 X* U* R'***********************************************************
% d$ ?  z% M% H! x6 d+ ~  C8 SPrivate Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
: u8 P1 b' `* x2 V; K9 P/ |End Function </P><>'***********************************************************
( l4 B' ]4 C1 Z' o''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
9 x& P3 C+ y) ?. i# A7 Y0 j( tPublic Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
  
5 C1 h& y! x! e0 @! U; ?' w6 U　　 Dim DivSet, x
) i/ n8 ~4 }1 |5 F" R0 I　　 DivSet = split(dbg_Show_default,",")
7 f6 x5 |, V$ x% k' Y7 j　　   dbg_Show = split(dbg_Show,",")
5 P' w' Q5 C5 K$ ~" d2 t# ]  
4 z7 c( ~: N, w' @　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
" e4 x$ w# S" v3 @( N; Q4 x　　 Next
  
$ c7 a* K8 E2 n0 Y7 ]/ L8 c　　 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))
, g3 P( Q7 p1 F3 |' I! J4 H; ~　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
+ q9 G, d4 G/ X1 ]　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
, t, C/ ^) p- c　　  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))
0 P& t9 H9 P9 P5 T; \　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
　　  Call PrintDatabaseInfo(divSet(8))
+ ~6 i) ^4 f: B2 d( @　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
- d+ y* Z2 k" c* m6 s8 s; N　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
" c: v4 J, e7 ^* `; a. i% l4 ~　　 End If
" o$ |0 S& W9 r# lEnd Sub </P><>'Destructor
Private Sub Class_Terminate()
　　 Set dbg_Data = Nothing
* k- e8 M. \% M  x4 NEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
# g; ]6 K  Y6 o) ]5 h4 ^CLASS debuggingConsole
! g9 b: R- I9 M. n2 s  I) JVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
# ^: r+ A" a+ U1 b, j' Bbsp;
" |& X: e" y% |9 i! @7 @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
% y7 ]' e9 ~( \9 D; @  
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><>--------------------------------------------------------------------------------
) q! K+ B$ _1 H$ E- Y7 c. w8 d3 fPublic Methods </P><>public sub===Print (label, output)
8 G8 l" @4 n  h+ ^3 [1 \　　 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 ()
( d* ^: r2 L( ]0 y+ ~* L　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
  
public sub===Print (label, output)
Parameters:  
- B3 `% o- Y) w6 `* q  U2 v# I6 l9 Q　　 - label [string]: Description of the variable
- ?! A4 d" ^8 O5 {8 o% w　　 - output [variable]: The variable itself
' e3 n' B; A" w4 N  
# U' Q. A( d) C; z! Ppublic sub===GrabDatabaseInfo (byval oSQLDB)
& b% y$ s" N* k. s3 I) x: b, N% tParameters:  
　　 - oSQLDB [object]: connection-object</P>