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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
# z( i3 H! A( H+ }4 M<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
0 O, K7 x) o& q) b7 Y1 Ctest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
output="XXXX"
+ f- A: X$ _0 ~; JSet debugstr = New debuggingConsole
debugstr.Enabled = true
+ O, X( Q5 s/ Q  x　　 debugstr.Print "参数output的值", output
2 B- |5 }5 F+ h4 ^9 e　　 '……
　　 debugstr.draw
Set debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
! G1 `4 S7 R0 H$ F<>debuggingConsole.asp </P>
$ ]$ L. l% ~% D1 v, ?9 A<>&lt;%
+ I; G2 r2 n% mClass debuggingConsole </P>
$ m% x4 a& m' A' l$ Q- c<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
　　 private dbg_FinishTime
8 _! Z7 Y' {& y9 c　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
　　 private dbg_Show_default
6 l( C5 ]) A& _& |2 ]1 Q1 b　　 private DivSets(2)
   
5 J# z' P8 {5 g, x* b- R) R'Construktor =&gt; set the default values
Private Sub Class_Initialize()
9 d& w' \- n& M" u) m　　 dbg_RequestTime = Now()
, H0 w1 z4 [1 q* Y4 v　　 dbg_AllVars = false
: ~$ B; g- }# ?　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
<>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>
+ E0 |) @: g7 N7 k<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
* D  W& D7 m* K/ p3 F. z&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>
$ V  H) K+ p7 ~/ x: i<>　　 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>
5 B: \* b9 S' R" b3 y<>　　 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>
+ m! _$ K, U  W<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
9 G0 ~* _8 _& {, i) B2 ~' W　　 Enabled = dbg_Enabled
- x3 L' G9 [6 ^8 {: sEnd Property </P>
1 W# {1 F7 L" _- p; a<>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
4 ]7 X' _2 j, z  u1 k- r* a* T　　 dbg_Show = bNewValue
End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
9 K1 F4 s  R  y: G  E# t, V& f　　 Show = dbg_Show
# F( a' v2 M" `. T- P: |$ ?* u2 A* _9 hEnd Property </P>
, z  P. U1 ~) }$ n; c5 [8 ?<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
  p7 t8 P+ \1 f7 x2 }" N% h; d　　 dbg_AllVars = bNewValue
