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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
  r, ]" B& |. w# Q<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
test.asp </P>
9 Z0 x4 x- n) |. T$ r! f<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
0 T: l1 {! r+ |& {' L# `&lt;%
6 }( v+ Y3 Y; M9 Aoutput="XXXX"
; z5 C+ y6 ?& y$ T/ @Set debugstr = New debuggingConsole
debugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
; y' P5 ]6 l, u7 [5 K+ q　　 '……
　　 debugstr.draw
3 ^# Y! f! S& g9 h& XSet debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
# O) t& c: I# w<>&lt;%
Class debuggingConsole </P>
5 l! n  B) b6 J/ j$ X<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
　　 private dbg_FinishTime
9 a' C2 P9 u) k) a　　 private dbg_Data
  |% R  f5 ?1 O, `+ v; u) F　　 private dbg_DB_Data
, N! W; m0 z; J4 n* v1 G" z* V- E3 w; W　　 private dbg_AllVars
' L# z6 x9 ]/ p& j　　 private dbg_Show_default
　　 private DivSets(2)
   
5 y; F, f. a' G5 h7 t/ v'Construktor =&gt; set the default values
Private Sub Class_Initialize()
9 N! U* K0 [2 o: A, A! d　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
　　 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>
1 m9 F) ~* [3 E9 `6 X8 O<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
& \5 Z( n- @9 ]2 c7 Y* f6 q  D- a/ v&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>
# t& ?; |0 C- P  b2 p<>　　 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>
* W/ T/ M8 B  u& u! ^* V<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
5 r/ V' t1 g  S1 \) V. f2 BEnd Sub </P>
( N6 ?( X5 s' I9 A# c* R- ~<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
0 Y) j+ w$ y) P6 N; j- J6 l% CEnd Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
6 z' }% b$ g! ?9 J8 d6 d& |End Property </P>
/ P. ^, K. a$ ~* {1 u9 T<>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 Y4 j6 w6 k+ M- p　　 dbg_Show = bNewValue
# |1 }: h' m: B& Y+ A, q( MEnd Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
8 G7 d' Q, }! O/ D+ ^. PEnd Property </P>
+ H: f9 O$ W. z4 C5 s/ l5 |<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
; G/ m9 a! p4 c4 Y  F+ u3 m' }  l　　 dbg_AllVars = bNewValue
End Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
8 y8 H9 ?( t7 U: H( }% F* ~7 J''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
+ H: w4 T  D  N3 P& P" R''@PARAM:  - output [variable]: The variable itself
'***********************************************************
5 b/ d+ G; r2 |5 D  v% Y2 bPublic Sub Print(label, output)
" ~/ F% {0 W+ c6 }* K* O　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
* B0 B* E7 R$ }& K+ Y( C　　　　　　 err.Clear
+ |1 }" `* R% _/ }8 v2 g4 V" S　　　　 else
" l$ M! r, d4 P) W/ J　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
End Sub
6 i: b& ~# e( f) N% `  
'***********************************************************
) }1 }2 Q+ i8 d  c" K6 u$ I'* ValidLabel
* p1 O  ?+ ]& ?/ V'***********************************************************
Private Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
- z' P8 c" l' x) w8 L  a2 r& a4 Z　　 lbl = label
　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
7 q8 R7 K3 f8 {7 p' j　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
0 ^: J+ w6 I* u: A  
　　 ValidLabel = lbl
  V# F* U$ n$ x! f- L7 z& W$ a  TEnd Function
  
'***********************************************************
'* PrintCookiesInfo
, R$ G! e: x0 F' G' i3 P, Q" h0 H'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
, j6 e  m, i& s; p* f6 x　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
3 d* Y- e5 H# I+ c# q　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
# L7 H6 a- m+ ^1 [Cookies(cookie)(key))   
   Next
　　 End If
　　 Next </P>
<>　　 tbl = MakeTable(tbl)
; X: j+ _$ M9 w  }$ ~% G0 Y　　 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)
6 ], a& ~# z4 p4 e& @1 f# G1 m1 Oend sub
  
