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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
( ?* ^. y) ~& f  P" x<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
7 e  m" d7 ~# m1 l5 Ktest.asp </P>
  a8 O1 x2 F+ I( i2 J2 g3 k* ~<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
& g& l1 y4 x/ A$ Z6 [. M8 houtput="XXXX"
Set debugstr = New debuggingConsole
! q$ S0 G* ?( j% b) u& o; `$ k( Idebugstr.Enabled = true
0 H' A# W0 C% a$ ~, E　　 debugstr.Print "参数output的值", output
　　 '……
# O; O' a4 V3 f; [　　 debugstr.draw
* Y/ q5 n) Y2 j: z* ?/ \Set debugstr = Nothing
& j8 k, w% j$ E" k6 s: }/ r0 F. I%&gt; </P>
<>=================================================== </P>
  n/ y* G1 N' J! E4 |, s# q* Q$ c0 {<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
<>　　 private dbg_Enabled
  e4 ]/ \& B" v; v# c. U* c) H: k　　 private dbg_Show
　　 private dbg_RequestTime
( a9 S; m! r$ J; b　　 private dbg_FinishTime
　　 private dbg_Data
# I- [, t% B8 M. m% i　　 private dbg_DB_Data
# y, z6 D2 t7 r" x/ Q　　 private dbg_AllVars
　　 private dbg_Show_default
　　 private DivSets(2)
6 ~  z7 P5 p4 y! L   
'Construktor =&gt; set the default values
Private Sub Class_Initialize()
　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
- l0 K8 E8 Y/ [8 }+ b9 |/ M+ q6 ?- [　　 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>
<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
% n. f) T/ X0 K" N$ i( t, P&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>
% S* |% V: R; i/ c$ X+ U<>　　 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>
<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
; i2 }- n7 v* ZEnd Sub </P>
7 A2 X9 I$ Y' G4 c<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
; k  |$ L4 D/ w. s, F. l: w　　 dbg_Enabled = bNewValue
8 w* X2 N, Z$ v! W/ Y( X7 {0 J8 uEnd Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
5 Z: b* z* f1 E/ fEnd Property </P>
6 G6 U" T' Q2 r& C! 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
5 r3 z* ~( V! Q+ |/ L. Z' B　　 dbg_Show = bNewValue
2 o  G8 ]% \% P$ s! U- Z3 ^End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
: i' \3 M+ \- B7 W, {3 V　　 Show = dbg_Show
: |1 B- ?5 I+ X% [End Property </P>
* M+ z+ R( O, K7 h<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
End Property </P>
& C; A6 x* ]6 k<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
9 d1 e8 p0 T" g3 q　　 AllVars = dbg_AllVars
End Property </P>
6 ^$ n4 g7 M8 N, b<>'***********************************************************
4 `3 Z0 s  x* S& W''@SDESCRIPTION: Adds a variable to the debug-informations.
& R1 g& f3 `% u''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
'***********************************************************
  D! r' w* U# Y# TPublic Sub Print(label, output)
　　 If dbg_Enabled Then
" b+ F9 ~. t" `# b" Q9 A　　　　 if err.number &gt; 0 then
　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
& a/ t$ V( n2 S5 f5 }6 X　　　　　　 err.Clear
　　　　 else
* H! j5 o( ?- L& M8 O  W　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
1 g& }, h) D8 {1 p7 s6 c% j3 m7 ~7 u　　　　 end if
4 o( e& ~# s; N& G" |　　 End If
% t/ T" I3 G4 K) ?End Sub
, b# v0 W! N, @8 {8 C  
; N  n) `) o" T'***********************************************************
'* ValidLabel
'***********************************************************
. m+ K7 _: Y6 u( d/ s* hPrivate Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
　　 lbl = label
: u& K7 ?! ?; p7 q9 v1 X　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
: {. y' _# w  E8 y　　 i = i + 1
( ?' g  m; J4 {3 V, a2 @　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
  
　　 ValidLabel = lbl
: U' l4 b. i/ T7 Q# v8 vEnd Function
! {# @! ]: {# b3 ?; c' t, T  
3 f. {' q4 k# {0 o4 N'***********************************************************
: s& B+ S/ \8 C3 B$ \% y'* PrintCookiesInfo
) s  [  M0 n* g  C+ V& e, l'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
9 v* Q9 I2 t; p/ y　　 dim tbl, cookie, key, tmp
$ G5 \; e+ v- @- Z　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
1 R- \, n' N8 {& [2 }2 E% |　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
( Q! C2 b9 E8 l1 @  m　　 Else
* p/ k. I) f: V' m! S: B　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
- q3 |, `- I, T( v% K+ I/ aCookies(cookie)(key))   
& m7 D9 [0 }8 Z   Next
　　 End If
: O% y7 q$ w% P$ l( t　　 Next </P>
/ N' L; \6 w5 Q% R, Z6 F<>　　 tbl = MakeTable(tbl)
  J2 B* f) @2 E( j. |　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
6 k, ?2 h4 C9 q. g/ P' M. w　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
: E* [  ]( J7 I1 Q, P  
7 Z/ w/ {$ }3 \' U. J'***********************************************************
'* PrintSummaryInfo
'***********************************************************
* H7 K$ {1 d2 u. a6 w* c3 v5 xPrivate Sub PrintSummaryInfo(byval DivSetNo)
( t4 K7 C6 J8 Q6 l5 e" L2 e　　 dim tmp, tbl
! |% S3 Z& a- Z; \) i* Z, ]% Z　　 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"))
  m2 t8 U; Y( {' K5 h　　 tbl = AddRow(tbl, "Status Code",Response.Status)
# }3 E* K2 ^# h1 X5 w　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
　　 tbl = MakeTable(tbl)
% x- e- p1 C) P- M　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
# v& p/ L/ H  P: f, n<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
7 O# X  H4 ^9 |! L. f% @'***********************************************************
) E  ~: G% {* l$ ]; X. HPublic Sub GrabDatabaseInfo(byval oSQLDB)
" J( N. k3 ?! S+ [' U2 D7 N　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
7 [! E9 r% j' ~2 v7 y+ j8 I- r1 \　　 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"))
2 r5 I' g* |- wEnd Sub <>'***********************************************************
'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
: B+ o$ v- R& C7 F( W　　 tbl = MakeTable(dbg_DB_Data)
& T6 Z$ l3 P. s8 o　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
) q; j$ ^. f. j+ T; W# t4 BEnd Sub </P><>'***********************************************************
+ ?6 L4 h* x1 `5 [# Q$ S'* PrintCollection
'***********************************************************
. Y, X/ d* h' tPrivate Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
5 z$ f  d& z% O" T　　 For Each vItem In Collection
: `5 R. a; F- T* I　　　　 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}")
　　　　 elseif isnull(Collection(vItem)) then
% G, {. |3 `9 L) z7 ?　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
0 l  \: a% z9 P4 {  w+ _　　　　 elseif isarray(Collection(vItem)) then
2 E3 H1 w+ q9 I  O; J　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
* [% J4 j6 K. U/ ]* q7 _1 s　　　　 else
　　　　　　 if dbg_AllVars then
! J& W( q' b* Y　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
+ \2 Y0 ~# t; s; T/ q9 }; l　　　　 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
1 ]7 a! g- c4 G0 G: eEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
% g# Q  Q. u. x3 Y/ G& N　　　　　　 tbl = AddRow(tbl, vItem, "...")
* Z3 m1 u  Y+ l& M* T; |　　　　　　 end if
　　　　 end if
, j0 P# Q) {2 C# |; r" o2 G/ }　　 end if
5 B; ]" E; X# k2 _　　 Next
) M1 ?- W( F% _* W8 x9 Y; \　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
* H1 [4 c5 s8 Q8 |# a　　 tbl = MakeTable(tbl)
　　 if Collection.count &lt;= 0 then DivSetNo =2
　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
2 r& o8 l& x+ W　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
5 p; A. i: D" A* i　　　　 Response.Write replace(tbl,"|", vbcrlf)
1 j+ r% M: W( x% I$ V0 K& T' xEnd Sub
  
5 Y6 G! x7 L) k/ U: l; C'***********************************************************
'* AddRow
# Z: p9 R. t1 e+ Q2 q, Q* Z' a. N'***********************************************************
! c$ b$ x; a( g: T, 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;"
* K$ E8 b7 a- E! G8 Q: |　　 AddRow = t
# h$ r$ `5 T0 ^& M% g6 T& B8 i; k3 Z7 rEnd Function </P><>'***********************************************************
'* MakeTable
" \' R% t8 f# k# r7 c  O5 |; h5 s'***********************************************************
Private Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
: r" [/ Y' V9 `) W$ O. {4 G& z　　 MakeTable = tdata
" K$ N, \( Q( ?& v' sEnd Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
- H& b0 H. x' L3 a$ M4 V# H'***********************************************************
Public Sub draw()
/ M. x3 g) u6 s  E! x; V　　 If dbg_Enabled Then
$ a# p- R2 X( X　　　　 dbg_FinishTime = Now()
  
9 x8 E: D! v- n: n+ G) \, y% M　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
　　 For x = 0 to ubound(dbg_Show)
; k7 d* M4 B+ }/ ?  [! l　　　　 divSet(x) = dbg_Show(x)
　　 Next
- D% r' Q* o% J  q: e, E  
　　 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$ y3 m" f3 g　　 Call PrintSummaryInfo(divSet(0))
　　   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))
　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
$ q2 y# }2 w" q8 t5 v　　  Call PrintDatabaseInfo(divSet(8))
, g1 i1 V& d& M* ]( x( x3 _　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
3 s7 m9 y  C* J# b+ u. F& H/ U0 q　　  Response.Write "&lt;/Table&gt;"
% q4 l: `7 _; k7 S- B　　 End If
End Sub </P><>'Destructor
4 `5 C# s  D7 s7 w1 W4 hPrivate Sub Class_Terminate()
　　 Set dbg_Data = Nothing
- p$ t# E4 g5 R9 mEnd 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
& j! G9 _3 a, V, t/ e2 y&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
* i) ]- k6 i0 b  c9 d  
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
$ d( G) ~# `. [  ?  
3 f" Q$ \' g/ A( t7 l2 |- KProperty Get Show===[string] Gets the debugging panel.
* u- t, L1 k4 B  
  {% q5 L( _4 @, L2 uProperty 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><>--------------------------------------------------------------------------------
, x) q7 m" z1 h% tPublic 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 ()
+ a) {! ?5 P9 J! D　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
  
% x0 \9 h( Q. @+ u4 \+ upublic sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
/ B. e7 m* a5 G) m. L　　 - output [variable]: The variable itself
# p! b. Y, b& @2 E( J4 ]2 n  
: b; ]2 V/ ~! @3 @" X- Mpublic sub===GrabDatabaseInfo (byval oSQLDB)
4 i3 v- ^5 M! z6 t4 gParameters:  
　　 - oSQLDB [object]: connection-object</P>