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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
5 o6 ~' B3 ]* E1 d使用方法很简单：
test.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
% @; D+ U8 ?/ g&lt;%
" _- H$ [7 m! ]+ P0 w5 B1 qoutput="XXXX"
6 R) A4 [$ r* Q/ d) ?: HSet debugstr = New debuggingConsole
debugstr.Enabled = true
8 h8 c) C' [; \" v( k; A1 f( E　　 debugstr.Print "参数output的值", output
　　 '……
　　 debugstr.draw
1 Z1 V: D9 C" z2 L4 p9 n' QSet debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
. O9 ?% A. G: Z5 h+ W' E<>　　 private dbg_Enabled
  [; s- |7 Y9 H( G7 c; M　　 private dbg_Show
　　 private dbg_RequestTime
; [, p) U+ {/ L# d4 |0 P　　 private dbg_FinishTime
- q- Q( p& E- M0 e/ H/ v　　 private dbg_Data
　　 private dbg_DB_Data
$ ^" F* H- s9 G# ?3 ^, P+ [　　 private dbg_AllVars
6 _' Y# D  ]  A* [/ S　　 private dbg_Show_default
　　 private DivSets(2)
# m; C9 S9 [2 C; c) ?0 E" i   
'Construktor =&gt; set the default values
) Z1 p) ]+ p; F' o5 {7 D8 gPrivate Sub Class_Initialize()
2 {" B- q. {$ d4 J　　 dbg_RequestTime = Now()
+ ]7 E# x1 C; c! x* l0 `+ C　　 dbg_AllVars = false
　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
) T! Q8 \8 y8 U/ M<>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>
# y9 i6 W  q( v  B2 B! 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>
<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
End Sub </P>
  R3 I. g3 e9 a4 {  ~<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
! `1 \4 l3 G& ~0 U7 d　　 dbg_Enabled = bNewValue
$ g! P0 a& [2 QEnd 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
3 L9 e5 n0 {9 w2 ?　　 dbg_Show = bNewValue
+ s% j8 p: S3 ~+ C* z0 b1 `/ AEnd Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
8 K8 E! A( W. fEnd Property </P>
; ?2 O( b; G, E: ?. P<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
  \4 \2 ]0 d" y9 g4 }2 \1 |) j7 yEnd Property </P>
) n: S9 U3 L; i4 s5 D- d9 M8 r<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
End Property </P>
/ `3 D+ _3 D. j, B+ D& u& L<>'***********************************************************
* P3 n8 Q7 R9 e) R. l/ w: y: H''@SDESCRIPTION: Adds a variable to the debug-informations.
( L" C4 b  Y* Z) U2 s! v''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
'***********************************************************
Public Sub Print(label, output)
　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
$ T7 w5 V3 m; i0 [6 B& V　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
8 |4 s6 ~+ N$ w: O* v1 T　　　　　　 err.Clear
　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
' S3 r1 l" E* F3 Y0 {; N. @　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
8 h% w5 O3 @9 z6 C1 b　　 End If
2 N/ P: ]6 W; c9 z$ f+ b8 WEnd Sub
& S! n, C- x; u5 o& `( ]  
'***********************************************************
'* ValidLabel
'***********************************************************
Private Function ValidLabel(byval label)
　　 dim i, lbl
# v5 b6 [! [% U' L9 h　　 i = 0
　　 lbl = label
　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
8 z7 Q( T! l2 i9 ^; O0 Y9 b8 F　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
  
　　 ValidLabel = lbl
End Function
  
'***********************************************************
'* PrintCookiesInfo
'***********************************************************
, C! e" `  y9 qPrivate 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))   
$ D' l8 r, ]5 c　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
% r' p5 z8 ?5 J5 Q+ y, ~! U3 v   Next
9 i( V& F6 G  H& K' K　　 End If
　　 Next </P>
7 d, ]7 z/ _  U+ ?& v<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
6 Y9 ^$ z! }# H/ t; _- r　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
9 i! q# V5 \! b6 K　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
- s: X. Z$ ^' l/ k  
'***********************************************************
'* PrintSummaryInfo
'***********************************************************
2 U3 E5 z+ n  Z& e# B. |Private Sub PrintSummaryInfo(byval DivSetNo)
$ }$ P/ h; b1 r　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
  d1 p; F8 L$ L0 x/ P; U9 e7 X　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
