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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
+ z8 l) T: o" y( V7 Z7 ?8 dtest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
+ |/ `1 G$ q" ^; M/ b&lt;%
! ~( i2 p7 ~; Z& \: b; b4 Houtput="XXXX"
5 R- C7 n, O# Y& Z0 h* d6 RSet debugstr = New debuggingConsole
( U0 l7 r7 u' A2 Bdebugstr.Enabled = true
) t2 Y! j5 o9 p! r　　 debugstr.Print "参数output的值", output
' A+ a) I5 p  N- Q( h　　 '……
　　 debugstr.draw
Set debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
4 z) e! e  C/ P$ M1 k- o<>&lt;%
! l3 g( R& J$ l1 A  ~Class debuggingConsole </P>
<>　　 private dbg_Enabled
, k& `  N" B' {- |8 ?: T　　 private dbg_Show
* f0 H6 F$ D# P( E5 v; @; J　　 private dbg_RequestTime
　　 private dbg_FinishTime
1 e/ \6 y  B! g$ G5 u+ O　　 private dbg_Data
+ `* J  B* k" N* B# z5 U- b" ?　　 private dbg_DB_Data
! f% s7 t5 |+ x: z2 u  K5 r: _　　 private dbg_AllVars
　　 private dbg_Show_default
　　 private DivSets(2)
   
5 c. t' N0 F& z'Construktor =&gt; set the default values
9 K/ \% g  c) f5 x5 u4 lPrivate Sub Class_Initialize()
　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
8 G2 x( w. {+ E5 |<>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>
5 I2 F$ C2 @. n# O<>　　 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>
  i2 P- Y* Q$ ]! n, T+ d<>　　 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>
8 s  I  b& p1 h" j<>　　 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
. R% P& A$ o3 n2 f% w. y' K! b　　 dbg_Enabled = bNewValue
( E6 A  I% x7 OEnd Property </P>
  _! ?, Q+ R$ N<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
8 ^! o% |, \- F8 f. c1 |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>
- \: P& F- l, w1 B7 e- F" ~! u% q<>ublic Property Get Show ''[string] Gets the debugging panel.
/ d; n+ w  y0 }7 l/ x　　 Show = dbg_Show
End Property </P>
0 X4 q& c$ m8 }5 e. V9 ~1 ]* j<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
5 G5 Q( E2 Y2 y　　 dbg_AllVars = bNewValue
End Property </P>
: X/ @/ ]9 R$ I% F. f* y( B<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
8 Z+ @0 h2 w5 G, @6 L  z　　 AllVars = dbg_AllVars
# }; ?+ F# K7 g8 e3 X5 kEnd Property </P>
<>'***********************************************************
- S" j+ j2 ]* t% O. Z' T6 Q6 E& I''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
( O( b& \1 ]+ ?* A9 Y'***********************************************************
Public Sub Print(label, output)
5 {) y# |+ n, `4 u0 `8 e9 `　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
9 Y) R4 X, M) e; }. J　　　　　　 err.Clear
　　　　 else
4 t+ e. D' U4 k) t6 ~& @2 p! l" n　　　　　　 uniqueID = ValidLabel(label)
/ @% u8 N  e3 a( f  G　　　　　　 response.write uniqueID
2 o7 V7 w: \+ P6 y0 R　　　　　　 call dbg_Data.Add(uniqueID, output)
9 ^6 F, j4 ~' y! a: M8 a% H; f　　　　 end if
. Q) k4 p6 G& a! U9 M　　 End If
End Sub
/ k1 D# ^+ S  M  
: |% @7 l5 n+ h, n'***********************************************************
1 K3 n" V& Q# w* n! E, r9 _' O) ]6 m( ~'* ValidLabel
' f! X9 @/ ?# Z'***********************************************************
Private Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
* j5 `" q4 b2 H4 `　　 lbl = label
　　 do
6 l4 L* |, a0 a　　 if not dbg_Data.Exists(lbl) then exit do
$ v& d% M( X# a- B% C2 R+ s　　 i = i + 1
) x& O, }& M5 Z0 F* R/ B7 N* @2 M% y　　 lbl = label &amp; "(" &amp; i &amp; ")"
# J  l# _: D6 e1 b& ?　　 loop until i = i
  
