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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
test.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
7 D: o3 i# b# Xoutput="XXXX"
: `% {* s9 X" O, I0 ^Set debugstr = New debuggingConsole
0 D  }- h' y% o& E- xdebugstr.Enabled = true
$ Y3 U) }  s# ~9 g6 W　　 debugstr.Print "参数output的值", output
　　 '……
" G  G" E- P' H/ |0 }6 e　　 debugstr.draw
Set debugstr = Nothing
%&gt; </P>
9 T8 @5 {6 ?( b& a" q& p! T<>=================================================== </P>
<>debuggingConsole.asp </P>
<>&lt;%
8 i+ v  w; \' H0 x, u+ FClass debuggingConsole </P>
<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
; y" n% G# v4 R8 X　　 private dbg_FinishTime
, x# W) }* U: W/ b% Q　　 private dbg_Data
: i* U4 r% q! }& S' l3 ]3 z0 O　　 private dbg_DB_Data
　　 private dbg_AllVars
　　 private dbg_Show_default
# e/ x) v7 h( N0 B8 }9 j5 N　　 private DivSets(2)
   
/ J9 O+ r* ]* E* l. V5 P5 Q! ]'Construktor =&gt; set the default values
Private Sub Class_Initialize()
　　 dbg_RequestTime = Now()
& G$ [: H- p: t2 f　　 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>
8 a, o" q, _- M0 _! }<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
  }$ \" ]. I4 Z6 b4 B/ s# r&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 O7 M3 q* x. N& J) [2 n<>　　 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"
End Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
# |, n1 f# \$ {　　 dbg_Enabled = bNewValue
End Property </P>
1 W4 V" D9 ?2 k+ Z6 m. m3 L<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
! [) h! [- `3 I$ }　　 Enabled = dbg_Enabled
$ S* a6 a7 K/ q9 o. \6 x. k$ r5 oEnd 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 R2 _9 y( g& v" l　　 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
' X7 V6 R" B" _+ o2 {; X$ m) a　　 dbg_AllVars = bNewValue
End Property </P>
; i6 y' Q* p9 i( F$ @: {<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
End Property </P>
6 C! J8 F# D) D# @# [& L4 h. J# H' D<>'***********************************************************
5 V% }& W- B$ c''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
' r& W, Z* M% p( U'***********************************************************
Public Sub Print(label, output)
% }5 {! {9 u+ M: |" P) j! L" [　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
. G5 L$ [. o% A/ Q. z# c; D　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
　　　　　　 err.Clear
　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
6 B; h6 h  u; v3 k  ~　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
4 k- ^# @# \1 TEnd Sub
3 }* a/ b/ |. w. f  
'***********************************************************
& _" ^" @" w7 J4 Y8 N* M3 Y: o'* ValidLabel
'***********************************************************
$ W- S+ X- w, i- DPrivate Function ValidLabel(byval label)
( Q2 f1 N+ `4 U4 h4 ~2 t　　 dim i, lbl
# o* g8 x5 x5 u) |) d' j: L& e9 E, m　　 i = 0
　　 lbl = label
9 \: D$ x- O2 g& D6 u　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
% a) U/ H1 j9 k. n5 G　　 lbl = label &amp; "(" &amp; i &amp; ")"
* ?2 x  F* l* x- b3 j6 B　　 loop until i = i
. f" ^) [, Y3 }, K/ @  
* K# l, D, @- ]  C; [+ r/ F　　 ValidLabel = lbl
End Function
  
$ v8 k! [$ w9 D( J+ U2 m, Q$ 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
0 \8 n% j) ~! Q# m( y　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
$ M+ b6 M3 n5 @5 t! u　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
( z5 J( R% y5 w# t/ nCookies(cookie)(key))   
5 O' e7 O* Z8 ?# Q: t/ u   Next
9 d& z/ F7 A7 z& Z' D　　 End If
　　 Next </P>
<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
8 o7 f0 `' u& d! T9 E) m4 K# v　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
9 J9 l) P3 I4 f: I( \+ i　　 Response.Write replace(tmp,"|", vbcrlf)
9 d: b* p0 i  l5 q, Kend sub
# R4 W6 |5 h. d- q2 o  
4 E8 y5 A3 F6 s& X: F1 F; W: D'***********************************************************
0 |4 ]5 K9 S( P'* PrintSummaryInfo
'***********************************************************
# y1 j7 T* k1 I& q" LPrivate Sub PrintSummaryInfo(byval DivSetNo)
6 g1 ?) `7 i' Y& v　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
' x1 _7 e* e: w; s　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
* ?: S, P, z& ?# |6 t: `　　 tbl = AddRow(tbl, "Status Code",Response.Status)
+ C  e- T. C( T+ S' T2 b/ X　　 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)
. Y" z4 q) r9 M3 h# p　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
/ W- r$ n- _: _8 Y+ {- e5 `. w''@PARAM:  - oSQLDB [object]: connection-object
: e6 k" D. j1 U, ?' O! g'***********************************************************
/ J' @) K" P7 F4 l0 qPublic Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
: j5 G( k: K* T" \  W- Y3 m　　 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"))
# t& x* o$ I+ h" i$ q8 R) x2 b6 SEnd Sub <>'***********************************************************
; M! [2 a$ @5 [: s3 J5 u'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
1 \% g1 ^# p( C1 V& x2 i　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
) \; ~; N2 t% l( @& j0 L3 V　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
4 h7 N1 w4 @# [& N! N3 Z8 d+ UEnd Sub </P><>'***********************************************************
& r; ^7 ^. F( u; f1 I8 O; U6 W'* PrintCollection
+ d$ Z# Q: d3 Z. h+ d* }0 m'***********************************************************
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
3 _& b4 `, I, V7 V　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
& i- k  i1 ^( c) [2 y　　　　 elseif isnull(Collection(vItem)) then
2 t, r0 ?4 ?, v　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
2 o# G' |; W7 G9 A* g" f　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
( _/ }' L# p' r) O' v) k4 i　　　　　　 if dbg_AllVars then
5 l! k/ H9 C6 m4 `4 A3 O- R　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
. O$ c7 `$ ^) y& E　　　　 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
  f4 c0 k( u$ P　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
  W. M8 q& P$ e) ^# o8 _, uEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
8 `7 A4 L5 F) ^) K9 M0 ]　　　　　　 end if
　　　　 end if
, V. F3 _( e0 b, q; x4 k0 e　　 end if
" N6 D* e; v% e+ n, _　　 Next
* ~4 L0 K0 |' @5 v: Z7 }6 s5 b　　 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)
5 [) _! S3 W6 _" _　　 if Collection.count &lt;= 0 then DivSetNo =2
$ Z. ?9 m; |1 O　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
: T  e/ j- N1 J3 e: S5 ~! \1 x　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
* R0 n+ Z; U* ?; @, x, x( d  y　　　　 Response.Write replace(tbl,"|", vbcrlf)
! {' x; G  ]. S  {: d9 ?5 w4 qEnd Sub
6 w+ r% H& V/ o! l) u, q  
'***********************************************************
'* AddRow
1 O( u& t  c8 ^. |- j'***********************************************************
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;"
1 h7 _3 \  `3 J* m: @/ n　　 AddRow = t
End Function </P><>'***********************************************************
5 n' N  A# e/ g8 v* S'* MakeTable
'***********************************************************
+ X, y- I: R! L4 ~+ I& {Private Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
) @* `' M# n1 i/ m6 F　　 MakeTable = tdata
End Function </P><>'***********************************************************
3 N1 ?/ z! p' r. n''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
) O/ s8 o$ M. f, x$ WPublic Sub draw()
　　 If dbg_Enabled Then
3 K" c0 l2 A! V4 J　　　　 dbg_FinishTime = Now()
  
. m  L' b. I* e9 V  C- j2 Q, I+ S　　 Dim DivSet, x
* z' b) b( t4 P8 I6 d4 Z　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
1 `* L$ x. O% R  
: }0 a& H; a' Y# g& P9 L　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 Next
  
0 }0 @5 @2 v+ ~$ @1 l" u7 D. a　　 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; {2 L/ `  l　　 Call PrintSummaryInfo(divSet(0))
　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
  l, H# k6 \/ a' ?3 ?/ n* _　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
0 z; Y9 U9 _' X5 }4 x　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
　　  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))
5 Z, \$ V* q0 d  [! Z　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
) Q0 _, C3 Q3 S7 y. P9 T　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
. V/ w( t  ]9 t9 s　　  Response.Write "&lt;/Table&gt;"
　　 End If
" D+ e1 F( f" E; v; J4 u" NEnd Sub </P><>'Destructor
Private Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
  n; ~$ x! x) @  r0 Q6 ?0 D9 k$ ?Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
# a& l; w' }5 }&amp;n
bsp;
' V, ^: q! S! Z4 LProperty Get Enabled===[bool] Gets the "enabled" value
0 h+ K+ v! k$ w7 X* O/ I' p" `  
; q( f4 N. F5 d4 t6 p% tProperty 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 h4 ?" L: Y! [1 A) Z4 @8 x: Y% M  
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)
+ f7 u$ H8 ~" f/ o. O, E　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
  k3 p% w& ?/ m; `  t9 n( J" F　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
4 G+ G- L; v7 p% @! `　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
* B. o2 E0 N4 [; x. ?! a% |- Y9 uMethods Detail
  
7 q+ |1 G) I: U& opublic sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
( \; s# @% q% H7 |4 e3 _　　 - output [variable]: The variable itself
  
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
$ x- ~$ @$ ?% T  A0 \% [　　 - oSQLDB [object]: connection-object</P>