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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
& l% f# H2 u. u/ p; Q; d+ E<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
test.asp </P>
: [& V% n- D* h, c+ W# [- O" I+ M- K<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
( [; r5 _  b& k5 f7 C; M" K&lt;%
output="XXXX"
Set debugstr = New debuggingConsole
# Y: ^  ]% o3 D! s5 e% y! |debugstr.Enabled = true
9 e7 L8 B. e9 H　　 debugstr.Print "参数output的值", output
4 j3 o4 j; R' h　　 '……
　　 debugstr.draw
Set debugstr = Nothing
+ H. T+ u2 ~3 i) C+ I%&gt; </P>
<>=================================================== </P>
2 ^2 n4 E% p- t! E; e" N5 j1 d<>debuggingConsole.asp </P>
% o5 P* _& T4 y3 H0 G! I<>&lt;%
8 C6 t2 Q0 F5 C0 z: bClass debuggingConsole </P>
" K8 ]$ i; H' F<>　　 private dbg_Enabled
　　 private dbg_Show
+ {6 T  k# H* D2 I- S　　 private dbg_RequestTime
　　 private dbg_FinishTime
　　 private dbg_Data
( @( B3 \& q/ Q+ Y4 x/ v　　 private dbg_DB_Data
　　 private dbg_AllVars
　　 private dbg_Show_default
: w9 P: d; N0 q  W+ N: H　　 private DivSets(2)
) C- Z$ E1 E( C- O   
'Construktor =&gt; set the default values
Private Sub Class_Initialize()
　　 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>
<>　　 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>
( d+ b/ X  N. 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>
! }; \( r: u; v+ ]4 f" m% P0 o0 v<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
End Sub </P>
: {6 _% V4 J3 L; a0 S& {8 o4 {<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
. y1 `0 {$ j( P2 i" M　　 dbg_Enabled = bNewValue
End Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
End 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>
8 p) N2 F; K1 e! Y3 u1 m6 ^<>ublic Property Get Show ''[string] Gets the debugging panel.
  x# U1 ~  }- y, U! @6 e# V+ x　　 Show = dbg_Show
End Property </P>
! L) P+ S8 ?3 }<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
# x  s3 K. P5 t& d4 }# R9 E$ {  y' D4 \　　 dbg_AllVars = bNewValue
) j* N0 K% d1 P9 q1 S7 F  CEnd Property </P>
) u( E/ _- G& y3 H4 M* g2 B. W7 S1 a; e<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
' d. v! D* Q9 U! x  i% R''@SDESCRIPTION: Adds a variable to the debug-informations.
3 g8 r9 @8 @4 B7 c, a* G: h! t''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
'***********************************************************
Public Sub Print(label, output)
　　 If dbg_Enabled Then
/ F' u  j4 H* k; Q　　　　 if err.number &gt; 0 then
( j: |, p' S2 b, h, ^) [% ~# H　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
8 c5 F3 Z& O, E$ e/ `/ U　　　　　　 err.Clear
　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
/ O  Y! m. g$ Y: T　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
9 A9 g) d6 r7 M0 O9 k: k' U　　　　 end if
, S9 l; x: }6 @$ _　　 End If
: m4 t$ h$ T$ sEnd Sub
  
" P8 h, V* I' o" w% i'***********************************************************
' v2 K1 {" i6 h& }# d, {'* ValidLabel
'***********************************************************
Private Function ValidLabel(byval label)
　　 dim i, lbl
! ]) Z& ?) R( g+ Y　　 i = 0
　　 lbl = label
- K6 v1 X' Q; X+ a5 D- p) R: c　　 do
$ X) w7 _. D7 `4 K' L　　 if not dbg_Data.Exists(lbl) then exit do
1 |6 r& e% h+ Z: }8 q2 s3 l6 F　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
  
　　 ValidLabel = lbl
End Function
: |8 c: j$ P9 u, ^  
: i) E( S. B" r& U) ^0 P'***********************************************************
'* PrintCookiesInfo
7 a4 L1 |; i4 e1 n( }+ j0 z. o'***********************************************************
, f! r$ |" n% B3 k: C8 lPrivate Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
- I  H: g- w: @+ N　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
　　　　 For Each key in Request.Cookies(cookie)
0 r& {  ?: O* i　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
6 s& R- v3 G6 s- F; f& y$ j　　 End If
/ j8 |( A8 _1 w! g　　 Next </P>
<>　　 tbl = MakeTable(tbl)
! X# e5 e; K2 C# r8 Q　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
+ a2 o3 b3 ]9 H3 h' E  [7 x# ]　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  
'***********************************************************
'* PrintSummaryInfo
'***********************************************************
Private 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")
) U+ O% a4 X7 Y" U0 j" V　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
7 E7 i- F0 g# B# V- u* ^8 X　　 tbl = AddRow(tbl, "Status Code",Response.Status)
% \1 z, ~/ g3 q1 z+ t　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
　　 tbl = MakeTable(tbl)
: i" g( p2 c+ ?　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
2 C+ f% _5 b: k: X　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
<>'***********************************************************
, I0 v; Q- f, t5 |''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
$ G4 a3 D% N: ]/ H/ {9 j'***********************************************************
. F9 {! E% h: B% p$ CPublic Sub GrabDatabaseInfo(byval oSQLDB)
5 A3 m7 B+ U4 I　　 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"))
1 ~/ n+ r$ M9 C+ Y4 `) u0 E　　 dbg_DB_Data = AddRow</P>

韩冰

(dbg_DB_Data, "DBMS",oSQLDB.Properties("DBMS Name") &amp; " Ver: " &amp; oSQLDB.Properties("DBMS Version"))
: w5 P. h. {8 B) K5 t7 p2 A. s　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
End Sub <>'***********************************************************
'* PrintDatabaseInfo
) ^" m* d; D$ `' q( z. p0 O'***********************************************************
; G3 A  j8 L. {4 ^0 z. ?6 tPrivate Sub PrintDatabaseInfo(byval DivSetNo)
+ y, ~6 u: M% p- h& @　　 dim tbl
" ]/ g$ H; z: I& W　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
7 P+ K) j# ?/ @; s　　 Response.Write replace(tbl,"|", vbcrlf)
" n+ \1 K9 W2 Q! y0 r6 M% z7 PEnd Sub </P><>'***********************************************************
'* PrintCollection
'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
5 i. w$ D3 I  B　　 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
  B  h/ w8 H. W% W) X! s　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
