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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
0 Q; O; _9 c  n, A  A" j3 K<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
0 X* i  e, z: ttest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
# p( O0 E1 A( e' {1 b&lt;%
( A# r' f. {5 \6 v, o$ ~output="XXXX"
% l9 c8 F9 H- _' }Set debugstr = New debuggingConsole
5 q. i& v8 u3 I; H7 w  adebugstr.Enabled = true
1 g; T1 \) v+ b& S0 a8 J6 i　　 debugstr.Print "参数output的值", output
3 e2 \8 ]! r4 j" |- P　　 '……
　　 debugstr.draw
Set debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
9 U- d. `1 f2 k. t# Q% I<>&lt;%
Class debuggingConsole </P>
& T% G, U" y3 P9 N# x$ W7 L2 Z<>　　 private dbg_Enabled
　　 private dbg_Show
3 h# Q  N/ k, N6 i　　 private dbg_RequestTime
　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
: w/ p( T  k3 e# j0 t　　 private dbg_AllVars
　　 private dbg_Show_default
　　 private DivSets(2)
; G! U, ^7 _1 \% W* r% r   
'Construktor =&gt; set the default values
# C; l' P1 w  W' E2 W; RPrivate Sub Class_Initialize()
　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
$ i* Q  p# w2 m9 ?7 e+ @　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
4 U% W3 y4 e4 w$ |2 r# f1 ]<>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>
6 z5 @: g) i% X0 x: S# B  Y<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
4 h5 J9 `- B& }&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>
" F. j5 R& G. p" \( P6 ^/ f! f8 |- y<>　　 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
. p* R6 ^: m# @# F2 ?& p　　 dbg_Enabled = bNewValue
0 d. w  s2 R. a5 k, `  JEnd 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
! r: B% J3 [) X0 M" `& b　　 dbg_Show = bNewValue
, W) x; \. h  ^% oEnd Property </P>
$ L- t0 T' g0 b$ W<>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
3 D- O9 T- `: {1 x- s/ Z, n; h　　 dbg_AllVars = bNewValue
End Property </P>
/ o9 Z8 t3 V, S) s. v<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
; t% P! l8 Y) S2 b: O" r; i' S　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
2 V) u+ W3 @, H''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
. A$ p; m$ n3 Z' ]5 X. d7 v/ E/ A7 Y''@PARAM:  - output [variable]: The variable itself
'***********************************************************
6 n; P' a. H9 J8 YPublic Sub Print(label, output)
　　 If dbg_Enabled Then
/ b. @+ d9 L, d2 \9 g7 H8 h4 ?+ `　　　　 if err.number &gt; 0 then
6 H" A; T3 X$ w# c: c. P; w　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
　　　　　　 err.Clear
% j( |2 t3 G# Y/ ]　　　　 else
6 b( t8 U5 b1 w1 O- ^+ X　　　　　　 uniqueID = ValidLabel(label)
) w7 k6 e/ ]3 S4 b* Y　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
2 B: n) z5 Z6 v  \! R5 bEnd Sub
  
'***********************************************************
6 _# Y. ^4 {8 C/ }' e'* ValidLabel
! y; }3 r( m3 N* t# W# {2 t8 X'***********************************************************
/ K9 E4 g! J, |% nPrivate Function ValidLabel(byval label)
7 T( b9 l- a# U, l" M5 f/ I　　 dim i, lbl
　　 i = 0
　　 lbl = label
　　 do
  V5 x- c' L% b- H- t8 m- r/ m1 ]  U　　 if not dbg_Data.Exists(lbl) then exit do
) T; ~: X, a* }# y7 D( U　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
& f& Q9 v4 h5 q! ]' {  
　　 ValidLabel = lbl
End Function
  