! z. B( H6 r. wEnd Property </P>
' n" s8 g' C  M' I5 o7 s+ }8 e<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
'***********************************************************
7 j  q, e, e$ ^/ j/ DPublic Sub Print(label, output)
　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
3 C) J/ ^8 \" r- e$ d　　　　　　 err.Clear
　　　　 else
2 B8 a3 n4 v: X　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
1 ^5 E  D  V  g4 M  @  e　　　　　　 call dbg_Data.Add(uniqueID, output)
6 u) K. P/ w8 z' q　　　　 end if
　　 End If
End Sub
3 a$ J) x* W7 R# p4 ]  
) t) q9 ]  R) ~* |& A'***********************************************************
'* ValidLabel
'***********************************************************
2 `- a& D4 O; e% Y9 o+ Z, JPrivate Function ValidLabel(byval label)
　　 dim i, lbl
0 t( F1 v& f3 l$ h" v4 k　　 i = 0
. J. X0 r/ e7 V　　 lbl = label
　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
" }( H5 o% n7 w/ h) F' y+ j　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
2 g6 P* K( x# Q: `9 ?/ N　　 loop until i = i
# u) C+ @: {9 z: H- W, W  
' ~2 d2 n2 j$ B! G0 v6 w　　 ValidLabel = lbl
& ]3 I. I2 t: g8 `5 YEnd Function
  
  \5 a1 S6 x6 s, i3 i, w'***********************************************************
'* PrintCookiesInfo
0 E$ ]1 n* f$ ~" \1 w& x'***********************************************************
7 N2 k! ^/ C! {Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
( }( d+ J& f" M  g/ a5 `　　 For Each cookie in Request.Cookies
8 V# r9 z1 @9 q5 \　　 If Not Request.Cookies(cookie).HasKeys Then
. d2 S4 w1 X1 F" W2 L" V* n/ S# b　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
　　　　 For Each key in Request.Cookies(cookie)
' {+ s; L! w9 A/ d7 _　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
; Z9 ?# y9 C- k1 q! D   Next
3 s8 _- j! S3 ?　　 End If
　　 Next </P>
<>　　 tbl = MakeTable(tbl)
! H- Q2 R+ f# J9 U7 B　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
( v- E8 y4 t* f- _# Cend sub
  
, I$ p) I! v/ N'***********************************************************
: c, W7 a, v' x: X( v8 V% U5 r1 v'* PrintSummaryInfo
'***********************************************************
0 K& h6 \* Z" `6 q2 kPrivate 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")
4 {1 l. z* Z+ C9 L8 r0 O- T　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
3 q, e8 h/ B$ q　　 tbl = AddRow(tbl, "Status Code",Response.Status)
& Z4 V' `9 u9 e. o# {　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
! q. t* H3 R! Y6 }' K　　 tbl = MakeTable(tbl)
9 s3 m4 @; i  g+ @8 ], @　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
6 u* p7 Q2 K5 T+ b6 o9 w5 w<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
) H# g6 j/ y- J3 {9 i) i''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
3 }2 V% F' {' r% k% L4 `7 }. MPublic 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"))
4 ?! P; }2 }& O" K4 @0 P8 f9 F　　 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
0 r9 v& _: E5 k5 _4 v& o( ['***********************************************************
! ?1 F) o3 X2 w# SPrivate Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
: J: O- V4 Z. U  |End Sub </P><>'***********************************************************
'* PrintCollection
5 o) _7 F" b/ Z$ [- t* y" {" S8 d: A'***********************************************************
2 c* L+ z6 c8 s9 d1 c% YPrivate Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
1 K( c7 ]7 W4 ]5 q- O　　 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
　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
3 B- L: |9 C$ L: r　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
, M; w8 f  s. o! N0 }0 B　　　　 elseif isarray(Collection(vItem)) then
6 Y/ p" P( `* g　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
　　　　　　 if dbg_AllVars then
! c; E0 g% n/ s1 u- V　　　　　　 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
7 K4 @1 M4 k4 [  d2 O* O　　　　　　 if Collection(vItem) &lt;&gt; "" then
! G! i) O( G1 k' C　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
4 H9 F& f; ~; {4 B9 qEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
2 Y5 [% _, \3 y3 ?8 z　　　　　　 end if
" n( o9 }5 k% p5 T　　　　 end if
1 v. [- ?4 i2 a' p+ F' V　　 end if
　　 Next
' g' R/ F+ @, v$ J* k　　 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
; y6 Z5 V8 \/ ?0 [' A8 v, d　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
6 _+ ^' S% w0 H' x　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
+ z: g$ o+ p* ~　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
  
'***********************************************************
- G  d5 J; Y$ t- ?'* AddRow
8 r. A1 B7 d8 b2 V'***********************************************************
% K& E1 ?. @- l$ o+ KPrivate 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
; t2 J( S) |, N+ g! }& ]End Function </P><>'***********************************************************
'* 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><>'***********************************************************
# Q7 C1 F0 ]) X0 \- z3 ]4 G''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
! G- e( y7 |  i% g8 \Public Sub draw()
  R: O6 K: p# b* ?  x5 q& T) u! q　　 If dbg_Enabled Then
3 L6 T6 ?+ k* p0 C9 c1 V: M& O5 B+ F　　　　 dbg_FinishTime = Now()
  
* B4 d% t* f$ T. r5 V# t/ m　　 Dim DivSet, x
% R3 t8 U$ V9 e3 u( Y3 O: p　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
5 J1 {9 G( l- Y8 J' l# f0 M3 ]　　 For x = 0 to ubound(dbg_Show)
7 k! ]$ P: B/ e' h　　　　 divSet(x) = dbg_Show(x)
7 v: ?2 K6 V* w. J2 V7 {" \　　 Next
  
　　 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))
　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
: T& L% p& q8 p( Q% {　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
, d" Q" u/ o4 Q: k) ~$ [　　  Call PrintCookiesInfo(divSet(4))
( `+ l. @& w* Y1 y4 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))
　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
* Z- Y4 {6 r# q6 ~1 d, k7 m9 z1 A　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
　　  Call PrintDatabaseInfo(divSet(8))
( U9 E2 Q; o4 |　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
9 X5 Y5 U+ |, Z9 [' n1 ?　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
　　 End If
End Sub </P><>'Destructor
! }0 H- _6 w$ R. ~: N: D3 {Private Sub Class_Terminate()
" ^6 B9 \8 e) {0 ^) ~　　 Set dbg_Data = Nothing
End 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
&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
+ e6 l1 a' V# ^) w. |$ b3 a) |  
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
  
7 ?% |9 _5 P6 S% _/ oProperty Get Show===[string] Gets the debugging panel.
  
# {, ?7 a; t6 `! z+ FProperty 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><>--------------------------------------------------------------------------------
$ R' e3 I. r' L& a# h1 h) @Public Methods </P><>public sub===Print (label, output)
3 j' X- }+ M+ P　　 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
  
public sub===Print (label, output)
8 f9 q9 x% A  N4 }( c8 S; vParameters:  
; {% Y$ O0 u6 `9 E( U* B/ o　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
0 v) T: [  R9 W' npublic sub===GrabDatabaseInfo (byval oSQLDB)
6 \- Q2 [) D8 I6 J4 K) t& R, `Parameters:  
, E- V2 F% U  `# a* s3 i, S  a" j　　 - oSQLDB [object]: connection-object</P>