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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
- t0 s) z& r& G<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
" z$ M" u3 s4 Y9 f8 Ttest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
output="XXXX"
) l  ~4 K. d1 I3 [* C. }* Y8 vSet debugstr = New debuggingConsole
2 [0 Z: a  r- x2 K- A: W; Bdebugstr.Enabled = true
: g% O/ G; a! X" J* z1 |+ g; t　　 debugstr.Print "参数output的值", output
2 V* s5 q* ~& ~% B4 l. i& }+ F　　 '……
　　 debugstr.draw
# I! f& V5 [1 Q5 zSet debugstr = Nothing
%&gt; </P>
$ ?) `2 A9 F( X  [$ z<>=================================================== </P>
<>debuggingConsole.asp </P>
* O3 ^6 s( W8 t( @8 {6 s<>&lt;%
; t# }; I& ?: m. e2 s/ l8 _) Q1 w  F6 \6 kClass debuggingConsole </P>
1 {7 m- \  O9 K; e  S3 N( }<>　　 private dbg_Enabled
# W/ G4 {% r2 ]4 G7 m　　 private dbg_Show
　　 private dbg_RequestTime
0 u! _0 i" @! a+ Z/ S5 @　　 private dbg_FinishTime
0 m* R2 \; k; U- |　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
　　 private dbg_Show_default
, ^- F4 l7 x# Z7 X- C! u2 e( Z$ I; f　　 private DivSets(2)
   
8 Z! [, V" q) M- w9 h9 L+ }" N'Construktor =&gt; set the default values
2 T' Y* |: W8 c# CPrivate Sub Class_Initialize()
　　 dbg_RequestTime = Now()
* H* \6 k/ V. ]8 ?$ |. I2 k1 E　　 dbg_AllVars = false
" E$ V* \" v9 n: b　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
/ R6 ?1 X2 d+ s<>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;
# E) N. ~" l! x3 }' e4 B&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>
  P; t* D/ k, t$ ?<>　　 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>
+ p3 W- c/ ^& ]<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
2 N1 w% \9 d: z$ a, m+ FEnd Sub </P>
5 b9 O! P6 D2 G2 p  f% c% p<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
End Property </P>
: R2 p# i# u! R, @  E/ H5 J<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
# {+ G& I. N$ @2 B9 C　　 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
5 W" H" O  T7 v4 X5 ~End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
# m& F: G+ Y( I0 v　　 Show = dbg_Show
: n& L0 [" R7 j4 m. xEnd Property </P>
<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
: c! U# w6 J: ]5 M( y! P3 `End Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
7 |% t" Q8 \. l' l: S. R, k''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
'***********************************************************
Public Sub Print(label, output)
　　 If dbg_Enabled Then
4 h5 A$ B3 ?3 D3 d/ \& I" r% b　　　　 if err.number &gt; 0 then
6 q6 o: W, g: e- G9 s6 ?　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
* v% r- `4 D; x# l# T+ ^8 Q4 _　　　　　　 err.Clear
& A0 O+ U" L% y6 a- N3 p+ `3 i1 ^　　　　 else
6 A6 W  j" X1 P　　　　　　 uniqueID = ValidLabel(label)
! J5 `% u2 {& A　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
0 w* @* {- J% l# S& @　　　　 end if
5 b; H: i* l* p0 `$ \: T# M& z　　 End If
' R9 u7 Z: {6 v5 tEnd Sub
  
'***********************************************************
- M1 O% G) N* N$ U- J'* ValidLabel
% j: ^9 q* }: i3 f+ A- W'***********************************************************
Private Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
# _4 i! s' @" ^! w7 [　　 lbl = label
  G5 x3 V# ~/ H. t' c　　 do
