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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
) j/ s, W; U# y/ l0 J1 x/ n<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
% O! R9 U8 I1 J: H( {使用方法很简单：
test.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
output="XXXX"
Set debugstr = New debuggingConsole
: q  m: D9 B# _debugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
- T" N6 i( v+ Z! I" m& ?- k0 b　　 '……
& P/ L8 B( Q2 U1 P$ h& B  t9 m　　 debugstr.draw
. H- E9 u3 s9 f: c3 WSet debugstr = Nothing
%&gt; </P>
/ P! B7 m- ]3 m+ }5 Z% g0 ~<>=================================================== </P>
<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
9 n$ a% k& w4 K9 J% C<>　　 private dbg_Enabled
　　 private dbg_Show
, f, z. r( x. l; x! |　　 private dbg_RequestTime
1 l: ]+ e/ |1 s8 q. N( w　　 private dbg_FinishTime
; p- }; p/ B5 S; C) e' T　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
　　 private dbg_Show_default
　　 private DivSets(2)
   
! \/ j% a* t3 C* K( d  \: e6 r% @'Construktor =&gt; set the default values
! E; R3 t# j" T) r% i/ M* YPrivate Sub Class_Initialize()
　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
! ?5 F* M8 s6 O. H/ J5 [　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
# ?9 Q% I4 d( c- z/ c1 t<>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;
# |8 Q$ g2 L) [7 J) f7 N&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>
) [3 y! _' k$ q, t' o<>　　 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>
; l- R% }8 {: v  X1 w- M<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
& W1 d/ [( `! f% S% oEnd Sub </P>
6 r! [* z  _5 E# }<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
& F: |. T7 {: \/ v/ S! r$ Q　　 dbg_Enabled = bNewValue
3 I3 [, a, `) m/ u1 r  \End 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
　　 dbg_Show = bNewValue
& d% }* x5 f/ gEnd Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
" K5 `# u4 q2 C: U( M8 j5 y　　 Show = dbg_Show
' Z# z1 V: Z' S, J  A; {9 dEnd Property </P>
6 X& J- Y4 r7 m2 [4 {$ ^9 ?. Y0 t<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
& n+ \2 V1 {! ?! z$ H　　 dbg_AllVars = bNewValue
End Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
1 ~9 M0 |1 C8 I1 B& N! m　　 AllVars = dbg_AllVars
, }$ Q4 S9 }5 h, BEnd Property </P>
) F# K5 a0 ?" Y! h6 r<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
  Y/ P8 A5 {, {! M; @8 l'***********************************************************
Public Sub Print(label, output)
　　 If dbg_Enabled Then
4 @% q, J( C" c2 z6 \, V　　　　 if err.number &gt; 0 then
, L0 F! O+ g. k. E　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
7 u3 V. O6 B' E　　　　　　 err.Clear
& J5 y8 `% r7 \& @% J, ]　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
3 W0 m  g' I! i5 ^　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
; i- c. o, Z" z- h$ r/ K* oEnd Sub
* r  f% m, w% D7 ?  
, l, {6 T+ S5 T8 \7 {, p2 f'***********************************************************
'* ValidLabel
0 m# n+ x4 m" L5 @'***********************************************************
) t! e6 w  N, d: JPrivate Function ValidLabel(byval label)
5 Z( p7 D- x6 ^　　 dim i, lbl
* {' ]: i, D' K8 U) G8 H　　 i = 0
4 A" B/ B; R$ L* d　　 lbl = label
$ X% X4 f: Z5 N( |. v- H8 Z　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
+ |' h, p; ^* x+ Q$ m4 v0 s　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
; }) I9 `2 Q' ^: M  
　　 ValidLabel = lbl
End Function
  
8 T# _) x, b. \. G/ v& B'***********************************************************
'* PrintCookiesInfo
1 C( \' D* W* l( r( F'***********************************************************
3 U! o+ [$ t1 G4 ^Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
! u* |: X( \% _# q1 k* s2 }9 o: r　　 If Not Request.Cookies(cookie).HasKeys Then
; n; F8 [7 L- ~, }: ^) X, `　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
　　　　 For Each key in Request.Cookies(cookie)
* M8 P; e+ \1 h& t8 o- N　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
% W; N& D  H# N   Next
  z, k: @5 l6 ]　　 End If
8 v( G: n& T4 V3 N　　 Next </P>
8 w7 `; _+ l1 u% ]9 |9 O% H. L. `" n0 A<>　　 tbl = MakeTable(tbl)
1 {3 d/ i4 u! D: {3 ?$ s% {- b　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
0 _9 i9 j- S6 B5 U　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
( d) f2 S  k! J! v7 Xend sub
  
/ m9 _/ B  D) }- p'***********************************************************
* z/ I- H. d# h'* PrintSummaryInfo
'***********************************************************
( S$ `* \1 D4 f  V7 Y7 h* JPrivate Sub PrintSummaryInfo(byval DivSetNo)
　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
; ^) u( m& U. b, [& e. m　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
+ Z) z, N. r2 v/ d- K7 q" z　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
# J5 u+ I+ e: x5 R　　 tbl = MakeTable(tbl)
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
1 H# Z7 Z0 @) t　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
! H8 j; I; J& L4 r4 N" I<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
$ Z3 m4 y. m' H9 R! i/ X8 s; j'***********************************************************
Public Sub GrabDatabaseInfo(byval oSQLDB)
- {* q  q1 B+ x% W  A& n0 @　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
* ?7 @1 _% V) S4 |　　 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 <>'***********************************************************
'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
9 F& d9 k6 d5 @6 ~- e5 N2 ^　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
' o  v6 G7 L2 |& A7 d　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
/ H' h! z- S2 F'* PrintCollection
/ t4 t, [! D6 o% G: z' I'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
　　 For Each vItem In Collection
+ V; A, W* X* y6 z& L$ P. z　　　　 if isobject(Collection(vItem)) and Name &lt;&gt; "SERVER VARIABLES" and Name &lt;&gt; "QUERYSTRING" and Name &lt;&gt; "FORM" then
0 t% P. b0 G/ l3 e& |% G0 t/ S, o+ p　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
' W/ d/ ~$ v0 N( C3 w. a5 \+ c　　　　　　 if dbg_AllVars then
　　　　　　 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
2 g. K2 x0 B% X* R, b/ L　　　　　　 if Collection(vItem) &lt;&gt; "" then
/ T6 N$ \. f* ?6 o! v5 L　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
. v+ F6 l$ f( c/ f" |2 e# ^8 vEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
. t# Z; v5 U& \' w　　　　　　 tbl = AddRow(tbl, vItem, "...")
0 \9 Z( v# ]- K+ i/ x9 [8 y. l5 K　　　　　　 end if
8 o  h# O( h/ i5 l7 d4 d2 N& e　　　　 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
" D) G  U$ v, Y　　 tbl = MakeTable(tbl)
% Y( x5 Q# ?; L% [$ z　　 if Collection.count &lt;= 0 then DivSetNo =2
/ H4 T" O" ^: w5 A+ j　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
  
'***********************************************************
5 m7 _) @" X% I/ k& t. k3 W1 d; t'* AddRow
'***********************************************************
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><>'***********************************************************
'* MakeTable
2 r) C+ q1 M2 L0 c! c' w3 E7 s7 I'***********************************************************
0 V8 W( S! U% E1 QPrivate Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
End Function </P><>'***********************************************************
! i, G6 K% u, |0 r+ i6 d''@SDESCRIPTION: Draws the Debug-panel
, E' T- {2 G" h  u7 w'***********************************************************
Public Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
% l, n. B8 F+ x  
( ?7 ?* A4 X9 J# H5 x) A　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
) P' V; T- ?$ v& U　　   dbg_Show = split(dbg_Show,",")
  
# A# g7 q; ?( G  _+ G  S" ]: j, y　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 Next
/ [% n4 ]# `0 n, U& i  
9 I. d* e, o9 B( [+ l3 @& R1 W　　 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;"
4 j, y8 j0 l/ ?$ x# @+ e/ O9 M0 A　　 Call PrintSummaryInfo(divSet(0))
' B8 |9 W5 [" |" Z8 s　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
* F! R. |  r% y　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
8 b( `/ |7 s* P5 R　　  Call PrintCookiesInfo(divSet(4))
9 q8 J" s+ m3 n: d　　  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))
2 g( p6 p9 S% N, \　　  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),"")
  l) x8 |3 a  ~# k) n6 l　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
6 J4 a# y2 i9 ^0 i: E' j. G9 e　　  Response.Write "&lt;/Table&gt;"
+ B. ?0 s5 m. Z　　 End If
* u. u' n7 [9 _1 VEnd Sub </P><>'Destructor
0 k7 c0 j5 @8 y8 k& KPrivate Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
+ G; @$ G& O( o7 V* h$ H( rCLASS debuggingConsole
' v! b8 V0 o* v( o' W1 rVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
$ y4 T4 Z" X: A) Y: Z$ q&amp;n
% @. Y8 l) j- a7 N$ s& nbsp;
Property Get Enabled===[bool] Gets the "enabled" value
" n% R! U% U/ r% V1 r( B  }  
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
: R, d. ]) P2 C  
+ k% z+ Z/ L) j% B, gProperty Get Show===[string] Gets the debugging panel.
) n! X  z! K4 L1 e  
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><>--------------------------------------------------------------------------------
' d  E3 ~1 x. TPublic 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 ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
" y! J. h, ~; H* @  
public sub===Print (label, output)
: O+ {" n4 @- V) m% |Parameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
+ a3 W9 F. p$ }% T  
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
　　 - oSQLDB [object]: connection-object</P>