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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
5 \& F: g3 R' g9 i使用方法很简单：
1 H8 K; ~: m: ftest.asp </P>
7 ?" \5 A4 o% C<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
' C- [0 J. }1 c5 \8 L& l&lt;%
output="XXXX"
% B1 S% N) x" Q! z( `9 JSet debugstr = New debuggingConsole
debugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
0 J, v4 v- Z. M" n* V, G! V8 I　　 '……
　　 debugstr.draw
2 a0 |" e) Y1 [% b3 M8 r9 W1 rSet debugstr = Nothing
+ [" P/ y; u% S& v%&gt; </P>
<>=================================================== </P>
) ~6 m6 c/ w3 S! U<>debuggingConsole.asp </P>
: O, i/ @- p) X; b, E<>&lt;%
- J: h. m; ?9 a% m$ e+ AClass debuggingConsole </P>
% d8 ?0 U" U' ^2 i" c9 ^9 r: S<>　　 private dbg_Enabled
$ d3 T8 O- _+ R) |- x" q　　 private dbg_Show
# f- B& l2 ^% t6 A1 F# d　　 private dbg_RequestTime
3 [4 z& _6 K9 d- p# v- D　　 private dbg_FinishTime
( p. c* l7 o9 ]5 E  `) C, X! k　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
) Q- N4 K9 ?% w+ X+ @" v+ m7 d. U$ S　　 private dbg_Show_default
% J% O6 X* V+ s+ Q4 u+ R6 u　　 private DivSets(2)
   
: z2 j" q$ O2 |5 T! n" S'Construktor =&gt; set the default values
Private Sub Class_Initialize()
8 Y# `; _/ a4 H" V. p4 \　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
$ H+ i( x5 ]5 r* b3 J7 I* z4 O<>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>
( v5 \* _3 R2 E<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
" W1 i* @5 h& l+ |8 M5 {&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>
* a" z3 b7 M$ F4 j& M; S( 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>
# R' E- ^  e( I) {<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
End Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
End Property </P>
$ @" j  w7 `; Y, L* T% x0 Y<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
' b2 g' ^8 C/ V; E7 Z9 T0 j& T' E! pEnd 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>
# y4 A! K, s1 n/ q# s) k* R9 D<>ublic Property Get Show ''[string] Gets the debugging panel.
! S2 `5 _1 }- r　　 Show = dbg_Show
6 _- N4 V& z3 N) r) p0 [  j9 X3 FEnd Property </P>
% C  a$ y. {3 [  W5 X$ g<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
$ e1 e9 |( `" b, Q: S, V% Z6 Q　　 dbg_AllVars = bNewValue
! ?2 t% ~7 d( F& KEnd Property </P>
6 |1 ?" @" w& U. l/ f<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
% F4 s1 s/ ~) r! lEnd Property </P>
<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
2 N6 t' e3 _" E" i''@PARAM:  - label [string]: Description of the variable
5 Q  c+ s4 I% u% z''@PARAM:  - output [variable]: The variable itself
'***********************************************************
Public Sub Print(label, output)
( t' t- }" H- b8 u) Z% e6 h　　 If dbg_Enabled Then
; ~' Q3 ~6 D% Y　　　　 if err.number &gt; 0 then
2 ~6 L; Y3 P  p% J: X9 A: v　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
1 ^( m, O4 y4 R4 d# a5 Z( D　　　　　　 err.Clear
* Q8 O- `( X' M0 T　　　　 else
* V% P5 y/ b4 ^( E2 f. q　　　　　　 uniqueID = ValidLabel(label)
" w7 f' r7 D  F! _& k# V　　　　　　 response.write uniqueID
+ Z+ }/ |$ w9 t7 f, t% r' a8 K　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
End Sub
' |, l: |1 m$ T9 S8 q% ~5 @; d7 b  
2 X' b) k/ _) t) u" t  T" |'***********************************************************
! z( X- S) W% G) [' B'* ValidLabel
8 _% v9 ^9 V. H7 s; P% g$ D'***********************************************************
Private Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
7 h( `, x/ z( T' }　　 lbl = label
　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
! b6 }# A; [6 S　　 i = i + 1
, L' P8 a8 \  j3 H" X　　 lbl = label &amp; "(" &amp; i &amp; ")"
) x! {' q- I& k$ W  H　　 loop until i = i
  
　　 ValidLabel = lbl
End Function
  
; A& b6 @; `) |9 @+ \+ v  P'***********************************************************
: k, e! [7 ^; C& D3 E/ s+ z'* PrintCookiesInfo
5 N0 z* Y6 u' {'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
: c9 g& S. w& H+ b9 m! l　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
2 z( A: e% }6 U! P; y/ C/ U　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
( s4 N7 g; E' Z! F/ U　　 Else
, p2 T. U1 Y. z2 i1 W1 C& a% E9 n% N　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
8 ]( S: |, o) I7 G& t8 A3 @   Next
5 X7 G5 v7 a9 k7 _' F8 h　　 End If
% k% ?6 E' W% D4 _# B/ Q　　 Next </P>
<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
; `$ U5 a  J' o  u5 D9 w# q　　 Response.Write replace(tmp,"|", vbcrlf)
. W- k$ P# W5 E4 H3 Bend sub
: u8 c5 F3 w, J9 n7 C6 h$ v  
+ ~) Y9 H' D) k  U: F- J'***********************************************************
" X+ n7 I. k2 O& k'* PrintSummaryInfo
'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
　　 dim tmp, tbl
　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
9 p' ]6 j( {: }3 X) c- Z) v　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
+ D0 M$ m# R) F2 h$ r3 N　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
6 h* z: L" ]( }　　 tbl = AddRow(tbl, "Status Code",Response.Status)
* J* ~' C. c$ L1 p8 S% i  R　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
% H9 U6 q0 M/ p/ G& J　　 tbl = MakeTable(tbl)
0 A5 s8 U$ y, j3 L+ M　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
5 {: w1 A. e( O  _<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
( P. n  y" {* ]# B''@PARAM:  - oSQLDB [object]: connection-object
" m5 s6 M. `* r+ v7 e' h0 K'***********************************************************
, d( J$ V8 t( S- I/ D* PPublic Sub GrabDatabaseInfo(byval oSQLDB)
& a( V9 s' E& X* b7 f) M3 `　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
& O* ?9 U: P" w* Z' O; D# v+ z　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
! \: u9 u0 x" H2 f  ~; C　　 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
% W- p. I% ~! \# M2 a; X0 z8 p' O'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
/ A! n4 D2 h1 h8 l0 n$ A　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
& k' S. {; J0 \+ A5 j'* PrintCollection
- z0 i9 D$ m- E6 }9 G'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
# _# T7 ]8 m0 |# c  E3 Y　　 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
　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
" t; i* e$ l# ~: p- A) A' P5 _　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
. [- e) }. M  d5 j% s; c　　　　 elseif isarray(Collection(vItem)) then
1 M/ {. G4 j! _* S" r% [　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
8 Z! ~4 O# @4 e5 [6 U; G* l! i  e　　　　　　 if dbg_AllVars then
/ l: u! S6 u* e1 l8 l　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
1 s# O; X" C3 I) l4 u; D　　　　 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
5 R5 _" g1 ?" Q8 [4 p: u　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
4 E" N" {! z# E& N0 TEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
! i- s7 ]3 U- G7 F% T　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
7 U& T' @2 N( j　　　　　　 end if
　　　　 end if
6 U) [6 q. {( Q% c1 s　　 end if
　　 Next
　　 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
　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
+ v+ @( H' P7 R0 c& E7 @$ r　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
' Z# _# ?. Z* e" w* y4 ?$ y. REnd Sub
& s, L5 }+ g  J3 D6 P& R) ?  
. D, F7 |5 Q! {0 n'***********************************************************
'* AddRow
- o# l$ i; q1 |9 Y' g* @'***********************************************************
9 v. Q3 w9 k( O8 f% c- FPrivate 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><>'***********************************************************
'* MakeTable
'***********************************************************
, r8 u* @3 G4 q: @7 ~Private Function MakeTable(byval tdata)
7 v8 i0 k  v% T9 K0 F  s  ~0 u; G　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
) G1 N# N3 t' s4 D% ]& t  K0 `　　 MakeTable = tdata
9 }% }7 c7 U7 u! q3 _- _+ zEnd Function </P><>'***********************************************************
. u- r. |8 l/ R( ^7 _8 d''@SDESCRIPTION: Draws the Debug-panel
7 z$ A- i$ \" i# @* v, b( S$ H'***********************************************************
9 Y3 l: S" y/ \6 I9 m1 V4 a" bPublic Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
  
　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
& [6 V; u% ^( U& P1 c' t! z　　   dbg_Show = split(dbg_Show,",")
, z& c! i" A( O. i/ _% `, J* R: f  
　　 For x = 0 to ubound(dbg_Show)
2 s  Y' h- A2 j4 ^) B* A　　　　 divSet(x) = dbg_Show(x)
$ k. l/ w- x2 P7 ^+ W6 v/ M　　 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;"
　　 Call PrintSummaryInfo(divSet(0))
% p' p% z1 W9 y5 D　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
- Q! `9 V+ T1 j+ L　　  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))
  M9 Y) K- J5 {2 {　　  Call PrintDatabaseInfo(divSet(8))
- p8 p8 a$ Z3 }! }( V　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
8 G  ]" |6 I  A0 W　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  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><>
8 d' w2 }% B; p/ h' [CLASS debuggingConsole
* x2 D; G# K, DVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
) `* i/ N/ ]! w0 T( `&amp;n
bsp;
* ]2 v# p: ?2 `% L1 @Property Get Enabled===[bool] Gets the "enabled" value
  
2 i" A- t" `3 L, a0 ^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
% ~4 c6 c6 `1 H. ?8 v  
8 ]3 m# R5 J) W" k) n. i; ^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><>--------------------------------------------------------------------------------
3 q6 x: p' k; B1 M& KPublic 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 ()
& n$ p( t, u; {/ y. y　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
- o0 B; Y' B' w  U- k  
8 S, X( P- J+ P0 N( Ypublic sub===Print (label, output)
0 X) X& j! r# A$ }5 o* hParameters:  
　　 - label [string]: Description of the variable
( A* A! v& U/ B. C　　 - output [variable]: The variable itself
1 b% Z- ]+ z' T/ ]9 d  
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
　　 - oSQLDB [object]: connection-object</P>