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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
- H' g" P+ _4 k5 r3 _" n9 F7 @<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
1 ?; Q+ C- s8 }2 q( k: stest.asp </P>
# Z' Z5 ]/ @7 J' ~. Y4 U! T! m<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
& G: n+ w* S3 [3 B: [output="XXXX"
Set debugstr = New debuggingConsole
% l- [4 d1 c6 n/ [8 Wdebugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
: B8 Q5 p# W' Q( q  M# U) a! Y　　 '……
  f  `# K4 q$ E- `, ?/ l* y+ k　　 debugstr.draw
Set debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
<>&lt;%
0 h# G# ~+ y: {9 B8 L2 O0 C& }Class debuggingConsole </P>
0 C1 g/ U3 Z; ^, I<>　　 private dbg_Enabled
- Y- G  H5 ^) O9 C8 Y# P/ F　　 private dbg_Show
; X+ B1 V1 Y, }; k5 K　　 private dbg_RequestTime
　　 private dbg_FinishTime
　　 private dbg_Data
+ j$ ]( x1 t- e) a4 V0 y5 ~% V% H" D7 m; v　　 private dbg_DB_Data
8 _5 D' A4 y$ N& W/ M7 @　　 private dbg_AllVars
　　 private dbg_Show_default
　　 private DivSets(2)
% F, m" A/ P( R' @- i/ c$ }+ Y" n   
& [# V( ]$ e' }+ F: u( ^'Construktor =&gt; set the default values
Private Sub Class_Initialize()
　　 dbg_RequestTime = Now()
/ u0 g' g' v" E  T( z& z　　 dbg_AllVars = false
2 P/ T5 e# E( P　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
, O' ^" A) c$ z& _9 J; s6 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;
. A& w; u4 z1 b- e&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>
8 o1 Z  \* B) Q- Y7 N/ |' q# H$ N<>　　 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>
8 c! n- ]4 k1 C# B( t) q8 m<>　　 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
6 Q. G5 N# ]8 @3 i" E4 GEnd Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
6 T$ C) U  |+ d, @; q* l% hEnd 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
3 B8 z7 |+ y8 y' D/ J: }End Property </P>
+ K( g1 Q  d9 \* Z' y% _<>ublic Property Get Show ''[string] Gets the debugging panel.
( c+ B  Q  w' y　　 Show = dbg_Show
/ {& L% t% @' ?' bEnd Property </P>
( E8 K! o+ z" h- i, ]8 o<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
( w  `. ^3 F# j$ t0 ]/ UEnd Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
( @0 m  t+ u& X: l8 Z" H# B''@SDESCRIPTION: Adds a variable to the debug-informations.
; p6 [; ?1 K& _, X, T; x! E''@PARAM:  - label [string]: Description of the variable
* V3 z/ X- N1 P& I. b''@PARAM:  - output [variable]: The variable itself
6 @( V7 \* S  J' e& N- ^; c'***********************************************************
Public Sub Print(label, output)
8 q6 N% `( u* B- I8 f& U　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
* Z5 e/ L* I) Q! l* P/ R) G　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
8 l* P* [5 @0 x7 z7 O! v0 z　　　　　　 err.Clear
6 z1 o& w$ U; i3 Z3 s　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
( X( N% F6 w* @" @& Q6 t7 k* S　　　　　　 response.write uniqueID
) q5 W% b4 j$ m# K- ]　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
1 C  @4 U8 {9 o/ m1 H8 L. b　　 End If
  L& J: a8 n# K2 S' NEnd Sub
  
" Y7 G: I8 E' a'***********************************************************
'* ValidLabel
'***********************************************************
2 _" S' R) Y. g3 ^" G  ?Private Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
' |3 m  Q1 P- t+ T! R　　 lbl = label
# X& Q* u) t" J% k! l& d- H8 W1 J, B　　 do
6 J  W  j7 M. v8 K; R' E　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
  
　　 ValidLabel = lbl
9 B. Q3 z7 l3 Z1 g* r/ rEnd Function
  
* [7 s% R5 d; z5 |9 o$ J; o'***********************************************************
'* PrintCookiesInfo
/ h: X$ o6 I1 `1 H- d, D'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
: B) h7 v5 [. m! T! Q　　 dim tbl, cookie, key, tmp
8 ~: U1 @1 }" J  p& i　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
5 h# c7 u5 k' b$ u1 {+ l! B　　 Else
　　　　 For Each key in Request.Cookies(cookie)
( c$ T* e8 u; e( c+ _. [# X+ ?. s　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
　　 End If
　　 Next </P>
+ \! R+ p) ~/ ?8 g$ Y<>　　 tbl = MakeTable(tbl)
　　 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)
end sub
  
9 }5 B0 K9 o" Q- Y0 w'***********************************************************
'* PrintSummaryInfo
3 S- F2 _' \) t'***********************************************************
, l4 e- j3 e( w8 LPrivate Sub PrintSummaryInfo(byval DivSetNo)
8 X, C! P: O% D) j+ t2 y. ?　　 dim tmp, tbl
- X; g6 {4 ?6 |1 F" p　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
  p% @+ w2 w: d+ N　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
　　 tbl = AddRow(tbl, "Status Code",Response.Status)
7 _- N% g  k! N$ h" E" U　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
& m1 T7 V& {, Z3 I　　 tbl = MakeTable(tbl)
7 j1 h( f  c6 a2 @: `+ }  K　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
  K8 q! D" v: E) }# O5 H+ M　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
5 z- d( O# s% Q& ~<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
+ Y! c% Y, A6 A! b) u% K''@PARAM:  - oSQLDB [object]: connection-object
# R; r$ |8 V. C+ G& ?'***********************************************************
, w$ r- t5 Z2 X- d, ]* G& p5 H9 vPublic 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"))
　　 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"))
3 f+ E, D  ~4 [; Z6 j% eEnd Sub <>'***********************************************************
'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
/ ~3 V& H& X6 c1 c　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
# J0 q* {, |# a/ u　　 Response.Write replace(tbl,"|", vbcrlf)
6 J5 I1 |1 J& o/ zEnd Sub </P><>'***********************************************************
'* PrintCollection
$ g+ O8 {( Y0 T'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
8 J  ]5 t( c8 |! F, S) |　　 Dim vItem, tbl, Temp
　　 For Each vItem In Collection
- a( x+ n% h3 B　　　　 if isobject(Collection(vItem)) and Name &lt;&gt; "SERVER VARIABLES" and Name &lt;&gt; "QUERYSTRING" and Name &lt;&gt; "FORM" then
' |3 G$ Z: w; o( E　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
5 g6 N7 J7 R  ?* U, F0 `' Z　　　　 elseif isnull(Collection(vItem)) then
9 d( v: z5 h; a7 Z( y9 ^, I　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
7 m# U% K8 P; S% V　　　　 else
　　　　　　 if dbg_AllVars then
　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
+ E8 n! T$ `  [! y) Y6 M% g　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
+ W- @0 B8 n) |" P　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
8 G4 ]8 l: X5 f" X7 |" T3 HEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
5 p& I1 u9 f+ q. n! b6 ^　　　　　　 else
4 T/ _% G0 X. D, |* _4 z( `. d　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
2 O9 K5 n- O$ [5 o# Q3 y$ M9 z　　　　 end if
3 d7 ^0 x# x2 w4 F7 X　　 end if
; Z) ~' e: I6 `% j　　 Next
3 A& i- P5 g8 t/ l* a7 Z+ u8 c/ A　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
. f1 c" S' W" s, l8 M2 d　　 tbl = MakeTable(tbl)
　　 if Collection.count &lt;= 0 then DivSetNo =2
　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
5 b9 P0 d3 [" ]2 }: |( U  H: v　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
/ ~. N! [+ f! }& ]8 ?7 |4 D; j　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
4 L# }# L1 f- m8 F( O& L: L  
+ A  D* B% R0 d7 N$ J& s) z'***********************************************************
2 Q* p6 e6 h( b: r'* AddRow
! c$ b( F' f1 b  O( `& W'***********************************************************
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;"
0 _( p2 {& k: t/ |　　 AddRow = t
8 V0 ~. K  R  vEnd Function </P><>'***********************************************************
0 S7 F+ m. o8 P! o% O/ g'* MakeTable
. {( r& J& X5 |: j5 F; _7 q/ c'***********************************************************
Private Function MakeTable(byval tdata)
% B6 [& `- l! H. r( L) u　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
& q- H$ L8 t" R  g1 |' {5 h　　 MakeTable = tdata
1 ^; O: p) ?, L$ d1 tEnd Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
) o  |) J4 x+ ?% L" R% i& B! A$ y  j'***********************************************************
Public Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
( t  Z4 x# R, K$ N2 M  
+ c. t0 z+ {5 y1 r! D; }! }8 v, ~0 h1 V　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
' W" a3 o$ D! g3 L; A3 E) I　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 Next
0 {- p5 z: c: U: b# j( 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;"
& S! ]8 ?3 N- [: W( c$ o　　 Call PrintSummaryInfo(divSet(0))
　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
1 e8 |, C5 F! }! E　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
　　  Call PrintCookiesInfo(divSet(4))
& |* `1 ~4 L1 q; ?　　  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))
& L3 _% Q: j# R* ]" O. j　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
1 L( Y! j6 H  ?　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
# _1 q! Z8 b, i& [4 t: I　　  Response.Write "&lt;/Table&gt;"
　　 End If
; X/ n) ^! E4 H: MEnd Sub </P><>'Destructor
/ v  K& r. ?6 @$ PPrivate Sub Class_Terminate()
2 c7 g. a- Q8 ]) }! o　　 Set dbg_Data = Nothing
: ?/ d! S: ?- E( K) k- oEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
7 b3 q1 }, b2 v% S4 @CLASS debuggingConsole
4 ~8 q) g0 o* @2 {: L. q. IVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
0 Q: l. {4 u  S0 Y5 ^& M. p0 ?. [&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
  
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
  
Property Get Show===[string] Gets the debugging panel.
# D2 P9 t2 O, J1 ~! `  
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><>--------------------------------------------------------------------------------
/ F2 m! M- E  y3 V( CPublic Methods </P><>public sub===Print (label, output)
9 W% g2 p1 N6 i" N# [3 T　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
% {& @5 ?" P0 h0 K) g! i　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
+ f7 r# P) s- Z2 |5 v7 k! R　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
, O6 }3 ~2 p3 Z) r. z3 Z; f  
) O, i, b5 A7 t; r/ Bpublic sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
& ?7 v% T7 }& {) q7 `  
) }) r! g, o4 `, s# Opublic sub===GrabDatabaseInfo (byval oSQLDB)
! h* I, ~- k& [9 i. dParameters:  
　　 - oSQLDB [object]: connection-object</P>