* L; B3 H7 Z$ e　　　　 elseif isarray(Collection(vItem)) then
/ ]0 o" r4 w2 `, x4 y　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
# `. E$ g6 R/ ?$ l0 t1 K　　　　　　 if dbg_AllVars then
　　　　　　 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
* Q, d4 W( e: ~1 y9 V) j" [　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
6 K& w; F  \6 L; FEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
7 @" x( p' c) o1 V- ?+ F　　　　 end if
/ R/ y/ V5 i2 ]# J. x* @　　 end if
' w: k" h4 r  ], P/ t9 J  \9 t　　 Next
5 G7 S& H  \6 d; [: v) ?　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
( B# B: V2 K1 h, j" {　　 tbl = MakeTable(tbl)
" k( N) e7 c/ i/ W　　 if Collection.count &lt;= 0 then DivSetNo =2
, h: a* C3 {4 w! S. Q% X: H. K( B, |　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
  
'***********************************************************
'* AddRow
0 V; a* Y7 l2 x9 M- z; V'***********************************************************
' n! d* B+ w7 @& DPrivate 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
End Function </P><>'***********************************************************
- j% y' l- p0 Y% {. u'* MakeTable
3 N+ D* N* o$ c& d3 d'***********************************************************
7 T* h; _" y6 |* |' IPrivate Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
5 S# z% P6 m* E4 l　　 MakeTable = tdata
End Function </P><>'***********************************************************
0 y3 ?9 I+ O3 r! D''@SDESCRIPTION: Draws the Debug-panel
8 G, l7 O2 O8 l% c$ _  |'***********************************************************
3 S- H" f% G/ u% ?, m% d2 mPublic Sub draw()
& q$ a0 \' `9 j) {/ G) w& x　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
4 M1 B- u- o* o% E# l  
　　 Dim DivSet, x
" W; T" a3 d' C9 l  Z　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
  
; M- l# ^" X( w' p4 e# c( X' r　　 For x = 0 to ubound(dbg_Show)
4 V8 {- o9 M0 p5 }! ]9 b　　　　 divSet(x) = dbg_Show(x)
# a  `5 {' u5 e  {) C; a8 C. c6 u　　 Next
- |, }' b$ I( g. F  
( f; U$ |9 C( f$ a5 I) i　　 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),"")
, R! N2 }- F4 T& a　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
5 C8 G9 Z+ n; Z" t　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
: [' ?; \# d/ G  }, O( C& k5 T1 o5 d　　  Call PrintCookiesInfo(divSet(4))
) y8 ]2 ^, `6 P: Z　　  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),"")
$ |# K/ G, \: x, J' ?$ m　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
. T$ i+ E% j2 o3 H' U* ]　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
" C8 z/ t$ v& x1 D' b' s7 I　　  Response.Write "&lt;/Table&gt;"
, O9 @% a+ D- y9 E　　 End If
End Sub </P><>'Destructor
Private Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
( \& G) R3 L3 q0 @0 d! uCLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
1 H) n2 Y, J, Nbsp;
Property Get Enabled===[bool] Gets the "enabled" value
0 Y: Y6 s$ v0 m; G0 P  
+ v% U7 t/ C' O$ nProperty 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 V7 J, l+ W/ s& L* Z  TProperty Get Show===[string] Gets the debugging panel.
6 Z$ U0 w7 R: a; S* R8 O( z) \5 A. u% U  
& _3 Q# w' C0 M9 G8 |1 qProperty 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><>--------------------------------------------------------------------------------
Public Methods </P><>public sub===Print (label, output)
2 g  N6 ~3 T+ i6 v$ e/ G1 x( j; U* H　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
) J2 ]  e* H  @; `1 f　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
2 a4 N7 U5 M. j# j; A. zMethods Detail
7 N4 f- }- y2 a- i3 a5 W  
public sub===Print (label, output)
0 u, Q& E! Y5 V7 QParameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
* k# o* o4 }9 i4 i　　 - oSQLDB [object]: connection-object</P>