& D& b1 L6 N" n1 d5 l2 ~'***********************************************************
7 Q8 V0 P; L$ v- Y* T* n( B'* PrintCookiesInfo
! k( e& u& y4 O1 e" U'***********************************************************
  i$ o% l8 v& zPrivate Sub PrintCookiesInfo(byval DivSetNo)
: J, F/ a; H% m5 f4 e　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
" x" {4 G4 ^( c　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
5 v: ^- a# R/ I7 ~0 O: J　　 Else
" q9 w% i) M/ A% x' n" n7 a) N　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
; r1 C% i+ P/ [  M+ `7 MCookies(cookie)(key))   
   Next
　　 End If
1 Z0 l8 F( N+ ?" Q/ r: b　　 Next </P>
<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
/ \* E/ D$ x1 |; Q9 B　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  
'***********************************************************
'* PrintSummaryInfo
2 s! Q( I, N6 \6 C'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
! B3 U; W# A" E( F　　 dim tmp, tbl
# Q& @1 _+ v. q$ h% N. A　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
- G$ [  T3 }: b1 ~$ b　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
% A) K5 v9 A7 ?　　 tbl = AddRow(tbl, "Status Code",Response.Status)
5 \9 G, Q: g9 L7 k6 ~　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
! F  @+ L  s* ?: y( p5 I　　 tbl = MakeTable(tbl)
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
5 n: h  C' r; R, p+ B5 {3 N　　 Response.Write replace(tmp,"|", vbcrlf)
% _% X' g1 B9 d, G( ~5 M# CEnd Sub </P>
<>'***********************************************************
; r& T( H7 y0 q" a2 h''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
$ Z  y* b0 w" Y) V( c, I'***********************************************************
Public Sub GrabDatabaseInfo(byval oSQLDB)
　　 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"))
, V( c8 l9 o$ H$ n; v# {　　 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)
  M: n- s0 W% g　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
' U( u- V$ x! o" C3 S　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
'* PrintCollection
+ s* M# ~: u$ Y; F" e$ }8 ^& n'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
2 S, q! x% n0 F" R7 J' f( @+ I　　 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
) X) f, z# p6 J# w6 f　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
6 C/ i) f* z: {7 Q, m　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
4 D  w; N& m, H$ q$ v+ j; \* e　　　　　　 if dbg_AllVars then
6 k7 x. z+ V, ^" r　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
3 Q& C& E/ I. Y5 [. D! {5 V; t  C　　　　 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
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
: B1 [( l$ Q' N; i: U4 R3 T! C2 ~　　　　　　 else
3 P' d& d' L) `' l3 m( l　　　　　　 tbl = AddRow(tbl, vItem, "...")
3 C8 ^7 r, x) i8 K: z& m　　　　　　 end if
; m& ?+ @+ T4 j/ p  R: z　　　　 end if
+ n9 `% @3 e; o/ O4 L7 O. C  G　　 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
　　 tbl = MakeTable(tbl)
' H2 K% b1 V( r. ~* d2 y, q　　 if Collection.count &lt;= 0 then DivSetNo =2
1 Z* _' s7 P  m+ C6 m1 c　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
+ O: h4 t5 f: u, U/ A2 E　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
5 O" ?2 q, n  cEnd Sub
  
'***********************************************************
'* AddRow
; X2 u5 S* G3 c( y7 h'***********************************************************
Private Function AddRow(byval t, byval var, byval val)
- _# C, X7 p/ a9 E2 g% ~　　 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><>'***********************************************************
4 b" U) r0 V" F& v5 J9 X'* MakeTable
'***********************************************************
) k$ v* z( F3 _9 G/ B2 ]Private Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
/ u+ J' W) Q4 a4 p1 e. j2 JEnd Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
$ O3 ?: u8 }# T& ]7 n'***********************************************************
: z- T. G8 t2 w4 w) HPublic Sub draw()
, X/ V7 ]% |# d/ `8 i　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
7 h3 Y  Z  E$ a! O* Y# w" r  Y  
　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
8 R: E0 H: G& G+ x" y* q　　   dbg_Show = split(dbg_Show,",")
  
　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 Next
5 V" l# e+ C- }6 l  
& p3 f$ X. p% 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;"
3 R6 I) t, Z) t' h# L" H　　 Call PrintSummaryInfo(divSet(0))
　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
: H3 s9 w* |/ \* @# H& U* Q, i  Q　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
6 O, c! i5 H% S* c) {' m* B  Z2 {　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
　　  Call PrintCookiesInfo(divSet(4))
6 f: V# ~* D) l% n, |% x: ^0 p　　  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))
% Z: X& V* @& Y1 u1 c& O! t　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
' b  D+ @# D8 _( D7 J; ?　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
7 M  X/ c! N3 @  ~8 A　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
　　 End If
, f9 t- x6 W3 P) v) IEnd Sub </P><>'Destructor
Private Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
* E) M( D6 k/ p  T4 w7 q$ j: l# }" }Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
# Z/ l* p4 _& b5 tbsp;
Property Get Enabled===[bool] Gets the "enabled" value
  
5 q( N! A) E( M7 f+ X, mProperty 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
; {2 ^7 n5 p: A! h3 K  
Property Get Show===[string] Gets the debugging panel.
0 p" K5 M2 T/ K7 _  
1 u2 P' T7 I. z, ?. g4 BProperty 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)
　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
/ t$ l$ t7 p4 d9 Z+ ]' U% q- t　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
4 q! D8 j' |+ U& v% U- qMethods Detail
( Q/ ~" B1 h; I0 t! ^' O3 k9 F  
public sub===Print (label, output)
! S- ]% ?5 w; v$ uParameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
7 Q) [0 z" |2 f. v　　 - oSQLDB [object]: connection-object</P>