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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
. x6 c. D; e) E% G1 b0 ~<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
- M: ?! `* c, o1 K. _/ Dtest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
  u+ b7 \* y6 W: A& {9 u. u+ U) n&lt;%
1 x! g8 W1 Q1 B- A  ~9 poutput="XXXX"
Set debugstr = New debuggingConsole
4 z1 f+ M3 w! A7 ]debugstr.Enabled = true
  ]5 C5 G% D. T$ A9 g) |; K　　 debugstr.Print "参数output的值", output
　　 '……
% _6 Y  S$ j3 Q　　 debugstr.draw
Set debugstr = Nothing
%&gt; </P>
3 Y2 D; D$ }" p8 S<>=================================================== </P>
; n0 \& q9 ?: E$ W* f; a( ~& _<>debuggingConsole.asp </P>
: F& Z& j, L! X  @/ W6 n! J<>&lt;%
Class debuggingConsole </P>
<>　　 private dbg_Enabled
1 I0 ^/ a4 d$ p" m4 c3 o5 b& \$ v　　 private dbg_Show
　　 private dbg_RequestTime
　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
: M0 @% N8 W1 S2 x1 ^+ l　　 private dbg_AllVars
　　 private dbg_Show_default
　　 private DivSets(2)
; }; u. s, q& |, o2 d; Q* n+ z" A: g   
'Construktor =&gt; set the default values
Private Sub Class_Initialize()
6 @# {( p6 p4 r1 ?1 `; |9 r+ h　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
9 J) t# O! {0 R6 V! `4 Y- m　　 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>
/ Y7 G: A6 y& ?% \<>　　 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>
, V! G0 n& m6 d5 [  c5 F9 S<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
End Sub </P>
/ o4 W# I4 q- h; f/ Z! ]$ h<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
8 L5 U9 ~, q  D  u  @1 j- ]* K& OEnd Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
8 y9 A5 Q: K; n+ e1 l; R! Z- ]　　 Enabled = dbg_Enabled
End Property </P>
2 ^+ W7 n2 ?* U* g9 C: s/ w' e<>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
! n# T* V0 s. E$ D. s. nEnd Property </P>
% z- s6 }, V/ ?<>ublic Property Get Show ''[string] Gets the debugging panel.
! z  `7 j' O: ^　　 Show = dbg_Show
- f: u2 \$ [; |, j1 bEnd Property </P>
& D& D5 N6 ^; ~! R<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
$ u4 K& Z: I5 E9 OEnd Property </P>
. L  i4 g7 H! C+ o( a' s; Z<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
( P7 t- _/ G' D9 g4 r7 `! sEnd Property </P>
<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
" `  @7 d; \# n  m) c. R: \''@PARAM:  - label [string]: Description of the variable
' M3 G+ [  u* v8 j6 u''@PARAM:  - output [variable]: The variable itself
1 k. n+ y3 I& ~6 K'***********************************************************
  H; F7 k& u5 }: S% _# d$ FPublic Sub Print(label, output)
