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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
5 @( s8 x4 }9 B% H, ntest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
output="XXXX"
Set debugstr = New debuggingConsole
debugstr.Enabled = true
1 x7 ~6 d& y+ g* J: o; h8 k　　 debugstr.Print "参数output的值", output
3 n# I8 |# g$ `4 o3 G* H0 _　　 '……
　　 debugstr.draw
Set debugstr = Nothing
0 o* u7 ]2 n4 a%&gt; </P>
3 z) K9 E- N6 t; e' f; {3 n<>=================================================== </P>
) o. S9 V$ }& O6 _<>debuggingConsole.asp </P>
/ R. {/ a" f  Q) x<>&lt;%
- ~$ T/ h; S" h9 f/ @2 e% {Class debuggingConsole </P>
$ a9 F' ~# O) A<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
　　 private dbg_Show_default
9 g$ b* M: p- f　　 private DivSets(2)
( D$ u. ?# y% E9 e0 T$ s   
'Construktor =&gt; set the default values
Private Sub Class_Initialize()
4 ~& G% }3 z  ^- e) j　　 dbg_RequestTime = Now()
# z: c1 n7 _- D3 G　　 dbg_AllVars = false
　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
7 H+ J* i7 G) {$ q; X, S' b4 r2 a6 K9 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;
&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>
. J1 t4 y, N/ l4 Z4 A: v2 M<>　　 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( N. o# I( H3 Y" 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
　　 dbg_Enabled = bNewValue
End Property </P>
  w. s% i7 H) j+ a& w5 I* N<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
- o& i1 U' @1 ~9 `　　 Enabled = dbg_Enabled
- J% V6 S) q4 D: T2 JEnd Property </P>
; P8 t$ @+ r, b0 J8 b& P' q& L8 {: O<>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
1 A8 I  Q$ o. J6 t& n　　 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
; ~9 H+ @: {) U$ g6 a5 ~　　 dbg_AllVars = bNewValue
End Property </P>
# g" Z3 H9 S) N/ T1 s& E<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
. d9 D5 T# P2 S9 T! k　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
2 O0 V. y. A5 M: O$ v# J1 C) X; {''@SDESCRIPTION: Adds a variable to the debug-informations.
+ B& O' w/ W7 o9 }/ L7 _''@PARAM:  - label [string]: Description of the variable
1 s* [4 ?/ H' u  F''@PARAM:  - output [variable]: The variable itself
'***********************************************************
Public Sub Print(label, output)
+ t5 v* c& ?2 U$ n# |) x; ^0 R# E　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
+ r1 x  w% m, i( ~9 g+ W　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
' }0 t# X2 e) m6 j0 b8 w" A. t　　　　　　 err.Clear
; X' J7 }2 W& Q/ Y% q/ p$ ~- q& g　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
/ \% {6 r% `% U6 f+ |　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
7 Z+ Y' H6 q4 V* Z　　 End If
End Sub
- Z4 W  w2 A) e# `* [. b  
0 ^: r9 c( V! j/ R* p'***********************************************************
6 j. s4 M) W; N  U6 ~'* ValidLabel
'***********************************************************
* l0 N4 j' m/ e5 X) H# Y# MPrivate Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
　　 lbl = label
8 k7 `& b$ R) i' K$ P7 g- d% `　　 do
/ n' [- G5 f6 K8 a0 a$ J9 k　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
1 Z- Z' D( Y6 ^6 L　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
8 r8 K4 u- ]8 x4 P: A' N- A  
& |+ B$ j7 n. B　　 ValidLabel = lbl
End Function
  
'***********************************************************
% D9 `! K9 T8 G8 q'* PrintCookiesInfo
" ?/ d" F0 {% X/ [! Z. ~0 H( C'***********************************************************
! a" _% `# C1 G9 _; r# YPrivate Sub PrintCookiesInfo(byval DivSetNo)
& h3 A) U1 V& }1 D3 M7 b　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
% X: V1 J: w% X+ R　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
/ k2 }3 \. j2 U0 y/ C/ [- x　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
7 R# P: n) H* W: BCookies(cookie)(key))   
2 ^2 e9 b5 i  V. t! v2 i   Next
$ J$ r: {5 K0 q/ o# B! Z0 W% V; q　　 End If
　　 Next </P>
<>　　 tbl = MakeTable(tbl)
: T  j# Y6 _6 h8 v　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
* @0 I) A% `2 [0 m　　 Response.Write replace(tmp,"|", vbcrlf)
2 }; ]0 d! Y9 ~9 iend sub
( p5 w( ^. V. Z3 }0 O# @3 P  
'***********************************************************
5 k! r5 e9 ~8 B! O'* PrintSummaryInfo
'***********************************************************
% F! Z/ }/ y' Z& _1 EPrivate Sub PrintSummaryInfo(byval DivSetNo)
* Y, u' n# Y8 y" z　　 dim tmp, tbl
7 n' N) D9 E) h6 U' h% L6 T　　 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"))
! R: c( _1 A& W) N; h2 @　　 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)
! p, W! {8 G5 [　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
& i* _8 ?3 b' y" d7 z0 {$ E　　 Response.Write replace(tmp,"|", vbcrlf)
% K0 ~6 u+ |5 }End Sub </P>
<>'***********************************************************
3 d' ?& n/ f) ?9 `1 ?$ d+ r" y''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
' J% D, P/ z8 ~  G# ^''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
Public Sub GrabDatabaseInfo(byval oSQLDB)
' v# P: Z7 Q; B' R9 Z2 z　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
4 {! k& e- A. f- T/ _; j　　 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"))
1 X& F6 Z2 q+ g' K　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
9 F& X9 {) G) i2 B8 Q- LEnd Sub <>'***********************************************************
'* PrintDatabaseInfo
'***********************************************************
/ ~) y2 ?. k' i2 V) HPrivate Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
1 E1 Z$ b2 ^5 B% @　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
5 Z% z. T% L% p) Y" W4 w5 B% W'* PrintCollection
'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
, _% d# g0 v1 W* R　　 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
( N& N+ J0 N  l　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
" Q6 F" i# i1 a　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
- G( U6 P' c; ~- _　　　　　　 if dbg_AllVars then
　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
3 N1 \: o' R& k　　　　 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
' h1 W1 v5 N: AEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
8 E$ K6 e$ C/ \2 n1 Y9 }　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
8 E. F; l9 h5 y　　　　 end if
　　 end if
　　 Next
$ E' ]( i" Q2 y: S: _　　 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)
　　 if Collection.count &lt;= 0 then DivSetNo =2
% b8 a" y# K6 x1 W1 `; s　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
7 |; @; P' \* h( G4 {0 b/ C　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
1 E9 t7 m% D" P1 A　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
2 O3 C1 x, f. V. T  
9 M* w7 h$ L- z: P2 [! r'***********************************************************
3 _! h; B2 K" c1 r  t'* AddRow
) i" c5 H' d% Z1 P'***********************************************************
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><>'***********************************************************
; ~+ q. i. E0 L  m! E: p2 t'* MakeTable
'***********************************************************
Private 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><>'***********************************************************
# R/ A4 }: P! H6 z% j! Z''@SDESCRIPTION: Draws the Debug-panel
3 U" N! B" z/ D'***********************************************************
4 C$ E' Y$ R" k8 B! h! KPublic Sub draw()
3 a% p6 D8 c% a* o8 z* Q　　 If dbg_Enabled Then
6 m8 p4 ~6 V2 C0 A. Q, a; I　　　　 dbg_FinishTime = Now()
  
7 u5 ^8 Y! X& b5 {0 }4 J3 j$ X　　 Dim DivSet, x
# e9 d7 Z" Z0 n9 `8 W$ o: m. O3 m　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
  P; N' b9 c6 s2 U$ w: f" w, V: J　　 Next
4 v, H9 u7 c- F5 v. i  
' |# K8 |1 G% b" K! z: T1 l; U　　 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;"
　　 Call PrintSummaryInfo(divSet(0))
8 G7 a6 R3 R5 ~; m0 W6 `# m　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
* k# j' m( f5 i2 M6 X　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
, _% |! l; R3 k0 X　　  Call PrintCookiesInfo(divSet(4))
& c! W; W7 }5 }$ k0 _　　  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))
　　  Call PrintDatabaseInfo(divSet(8))
+ E& y% d& z2 z$ y　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
) R4 v8 v) M/ Q; T: g　　  Response.Write "&lt;/Table&gt;"
% m. X& K4 ]1 ~4 T( P　　 End If
End Sub </P><>'Destructor
& ^8 y3 ?: H# ^) |9 C+ nPrivate Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
" a; B, O8 F7 M  g) qCLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
) b5 ?. q" j) {& H* k&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
  A# C+ D6 ^  |& g  
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 y% x2 L, N2 L  
& v, x# c0 D" g9 I- q4 K" pProperty 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><>--------------------------------------------------------------------------------
  U0 n1 T# j% bPublic Methods </P><>public sub===Print (label, output)
: X4 f) ?( H+ S' N2 ~/ ^　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
/ v% T( U: Q5 i& L" V　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
  
public sub===Print (label, output)
: y! @" i, ]* e7 Z2 h4 wParameters:  
　　 - label [string]: Description of the variable
; K% E! i" ~7 o2 m# d. Q- U: \　　 - output [variable]: The variable itself
  
public sub===GrabDatabaseInfo (byval oSQLDB)
  [& x( D; e8 D# k  S9 C8 o/ bParameters:  
+ {, ?0 O% b5 u/ O8 ~+ B- k　　 - oSQLDB [object]: connection-object</P>