0 ]/ p* I- F; E1 n( i2 {: y　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
　　 tbl = MakeTable(tbl)
' `+ R4 Q% ^: V/ e( y/ G% @　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
" A+ x1 r% Y) w; v% C( r/ o<>'***********************************************************
1 B8 v1 T  S( T3 B2 F# d''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
$ N2 T; g. p8 p. l4 R' v/ BPublic Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
1 J4 p2 F5 {6 l　　 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 <>'***********************************************************
6 e0 R: P4 ^. G'* PrintDatabaseInfo
! c5 C) n5 h. \) E1 \'***********************************************************
# Y& T1 w' m; P, T8 V1 ~Private Sub PrintDatabaseInfo(byval DivSetNo)
' @: ^% ?2 W; D4 [! `　　 dim tbl
: Z! N7 y7 A. F, Q; E5 r　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
( ~# R1 y* M& n% K% H( b　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
% s. J& F1 F4 k5 n: ]'* PrintCollection
' @- z% V2 Q- h( {. l'***********************************************************
" {! F. J9 o3 GPrivate Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
% s! P- a  u" ^5 l9 [　　 Dim vItem, tbl, Temp
$ z& Q. F% _" W  H% ]5 {" W　　 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
; l7 ~/ h0 Y# e0 l4 }8 h　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
  Z) z( T  E, V　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
　　　　　　 if dbg_AllVars then
　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
: h, i# k* w* A$ D0 O# k4 G　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
/ X% O! Z  Y% I　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
* K3 p: l+ A. f8 K2 a1 h　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
　　　　 end if
　　 end if
　　 Next
" I% t$ t8 I8 s9 J　　 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)
) T% ~( _# m  D/ B2 R$ Y　　 if Collection.count &lt;= 0 then DivSetNo =2
, j  L6 M! p( K, P4 A1 ~* ~3 R, s$ F" C　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
  
'***********************************************************
'* AddRow
'***********************************************************
! u; a, o& p5 c) ]8 UPrivate Function AddRow(byval t, byval var, byval val)
% X  e3 I" k0 E7 c7 k7 y9 k　　 t = t &amp; "|&lt;TR valign=top&gt;|&lt;TD&gt;|" &amp; var &amp; "|&lt;TD&gt;= " &amp; val &amp; "|&lt;/TR&gt;"
& K1 z1 V( O% ?6 R; }) E2 P　　 AddRow = t
) u; e2 K, b* }5 z7 K3 iEnd Function </P><>'***********************************************************
'* MakeTable
: N! F9 Z/ j5 `4 o'***********************************************************
8 R: p' K$ r4 `" R& x  IPrivate Function MakeTable(byval tdata)
+ O1 R: t6 r5 }" X, G$ e: M& L9 m　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
  v1 {  o% Y8 m8 k$ S1 b- y2 q　　 MakeTable = tdata
( E" r6 \+ Y5 I% S' s6 u0 pEnd Function </P><>'***********************************************************
0 |! x* G3 g3 l& t4 ^" M''@SDESCRIPTION: Draws the Debug-panel
' U6 d# D. Z( ?* h! @& n  M2 f$ Z'***********************************************************
Public Sub draw()
( G( `9 V# @7 N5 b3 X　　 If dbg_Enabled Then
5 C2 R- Y+ H8 d) Y　　　　 dbg_FinishTime = Now()
  
' K$ T2 o$ A8 l2 |- ]: \' ?5 e　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
, n8 R0 v( P% h* K3 f) E9 [$ i1 [　　 Next
# E9 L1 X! T+ D3 y6 `  
7 W% Z3 N4 S1 Q/ \) j& C& C5 j: J　　 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;"
$ r8 K; U9 h" p' n8 |) I9 I; Z　　 Call PrintSummaryInfo(divSet(0))
5 p7 t$ {' O/ R  h* ?# J3 _$ r' X　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
; V8 j% [5 T- }$ }　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
  e! c* f9 \" S/ `6 h' f! J$ B　　  Call PrintCookiesInfo(divSet(4))
& i& B$ t: m4 l. T7 ~6 |: m　　  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))
# O6 q, _4 u1 g　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
9 ~% m4 D* \- V2 @# z　　  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),"")
! M$ m/ |, j$ x8 P4 R　　  Response.Write "&lt;/Table&gt;"
　　 End If
) ^" w( d' o/ U8 I- x) R( wEnd Sub </P><>'Destructor
Private Sub Class_Terminate()
  y; n4 {$ N8 z% R3 x* h　　 Set dbg_Data = Nothing
- w  b8 c. o' q. k4 yEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
8 S$ v' y/ l$ e+ U1 d  u5 X&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
  
+ s) [: D6 S' W4 DProperty 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.
1 Z" Z" V- `. f  
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)
　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
/ ~$ P7 g' o- M+ d　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
6 j1 t  K' v8 r" D8 m5 f　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
4 `  R9 }- E  \Methods Detail
0 a" F) H' [8 D7 O  
3 |2 h) k4 h* F% S/ v  |3 wpublic sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
. A0 w3 C/ ?. R) E. I; A7 ?. `  
2 n! q! Y2 D6 a/ Cpublic sub===GrabDatabaseInfo (byval oSQLDB)
9 Z' [! q+ y- R  N- ^8 r* V& qParameters:  
, J0 ^; G3 I& c; Q5 v' u1 k　　 - oSQLDB [object]: connection-object</P>