8 V% w3 I" l4 o  W, X'***********************************************************
0 ]  ?1 h0 o4 ~: F8 g9 {'* PrintSummaryInfo
% Y* T* L6 Z& u% E4 u2 i8 b'***********************************************************
  [0 ~0 I& f% Y8 E! [  \) YPrivate Sub PrintSummaryInfo(byval DivSetNo)
　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
  Y* f% N3 Z9 w　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
7 M: R" [3 g7 ]8 B8 H  ]　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
4 M6 U/ A) G: v: X' _5 Z0 x+ i　　 tbl = MakeTable(tbl)
# F7 P$ z7 J8 V" G/ X5 K* S　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
8 e" f7 d; I& O. g/ t  n2 R2 w　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
' t" g" m- Z' ~" D3 U$ i' X<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
- c5 f$ B  |& I& g" V'***********************************************************
$ M) `7 Q" o& ]Public Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
0 A6 i) `6 ]# W; q! x4 B　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
% p; \4 a( h" |% M/ o- k　　 dbg_DB_Data = AddRow</P>

韩冰

(dbg_DB_Data, "DBMS",oSQLDB.Properties("DBMS Name") &amp; " Ver: " &amp; oSQLDB.Properties("DBMS Version"))
# @; e' p% @6 R7 j5 z% S% h　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
. n3 _* g/ s4 b+ ~: M4 j7 vEnd Sub <>'***********************************************************
; T7 ]9 l: p& x$ Y'* PrintDatabaseInfo
: ?* L4 u* A+ }* Q'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
+ Q. y1 w: [6 @) E1 r- `# `- q　　 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)
" r* w8 ~( t+ C, _4 _* k6 {. CEnd Sub </P><>'***********************************************************
'* PrintCollection
'***********************************************************
+ q. G( A; b4 K, R' e1 f1 p: ?Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
/ i: p5 ]# z/ U　　 Dim vItem, tbl, Temp
* H& M, p5 P8 c　　 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
+ {6 ~7 @- x# N8 i　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
* w, M6 R* w. p3 L! g2 V　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
) b" u+ _0 _/ v4 _+ F% }5 F+ j　　　　 elseif isarray(Collection(vItem)) then
$ e7 I5 b! @9 T4 o& q* b* g　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
# z' G! o. E, t$ y9 P' H　　　　 else
& G, i6 t0 {& V$ }　　　　　　 if dbg_AllVars then
# Z' L* k) Q, H6 P1 c, u& k　　　　　　 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
　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
% C- [( n5 ^7 d( A2 T. v1 ^Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
　　　　 end if
1 r/ y- y7 [" o0 J; M# f  l& @　　 end if
" E7 P5 A! v5 u) B8 n3 Z　　 Next
" t  \7 N  s6 Y" a6 T) B. \　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
% I  p1 P  H2 k1 t) I0 w　　 tbl = MakeTable(tbl)
　　 if Collection.count &lt;= 0 then DivSetNo =2
　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
8 ]" H8 {0 m, h7 x: ?+ l- v% F2 ^End Sub
  
'***********************************************************
'* AddRow
  }8 U- ?5 ~# \% x; t& |7 k'***********************************************************
( F; l! i1 O/ `" `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;"
+ F7 ~# D0 i! G3 N' R" Y' {, D" d! S　　 AddRow = t
End Function </P><>'***********************************************************
/ d9 m7 [0 Q$ t5 ?" {7 I6 L. ?1 n) o'* 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><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
6 ^; p. c( C; d4 ?: P. N/ m- S'***********************************************************
5 H7 t$ @& c. h& B& N. XPublic Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
1 Y  `" G* `7 r7 m  
　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
　　 For x = 0 to ubound(dbg_Show)
+ L% |/ o  \4 _) D! i0 d　　　　 divSet(x) = dbg_Show(x)
　　 Next
  
* e0 Q  U/ @/ a% {/ r% t  a/ f　　 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))
% A$ k& l1 _, W4 j7 k, f　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
　　  Call PrintCookiesInfo(divSet(4))
　　  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 Q0 J3 [7 }; u4 y　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
8 S: t% m9 p& ~# ?& @　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
: ]7 g* i7 z% U; v% U+ Z　　  Call PrintDatabaseInfo(divSet(8))
- A; _" L8 T- I. F　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
# o! N' v9 z' `: d" Y- W" ^　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
2 F- C- w! b1 L# A1 T0 d+ r4 Q0 b# u4 c5 V　　 End If
7 e, C, k6 ^  V! _+ HEnd Sub </P><>'Destructor
/ E$ z% T* v* k+ ]Private Sub Class_Terminate()
7 k* O6 z9 W" B' w: t　　 Set dbg_Data = Nothing
5 `+ ?' o0 b: I% K4 P6 M5 I5 @+ MEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
7 q8 z5 {( z: [1 jCLASS debuggingConsole
! m& ~1 c+ {$ H3 `- D% E1 `4 BVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
bsp;
/ T! g9 Q8 n2 p6 K, RProperty Get Enabled===[bool] Gets the "enabled" value
. T* y/ Y2 Y- W: O5 {  
: D( x* P. q1 ]9 VProperty 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
& p7 D! `$ D4 V- \- n" g) I  
! [" y% M" f! b+ Q' ^/ Q& y8 qProperty 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><>--------------------------------------------------------------------------------
5 X+ w9 M% u3 b) k5 f+ mPublic Methods </P><>public sub===Print (label, output)
( u9 W, \: E7 k9 E! i( S) [. V　　 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><>--------------------------------------------------------------------------------
+ n2 `! r- ?: i( p; i5 e5 UMethods Detail
  
" k$ W' h; s& ]) |public sub===Print (label, output)
( q8 E1 G7 r. b, w( _Parameters:  
　　 - label [string]: Description of the variable
, z3 k; Y, A* w2 y' M) q　　 - output [variable]: The variable itself
  
9 ^2 [+ L7 g2 T! A! u/ |( qpublic sub===GrabDatabaseInfo (byval oSQLDB)
, R+ @3 S* f4 @  J. r; O6 A' U# ZParameters:  
　　 - oSQLDB [object]: connection-object</P>