" r( z  C( P7 }" V& [# ^　　 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
% h4 p& W# n/ G/ \$ W　　　　 else
; [# i6 E# T: T, u* e8 T1 T　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
: v, W6 X% k1 h! E# [　　　　　　 call dbg_Data.Add(uniqueID, output)
' }1 Q/ a6 }4 Z4 C; f4 r: B　　　　 end if
- X/ ]: R2 `0 C6 t8 d* U8 l　　 End If
End Sub
  
! ^" d# E+ T. b0 z' S3 W'***********************************************************
'* ValidLabel
'***********************************************************
  H. Z/ r8 s% o0 }1 lPrivate Function ValidLabel(byval label)
! \8 V% }% W. f6 G, |4 Y　　 dim i, lbl
　　 i = 0
9 s5 \% E; y% U" J　　 lbl = label
　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
6 ^4 x& t3 z3 n2 `2 l　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
# w/ W1 C( d" _1 P$ k  
: D: U$ O2 ^6 U6 ^) Z0 r0 u; v　　 ValidLabel = lbl
: E! N0 R; {. K8 AEnd Function
  
, |+ G4 ~$ M6 U5 l( S0 X$ U'***********************************************************
'* PrintCookiesInfo
/ s3 J' U5 X: d% ~# l'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
, I% _" v: L4 }8 D; ^　　 If Not Request.Cookies(cookie).HasKeys Then
0 r  t1 I" Z7 g3 N/ Z　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
1 V: e/ l! G0 n/ Z3 b3 P　　 Else
* @3 u1 a- q' |' C6 h　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
: t" u& h: k+ `9 p$ a2 V0 ^   Next
　　 End If
. b# a/ t( U7 _  `5 `4 {! t% o9 a　　 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)
& N! c4 l6 C6 [4 Q- l: i% Z3 J) P7 h0 G　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  
'***********************************************************
'* PrintSummaryInfo
'***********************************************************
1 n7 C) s3 c4 O) {0 G! ~. HPrivate 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")
3 M  c7 Y8 H) O: E　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
; d  m9 Z" C* h　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
8 b0 L, W) c! E　　 tbl = MakeTable(tbl)
! o! k# b0 U7 {( C　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
5 J9 ?6 K  X) Q2 k0 u9 n( N' I<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
# M' H( b8 U5 f3 M'***********************************************************
5 f- D' ~- l3 APublic Sub GrabDatabaseInfo(byval oSQLDB)
/ L7 l2 d/ t! D* S: @8 q0 E　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
; r" q& ~  {9 g+ g$ b2 I　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
, Q- ?0 \* L% A+ M' e　　 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 <>'***********************************************************
$ k- t& f+ G8 L: F7 y4 C'* PrintDatabaseInfo
'***********************************************************
! }  `" y' ^3 F" \# aPrivate Sub PrintDatabaseInfo(byval DivSetNo)
: H! z3 \, t0 o% h　　 dim tbl
1 S7 |0 u& _+ l  ]- \　　 tbl = MakeTable(dbg_DB_Data)
; B7 x( K: Z+ k9 B( S) l; Y4 Y0 O　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
- N0 f6 M  A: r7 P　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
2 q& n" P  V6 U+ t' l$ L( c0 c'* PrintCollection
$ L0 u. O. q, U  a2 G! M& d'***********************************************************
7 Q* K9 N  E- X5 @9 JPrivate Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
: w" Z6 U4 K5 d& @5 q- ]　　 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
: p* `  W/ |  X& \! V6 i　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
　　　　 elseif isnull(Collection(vItem)) then
+ i& }9 i5 z- J& s% `6 t3 A　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
1 [& n; B: y4 c, d' n) C5 F　　　　 elseif isarray(Collection(vItem)) then
) c9 m' c& n" y" E/ ~4 W, X3 M　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
4 q5 u1 C* t+ U& o* d$ H# j　　　　　　 if dbg_AllVars then
, V( Z0 n$ U, n　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
; _* I! V6 [$ S! _* v$ ^2 L　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
" T" K, C5 g2 _$ U! n　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
& _+ Q$ c  h4 MEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
  @2 E5 c' w; v" h& a　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
　　　　 end if
; |. B: e! q& F0 c2 P2 L  n　　 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
. Y" L& n3 t  _% D* ^　　 tbl = MakeTable(tbl)
　　 if Collection.count &lt;= 0 then DivSetNo =2
6 M( x$ X9 Q* M5 ]　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
' G: {3 J; A: j( G" v5 h0 O9 a　　　　 Response.Write replace(tbl,"|", vbcrlf)
- z' n& Q2 N' B5 H2 C) VEnd Sub
  
'***********************************************************
'* AddRow
'***********************************************************
8 n6 R7 F8 L0 L/ J. ]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;"
& D! v6 l# _; J" e; f  M　　 AddRow = t
End Function </P><>'***********************************************************
! o2 N+ r9 Z& z6 c4 o% J- N: y: O'* MakeTable
' y/ U  x: D: M4 @! F6 m! b'***********************************************************
Private Function MakeTable(byval tdata)
( }2 F2 b* Q; `  e5 `% X　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
* Z/ l& \+ j" c8 @5 h7 U1 e　　 MakeTable = tdata
End Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
7 H* p) I% T7 j% d# [4 b$ N5 ['***********************************************************
4 C* p; {  `: I' d$ Q- ^Public Sub draw()
　　 If dbg_Enabled Then
) n6 L9 c7 v# J! j　　　　 dbg_FinishTime = Now()
  
% i1 I6 Q8 }+ P3 E　　 Dim DivSet, x
& m7 w& i' t4 z. R0 r" {  u　　 DivSet = split(dbg_Show_default,",")
6 d: b$ v5 N0 \5 d7 j  z- Z　　   dbg_Show = split(dbg_Show,",")
  
9 q* O0 E7 D* \& A　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
8 C; L: u; I0 o) I/ w( a& h　　 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;"
% }9 a6 Y- _) C0 i0 @! M　　 Call PrintSummaryInfo(divSet(0))
6 N1 C3 C# u2 B( k2 y3 N5 a2 v$ L　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
) a: X5 x  R2 E3 L7 y, p4 k　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
6 X5 j) c& F2 ?1 S- R　　  Call PrintCookiesInfo(divSet(4))
* N  {; F9 T# B  b) f　　  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))
2 D- ^+ v% y" {! p　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
% Y& ~8 Y: g3 @; f( M! a　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
　　  Call PrintDatabaseInfo(divSet(8))
: w: M/ D1 K1 T; W& ^0 }　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
) g" l" u7 X$ i! h5 T' Z　　 End If
End Sub </P><>'Destructor
' U) ]! r' z5 a: [Private Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
& H" E* U) X; z3 K" O% DVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
, X( T/ S4 h( N8 Mbsp;
Property Get Enabled===[bool] Gets the "enabled" value
6 p' w: E8 {# v4 ]  
/ Z( |% A2 y0 X- f  F3 m) C/ c5 ~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
  
6 D: ^. E5 [+ vProperty Get Show===[string] Gets the debugging panel.
  
+ H4 O$ ?* \! |/ S7 B* F' jProperty 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><>--------------------------------------------------------------------------------
) `, N1 O! A8 X4 Y, nPublic Methods </P><>public sub===Print (label, output)
+ \( |8 O' j; m　　 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 ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
  
public sub===Print (label, output)
% }7 p5 b0 ~3 sParameters:  
: e' P$ [; X5 B; `　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
2 J4 a4 U2 n/ Q$ q  
public sub===GrabDatabaseInfo (byval oSQLDB)
* V& ?& k% q9 e: Z# ~Parameters:  
: D8 g+ j- V, G( j1 G8 Y2 A) ]　　 - oSQLDB [object]: connection-object</P>