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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
" _* Y4 Z% X1 _<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
( s- M( N% B) l( ttest.asp </P>
0 R% Z3 _7 \; [# X# j9 V& a; r<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
  c5 l! h# F1 t& l2 s. U8 I- d&lt;%
output="XXXX"
6 ~2 r8 G6 s, Y# `& LSet debugstr = New debuggingConsole
) t& d6 a5 E0 l6 v2 H1 D0 ]debugstr.Enabled = true
: b1 w& q4 f; [2 ?) i8 ?/ h　　 debugstr.Print "参数output的值", output
6 o) d" W8 F! A; F- Y& d, V! D　　 '……
7 g5 J" f2 n2 p# P- k  F　　 debugstr.draw
  Q) P5 s6 P( S+ L/ q: }, e7 p$ {: DSet debugstr = Nothing
%&gt; </P>
# d; y( s# m" Y6 D* @& D<>=================================================== </P>
<>debuggingConsole.asp </P>
! x  Z# P, ~7 f: ]9 y8 ]<>&lt;%
Class debuggingConsole </P>
<>　　 private dbg_Enabled
　　 private dbg_Show
　　 private dbg_RequestTime
　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
+ f0 P" D. J" f　　 private dbg_Show_default
1 K6 h, D; K: D9 f, E　　 private DivSets(2)
+ B3 `& R( {1 \4 C1 r3 ^   
; Q! K6 {, ^" L3 j2 Y8 y'Construktor =&gt; set the default values
Private Sub Class_Initialize()
+ W! o4 i: w/ `. A5 Q7 V. K1 }　　 dbg_RequestTime = Now()
/ L, i3 N* c$ N　　 dbg_AllVars = false
　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
$ L- D+ t( L( r<>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>
4 N% w. x9 q" y' r+ t<>　　 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>
<>　　 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>
6 ^4 N2 {3 \7 h% U<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
0 N5 _5 e" d1 N- vEnd Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
$ w6 J/ }3 z" F　　 dbg_Enabled = bNewValue
8 x: `2 q& Z( d$ O# I. hEnd Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
' c5 u, e' h5 Y& ~0 R  \　　 Enabled = dbg_Enabled
( b5 H: b0 ~2 P& }' J; vEnd 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
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
% f! B' i% ]% |8 u/ ?　　 dbg_AllVars = bNewValue
, i* p* h# p# F* m7 ?End Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
. S' j! l$ \5 H0 [, [' P　　 AllVars = dbg_AllVars
End Property </P>
0 v' o+ l4 w) U; J5 u' U& S9 _7 M2 w<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
4 o% o* T! ~3 s" P: W0 j* h''@PARAM:  - output [variable]: The variable itself
'***********************************************************
' T0 q' b1 N- U; ZPublic 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)
　　　　　　 err.Clear
　　　　 else
/ s$ S* u6 n2 R+ ^* b! z　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
; A0 k; o. T$ ], |  C　　　　　　 call dbg_Data.Add(uniqueID, output)
! A; E/ y( T2 |) ^1 `1 N8 c" ~　　　　 end if
8 `% Z: V- J1 e4 d) L　　 End If
End Sub
  
) ]7 j( M, c' [5 v/ p'***********************************************************
'* ValidLabel
'***********************************************************
) t; s" c" [  KPrivate Function ValidLabel(byval label)
4 U- K8 B4 L  _+ {6 F. k/ ~: \　　 dim i, lbl
　　 i = 0
　　 lbl = label
4 i) z6 G5 u+ h" f　　 do
, l6 J; f/ H2 r6 h) n0 X% E　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
  B& {2 h1 ^  d$ z1 ]* B$ Y　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
: D/ l6 M% l& ~# D  i: M5 D9 R  
　　 ValidLabel = lbl
End Function
  
# c/ \% W- K) T' K, h, C'***********************************************************
'* PrintCookiesInfo
'***********************************************************
& `  ]/ S' n7 Y. j! U- K& d  NPrivate Sub PrintCookiesInfo(byval DivSetNo)
" x8 S. m) |* m4 n" n& g/ `　　 dim tbl, cookie, key, tmp
/ |* V$ K" r$ P) U　　 For Each cookie in Request.Cookies
1 V2 c' j- ~8 Y) C　　 If Not Request.Cookies(cookie).HasKeys Then
+ h" J7 U7 ~- [9 s2 v$ d　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
- T+ F9 X- I/ d2 m　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
  Q1 [" W7 T  d. w   Next
　　 End If
. n5 I* Y) X: }; a5 h# L9 z7 V　　 Next </P>
+ g6 t: `9 m+ H7 r' Z<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
. \& n7 m9 [! M$ ~　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  H/ w; H) O- V6 _! u- d  
9 \8 j9 M% z5 P'***********************************************************
' d2 v2 s4 S" u) X, S'* PrintSummaryInfo
'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
' x& T1 M3 x# o　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
# O( m1 C4 g- y+ c　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
) h% b5 C0 Y% B# ]% h　　 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)
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
, w* i8 n4 a, ?8 ^* b: Y* }& JEnd Sub </P>
<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
% b6 p# T6 T# _. f$ a  ?, U''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
* s' T7 x8 O; v9 SPublic Sub GrabDatabaseInfo(byval oSQLDB)
. T' I0 \9 D" N6 l) U) U( K8 X% O　　 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"))
/ j* Q3 A( Q* u7 X; \' D　　 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
2 N! B7 ~7 R: r5 Z* x6 O. ~, v' L. `'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
7 k/ ^$ [; J3 q& G, _/ P　　 dim tbl
! W) y8 u3 S6 T. f& I　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
" _# z7 }' U( R- K: U/ f' U　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
2 {+ g) }- Y2 e; b% `& e'* PrintCollection
'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
+ I  e3 I5 Y% F　　 For Each vItem In Collection
0 o+ C- G, I8 b　　　　 if isobject(Collection(vItem)) and Name &lt;&gt; "SERVER VARIABLES" and Name &lt;&gt; "QUERYSTRING" and Name &lt;&gt; "FORM" then
7 v  m, U5 s3 [5 \2 ~! Y2 f　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
" y# u8 j; {4 b- l4 S　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
% q( d8 b7 M) M! V! Q　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
1 G/ D) g- h- Y　　　　　　 if dbg_AllVars then
　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
6 n- t+ f# I) N. l6 y& X　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
' w) p1 p( ?, P; |7 A　　　　　　 if Collection(vItem) &lt;&gt; "" then
, w8 P2 v! d5 D1 M5 {1 \8 ?- m　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
+ p7 {3 g# s* H3 o1 [3 bEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
, v' q- {: m' i4 L/ P0 r6 H" t1 ^9 {　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
' f  H" Q9 `$ o　　　　 end if
　　 end if
: B2 _, E) m4 n　　 Next
5 S9 T7 v6 T9 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
　　 tbl = MakeTable(tbl)
' H! F8 Z9 t" _' t% Q: S, C　　 if Collection.count &lt;= 0 then DivSetNo =2
$ R( b/ ~7 P- I4 m" o. P- f7 k# J' b9 c　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
. j! I3 s! l- Q% l/ g1 u' v, r% X0 E　　　　 Response.Write replace(tbl,"|", vbcrlf)
( S  N- n  m- ]- Y4 VEnd Sub
  
'***********************************************************
'* AddRow
$ [7 l3 {) \8 U4 E* c9 T4 X; N: D'***********************************************************
7 Y, y' j3 ~. E) D+ B+ APrivate Function AddRow(byval t, byval var, byval val)
; }- O' Y- }5 }( `" {7 a　　 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
# p" n6 w2 @7 \/ G7 Y. |. fEnd Function </P><>'***********************************************************
+ H* |* k4 Y8 {+ h  ~/ f8 x'* MakeTable
0 L4 I( S" j/ B( f& \3 B'***********************************************************
5 ~4 m9 U5 w$ B1 S& U7 MPrivate Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
5 t2 `% `$ D5 B: }End Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
Public Sub draw()
/ D6 s3 W# g, J/ L, S　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
/ F4 x! l; \$ M" U9 d  
$ j5 H( C; T; I+ h& S: V. z　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
0 K9 g! m0 ^; {6 d2 q" i$ X0 p4 h　　   dbg_Show = split(dbg_Show,",")
4 w- P& O: ~/ ^* p8 N  
8 W3 T3 ?* V: o/ W% ^# l　　 For x = 0 to ubound(dbg_Show)
& @4 r+ {6 q+ a0 j. {' K　　　　 divSet(x) = dbg_Show(x)
　　 Next
: k7 M& b3 R3 d  
( Q( _4 J" g; m- }  t　　 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;"
) L. y4 E7 Y5 S! g  i* _　　 Call PrintSummaryInfo(divSet(0))
3 f7 V; f5 B4 A! A- A' Z　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
. ~2 |! m5 S2 |: y# o　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
: j( s, M( ~% a( j　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
1 \4 t5 y, J+ a% |4 B( y0 Q　　  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))
1 V, a9 V' h7 O　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
% m# ~2 z9 S* A& e" d( ?  k　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
8 Y9 [5 d* D; L* H0 q& h3 c/ H) [　　  Call PrintDatabaseInfo(divSet(8))
  A+ N4 `4 L' ~4 W* l　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
( ]# w9 S" {4 T8 C3 Q. b) u) [! {0 U　　  Response.Write "&lt;/Table&gt;"
　　 End If
End Sub </P><>'Destructor
Private Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
# \" S. @: V4 _- hVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
6 s% j4 A$ B. q5 C&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
# n0 s  x4 P% k( O( a. y( _4 m1 ]9 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
  
Property 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><>--------------------------------------------------------------------------------
9 Q  |# u0 \" F1 X- b7 vPublic 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 ()
" u5 v9 ^5 R6 a) t+ L　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
) f8 e: y' [/ {; T0 t+ r  
public sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
) X  {) h6 J7 U7 }9 B　　 - output [variable]: The variable itself
# i( I9 o$ H# _$ F1 O, u  
public sub===GrabDatabaseInfo (byval oSQLDB)
, ?9 ]+ @( f, a! C( W% m9 g4 {Parameters:  
　　 - oSQLDB [object]: connection-object</P>