　　 ValidLabel = lbl
; {# e0 x2 k% p0 P% W. XEnd Function
  
'***********************************************************
'* PrintCookiesInfo
'***********************************************************
( _5 N; _" ~$ p  d! z# I# fPrivate Sub PrintCookiesInfo(byval DivSetNo)
: j6 j6 f/ C7 a4 W' m　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
8 `3 J% z2 G5 e/ l& x: @, d　　 If Not Request.Cookies(cookie).HasKeys Then
! s" W0 |; E/ t9 U1 \　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
7 t4 A) l+ X, t. U" Z+ [　　 Else
" J( b- i/ N4 q　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
: u$ d* ]0 Y/ \8 e; r3 f" E' b- ?* j   Next
　　 End If
" L5 W* B, m' D- m2 h) }+ z　　 Next </P>
<>　　 tbl = MakeTable(tbl)
- I  E; }9 p( J# C' u. R! }3 Z　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
* q0 {: ?" Z1 o2 e6 W) v  ]　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
: ~, ~5 p0 _/ R5 G2 D- n- I4 S2 Y　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  
  g' d6 Y) L. ]+ R% w8 I, @& ]" Q'***********************************************************
'* PrintSummaryInfo
'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
　　 dim tmp, tbl
　　 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"))
# K% G2 Q/ s, n5 j1 e. _' n　　 tbl = AddRow(tbl, "Status Code",Response.Status)
- u' k, q+ Q7 W4 w( ?　　 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)
6 a  T& e$ t: q) h- f　　 Response.Write replace(tmp,"|", vbcrlf)
% W, |: d$ N& ]6 |End Sub </P>
<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
4 \% z' I" C' n; \& J( ?0 B) F''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
/ A9 M: q9 w; Y9 pPublic Sub GrabDatabaseInfo(byval oSQLDB)
3 p- k0 Q( Z, O. z) T5 Y　　 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"))
8 Y) C) u: X! K& A4 b7 T/ h　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
End Sub <>'***********************************************************
' ~8 Z3 M7 ?! t% y7 k7 ?$ R# O0 L'* PrintDatabaseInfo
: E) I8 a, ~. }- P  d3 Y+ ~6 F'***********************************************************
1 _  M0 X  [9 z: Z+ v! o/ W! [; {  RPrivate Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
: }, w+ }+ u5 O! v　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
'* PrintCollection
'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
& L3 r; A+ ~( L# ^+ G: V6 G9 S　　 Dim vItem, tbl, Temp
　　 For Each vItem In Collection
( y! I' b$ g! `0 h1 s) U　　　　 if isobject(Collection(vItem)) and Name &lt;&gt; "SERVER VARIABLES" and Name &lt;&gt; "QUERYSTRING" and Name &lt;&gt; "FORM" then
3 L" G8 Q8 S% B$ Z0 [　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
! Y6 {+ U( s3 \% |7 @0 |) U% [　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
( l$ K5 }9 e( n" m" u, G. R" ^　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
, G# d/ x' k  r8 f7 q& d; k　　　　 else
　　　　　　 if dbg_AllVars then
　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
* b" P- Y* w2 n6 e9 z& o8 h　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
/ n+ j! Z$ ~) q; D( q. n2 E　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
$ n, Z+ \( Y4 I8 g6 O! ^　　　　　　 tbl = AddRow(tbl, vItem, "...")
0 I/ j" G# t, F& ?- R/ t( p　　　　　　 end if
　　　　 end if
  S4 P, F+ J# r+ b" s　　 end if
  u5 u& W: M# b4 D5 f, C　　 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
# K* m7 ~6 h9 [5 U) [5 D2 r　　 tbl = MakeTable(tbl)
3 W, l+ w6 X: ?: s6 D8 m7 L2 H　　 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
  
'***********************************************************
" n2 k6 S, `% ?% J' \'* AddRow
) ~0 e5 N( F3 ^8 [3 _. a'***********************************************************
- x4 G. @0 @" A2 [# u. \' APrivate Function AddRow(byval t, byval var, byval val)
0 {2 F) Q# G" n4 z　　 t = t &amp; "|&lt;TR valign=top&gt;|&lt;TD&gt;|" &amp; var &amp; "|&lt;TD&gt;= " &amp; val &amp; "|&lt;/TR&gt;"
4 a. m, l. L# k; {+ ~　　 AddRow = t
$ p; [- t1 i' I* {6 ^End Function </P><>'***********************************************************
'* MakeTable
'***********************************************************
  M) z" S* \3 ?5 ^2 G" g0 cPrivate Function MakeTable(byval tdata)
/ y- I9 ]: S' }% Y　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
. L) X+ h2 ]+ A! [4 W　　 MakeTable = tdata
End Function </P><>'***********************************************************
3 n7 r5 ^: e/ e- m# X''@SDESCRIPTION: Draws the Debug-panel
8 B  o2 ?" I, o' t3 b'***********************************************************
3 J) _5 l) G, UPublic Sub draw()
" g/ U7 v- q! T　　 If dbg_Enabled Then
5 e! F# K9 d0 R$ q4 g7 A　　　　 dbg_FinishTime = Now()
1 r$ o# w6 `% f  
　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
: c% R2 m4 O# g1 }. C5 t  
　　 For x = 0 to ubound(dbg_Show)
: \3 m8 ~0 w8 i- }, q" ]" E3 Q! x　　　　 divSet(x) = dbg_Show(x)
　　 Next
/ a( h+ W* ?1 b4 b2 t( 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;"
7 O. S9 g0 e" W/ ]9 O9 D5 u　　 Call PrintSummaryInfo(divSet(0))
　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
　　  Call PrintCookiesInfo(divSet(4))
& K+ L* e+ z1 U: X2 c8 Z　　  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))
/ j5 J9 t4 q5 d; x　　  Call PrintDatabaseInfo(divSet(8))
+ _$ r  B) |+ E" I( T% I1 q　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
- E0 i. i% L) F2 w% E　　 End If
End Sub </P><>'Destructor
Private Sub Class_Terminate()
4 e1 w  V- ~5 T  M. o2 B　　 Set dbg_Data = Nothing
# E5 ]) Q9 A% L4 |. tEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
- [* W- U7 q' J# _* iCLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
bsp;
3 m) ]# c/ h% [Property Get Enabled===[bool] Gets the "enabled" value
4 u( E8 f. u, \/ M; f$ Z  
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
' h; r' `0 l8 {# y* G6 m% O  
. O* z5 d: }0 q: `- [6 h( E" e- K4 FProperty Get Show===[string] Gets the debugging panel.
/ G" a% P4 l. m4 `5 s3 f  
. }$ q0 E- d. C2 X1 N: R& yProperty 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><>--------------------------------------------------------------------------------
5 u" Z- W: r4 J/ ?Public Methods </P><>public sub===Print (label, output)
　　 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 ()
) _. ^# ~3 y2 ~8 R  v　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
; P/ w! V. H6 o( W& L5 D$ {, w. YMethods Detail
% p$ J3 z. |) S' E  
public sub===Print (label, output)
$ P3 V* j( k# P8 EParameters:  
3 n( o7 ]# K# r8 {2 ~' |　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
: P5 G" p2 `/ ~public sub===GrabDatabaseInfo (byval oSQLDB)
  D) C+ w3 N* J+ b. vParameters:  
& M. f- T/ c" U/ R6 e0 J- C　　 - oSQLDB [object]: connection-object</P>