, {( S8 j# T4 \" z9 N　　 if not dbg_Data.Exists(lbl) then exit do
& o6 z/ n5 V7 j$ p/ ~　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
: T' x8 c" p* S  
5 K5 s# O% [: I: Z　　 ValidLabel = lbl
" G; x1 k  {8 b3 P4 tEnd Function
6 Y6 I* D5 B; T8 u( `" o) `4 Q  
/ u" t( Q* {. T3 R'***********************************************************
'* PrintCookiesInfo
'***********************************************************
" L9 b' b) \/ ?' n; JPrivate Sub PrintCookiesInfo(byval DivSetNo)
) N- U1 y! E# j" U7 X# t! Z9 p　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
! e/ H( w0 v- }7 L8 u　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
7 [* m! Z8 Q! d' B, T. U2 `7 L　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
　　 End If
　　 Next </P>
7 B! D$ Q6 W+ @1 B2 L! B  t, E<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
, g2 `7 I; q( g/ N( K0 _6 I& S5 A% g　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  
" i' q) v/ D- ?4 r! F'***********************************************************
% W: o9 L1 r. c) {7 c'* PrintSummaryInfo
'***********************************************************
$ m7 r! G9 D% ]' Q; b5 E! F8 yPrivate Sub PrintSummaryInfo(byval DivSetNo)
$ @6 N5 m* Z1 s7 ?$ H　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
) e! f; V% \: ~3 Q0 ]$ z2 Z　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
* E5 O% E# T! c　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
6 t! p8 O' }1 D1 R( V( r9 }　　 tbl = MakeTable(tbl)
7 |5 ^0 j% C7 @: `# q! v4 c6 O/ q　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
$ c. r; R0 P1 K* H5 ~- Y'***********************************************************
" o) r2 I2 O) P* N9 ?$ I5 k% r( j: l  vPublic Sub GrabDatabaseInfo(byval oSQLDB)
% d; h6 M6 @9 s4 M: d5 L　　 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"))
" t; m9 Y' N0 q+ e, G　　 dbg_DB_Data = AddRow</P>

韩冰

(dbg_DB_Data, "DBMS",oSQLDB.Properties("DBMS Name") &amp; " Ver: " &amp; oSQLDB.Properties("DBMS Version"))
% a6 L* M) ~" d; X  Z; r　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
End Sub <>'***********************************************************
'* PrintDatabaseInfo
' _' @3 M, r% l, {/ F'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
% T- ^4 S& J8 L* _　　 tbl = MakeTable(dbg_DB_Data)
0 d' U# B7 @0 E# H! c　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
. b3 j5 d$ B3 u/ H　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
'* PrintCollection
7 k$ y' o  C. M+ d$ g+ @'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
6 L0 f* D+ B8 `: W9 A) @　　 Dim vItem, tbl, Temp
　　 For Each vItem In Collection
3 m) L) p; ~/ R" h+ B- ~　　　　 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}")
4 {3 V9 A. r9 R  A0 d* b' X% {　　　　 elseif isnull(Collection(vItem)) then
! Y: A% U! K$ `! ?* p8 G1 t　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
) o- T5 k: o8 I; v" c  ~, u/ U: q* `　　　　 elseif isarray(Collection(vItem)) then
0 b" ?$ d- B, T. I. V　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
; u; J2 f% C6 T+ f　　　　 else
+ T  U" k9 v7 }5 c1 z2 r" Q9 x　　　　　　 if dbg_AllVars then
. X  Y# ~; n! X　　　　　　 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
2 J6 l- G: `9 z　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
+ t" k0 T3 z  o  g, H% e) A4 HEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
: E4 S0 ?' u& Z0 Y# j+ D0 K　　　　　　 tbl = AddRow(tbl, vItem, "...")
" n+ L/ c3 w. s' \' S4 g: x/ V) y　　　　　　 end if
　　　　 end if
　　 end if
　　 Next
3 u( [: P: Y  a9 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)
　　 if Collection.count &lt;= 0 then DivSetNo =2
% Y1 h5 l8 }9 i  B, x/ S9 r( b* e　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
4 M( C1 {& W- `, jEnd Sub
  
'***********************************************************
'* AddRow
) \& {* e$ W7 n7 o" c! D'***********************************************************
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;"
　　 AddRow = t
End Function </P><>'***********************************************************
! @. x# {, _  u! E'* MakeTable
'***********************************************************
Private Function MakeTable(byval tdata)
, f9 r" ]2 Q+ h* |" _　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
5 y) m5 D8 Z- W2 L3 @5 G: iEnd Function </P><>'***********************************************************
4 Q2 I4 m# O7 I( L''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
Public Sub draw()
) K! U  s5 O  o& P! n6 ?' ?　　 If dbg_Enabled Then
+ @8 q$ E6 ^! b9 A) e　　　　 dbg_FinishTime = Now()
4 \2 d! J5 g: p+ d% W4 d2 d/ e" x  W  
　　 Dim DivSet, x
2 X% j! x0 C$ Q/ v　　 DivSet = split(dbg_Show_default,",")
5 s1 i/ w4 N( N) C4 e　　   dbg_Show = split(dbg_Show,",")
" r4 ~) }/ R2 @2 H4 W/ B  
/ M9 _; d8 s% x% z) x8 x  Y　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 Next
  
　　 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;"
( {/ G+ d# y# W/ g& l　　 Call PrintSummaryInfo(divSet(0))
　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
8 h3 c; o1 i* t9 ^9 I- ~　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
# g+ r3 i' C& R. r　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
2 R0 @6 T' J0 S$ a4 ~+ m0 C6 R% F　　  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))
/ a* X) {% _5 h# ?; ?　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
' F. T: T- F1 M7 k4 ?; i: v0 }% ]　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
! c2 [0 u4 O) ~0 ^+ t5 l" C) T　　 End If
End Sub </P><>'Destructor
9 W: N' l9 ^7 y  {9 FPrivate Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
: H3 o6 C7 U7 S( l% t" D+ U3 `Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&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.
/ u) Y1 X! e- A  
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><>--------------------------------------------------------------------------------
Public 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 ()
- ~$ U+ I3 G2 p0 p: e　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
" r1 C/ ?5 n& R) [- L! ]% ?Methods Detail
# {3 J# w; j; y  
public sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
/ G; Q1 B; c% `0 \. [; u  
public sub===GrabDatabaseInfo (byval oSQLDB)
' X$ R" K2 s- T8 q. EParameters:  
　　 - oSQLDB [object]: connection-object</P>