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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
- O+ C8 F5 s9 Q9 `2 V8 ]3 F<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
. g2 x6 y% j" U使用方法很简单：
test.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
2 d" u1 T: ?, @&lt;%
4 f6 }. k$ i! `3 g" u6 woutput="XXXX"
Set debugstr = New debuggingConsole
8 s& Z: n* G6 _6 odebugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
　　 '……
　　 debugstr.draw
7 u8 V$ U" y. v  B1 }1 ?Set debugstr = Nothing
) _% d# b, N- u/ K5 Y. B7 W%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
2 h8 T# h  n* k. S& |  B( o! T' u1 O# n<>&lt;%
Class debuggingConsole </P>
; L# B7 u7 g: H) ~/ x* S, G<>　　 private dbg_Enabled
9 w/ K" O/ L$ a- j& |( G　　 private dbg_Show
! L; ~5 W! L$ k. m3 z$ j- d& ]　　 private dbg_RequestTime
( T1 o* T+ R% d/ q# H0 \" A　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
　　 private dbg_AllVars
　　 private dbg_Show_default
3 N- y+ t9 V) m/ P　　 private DivSets(2)
+ B; P* c% U1 f% ?, {( k1 [   
'Construktor =&gt; set the default values
) [0 F2 h: m' h% dPrivate Sub Class_Initialize()
3 T7 k0 h# W2 F2 p: a! o3 K　　 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;
) d% e1 F2 Q- C+ e+ e* V&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>
<>　　 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>
" z( i+ ]: I. s8 u$ z5 [5 q<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
  Y( Y6 k$ Z- f7 Q, H0 |End Sub </P>
6 t8 |8 W% e! |2 T<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
6 C. r8 r# i. H; d0 r' S　　 dbg_Enabled = bNewValue
End Property </P>
2 M( @: U7 L: F  z# c! O<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
/ }) Q8 ]  k8 ?" V' M/ f7 uEnd 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
0 D$ ^; u5 P, \, z" L& d6 J3 m. U& |　　 dbg_Show = bNewValue
: b7 P1 I4 u  S! gEnd Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
5 t1 x+ `( F' W0 v& Y$ r　　 Show = dbg_Show
End Property </P>
<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
* x8 l) R* ~! g1 M7 k9 gEnd Property </P>
3 ]& a" [7 n- v% A<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
% C5 |3 \; @3 I& g6 \, ?　　 AllVars = dbg_AllVars
( r8 I& Y* y$ v; T1 d, mEnd Property </P>
<>'***********************************************************
4 k( I4 ?& K+ a+ z. Z1 ~$ C) I' B2 b''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
4 l- r8 V4 X3 ]; {. V( {$ G5 D''@PARAM:  - output [variable]: The variable itself
+ u) O6 i( n) _'***********************************************************
0 Y$ c, b+ ?6 mPublic Sub Print(label, output)
; Y5 X! S, F: {+ z6 I　　 If dbg_Enabled Then
% x$ J+ |/ g: O# [9 K  d( N% r! C- m　　　　 if err.number &gt; 0 then
　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
　　　　　　 err.Clear
　　　　 else
# o6 `) k; ]1 {3 F" D3 ]+ [　　　　　　 uniqueID = ValidLabel(label)
+ L4 C# a* r$ U, M" ]) \6 ]# {0 C. N6 ~　　　　　　 response.write uniqueID
$ a; k: ^9 N4 P% h& ]  F  o　　　　　　 call dbg_Data.Add(uniqueID, output)
) ^7 }5 Z! L1 [　　　　 end if
　　 End If
" t. b9 q% E. C' p* H7 t7 ~- B/ v1 r& zEnd Sub
/ l; N0 y' K. e; y  
- q$ G0 {+ P! R'***********************************************************
'* ValidLabel
9 J3 L1 d2 d6 P  L: ~'***********************************************************
Private Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
1 Y0 p, U$ c2 V: x9 V　　 lbl = label
5 a4 N# M. B& t1 G0 ?4 q) M, Y　　 do
* o; o) V4 M! q/ Y8 g　　 if not dbg_Data.Exists(lbl) then exit do
1 N( v' Q; r8 Z8 P　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
7 E, j7 c' S  d　　 loop until i = i
  
/ L, @) D, [8 ^　　 ValidLabel = lbl
0 b# I# ]8 W# U7 r  bEnd Function
  
'***********************************************************
6 [, b) n9 J) m* ^% k'* PrintCookiesInfo
'***********************************************************
! {& m: }2 I( L8 P* CPrivate Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
- ?# T+ c, C4 m  i7 {; T$ H, }　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
6 P' t) H/ G2 Y1 y- a6 `3 o　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
/ r! K" a( }' [　　 Else
　　　　 For Each key in Request.Cookies(cookie)
# t2 d4 {% |* c6 @3 Q　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
　　 End If
　　 Next </P>
<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
+ o+ A" E, s5 g% R, {& [. p: r/ }　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
& e2 e9 c6 Y: g. L7 W% w5 J( U8 y　　 Response.Write replace(tmp,"|", vbcrlf)
) ]' z; X- a- p1 a; D& `end sub
  
" q4 ?( j$ a& l) z'***********************************************************
'* PrintSummaryInfo
: \, h8 \: A) V$ N& b, y/ x'***********************************************************
& h" p, L1 R/ j/ \3 o9 G6 U7 B; lPrivate Sub PrintSummaryInfo(byval DivSetNo)
! |; L4 w9 ~& f( v" U6 s  ~　　 dim tmp, tbl
  @# o. k6 X0 k/ N9 A, `　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
( u6 i  ^" o# F* f　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
　　 tbl = AddRow(tbl, "Status Code",Response.Status)
: t, @9 h0 z* G& h8 F( u　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
9 h  C" v: a/ T+ q8 i! D5 G0 e　　 tbl = MakeTable(tbl)
$ Z/ U  ?$ K: m% V　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
! t8 `) D# ]# w4 ]. E* z0 WEnd Sub </P>
1 ~5 K3 N" X. P0 i<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
: F; W  y% ^6 o# S'***********************************************************
Public Sub GrabDatabaseInfo(byval oSQLDB)
/ f9 B7 H: c9 t) ]' K  ?　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
6 V( Q0 l% c3 k' ~　　 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"))
) a# V! m9 k3 ]　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
End Sub <>'***********************************************************
'* PrintDatabaseInfo
'***********************************************************
$ F7 V& k* D* Z5 dPrivate Sub PrintDatabaseInfo(byval DivSetNo)
% W; C6 P, x$ `$ ?　　 dim tbl
  R' C! q) K9 j3 Q: h* O. [　　 tbl = MakeTable(dbg_DB_Data)
, I8 C. a$ G; f, w　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
'* PrintCollection
7 u5 F+ \6 ?& R7 R4 ['***********************************************************
$ E2 j, X  I( x4 F) s* p: Z. ]/ APrivate Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
3 J1 G4 @  j+ t. g# `# e　　 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}")
% l$ _  h  B2 U8 b* S: e　　　　 elseif isnull(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
$ c8 x# K: a& f8 d1 x　　　　 else
　　　　　　 if dbg_AllVars then
　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
3 K, q: M9 K4 g* Y0 H! G! Y. a  i　　　　 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
6 x+ z" d. k- g+ W3 `/ ]* q5 h　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
: f5 U/ x) g: K　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
- V; g+ d" v" ~+ {% T　　　　　　 end if
　　　　 end if
/ C# U' j! S/ Z. V+ k. f- m; v　　 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
8 d* [5 x  B4 e/ g+ g　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
. h4 L* ^! a  d0 j# S+ j0 d) m  
'***********************************************************
'* AddRow
'***********************************************************
. i( E  c4 V! l- v1 x0 cPrivate 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;"
( L. I  e. i) ]# W% k  D　　 AddRow = t
End Function </P><>'***********************************************************
. Z1 [4 ~# s; a: t) M' E'* MakeTable
: U  l& f/ _( Y* R4 k2 R'***********************************************************
# R# K5 d( L7 W" n: x) TPrivate Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
% W% M0 `9 }" w- c" ^& J5 B" x8 s4 MEnd Function </P><>'***********************************************************
6 k2 b: {) d* Q" T# ~+ v: r''@SDESCRIPTION: Draws the Debug-panel
( t! L) m/ B1 f+ q9 z/ y9 Y1 E1 q'***********************************************************
3 R0 _  T' z2 S9 a) EPublic Sub draw()
1 f, i9 w2 O) z8 a$ Q7 v+ j6 B/ F) E　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
. |1 i. X$ b8 R3 r' E* n  
( m. Z; \/ K+ i: C　　 Dim DivSet, x
1 s9 t; r, e, h9 E4 Q1 s, T2 e　　 DivSet = split(dbg_Show_default,",")
　　   dbg_Show = split(dbg_Show,",")
* b- G0 r( i7 m# Z) C  s  
　　 For x = 0 to ubound(dbg_Show)
: H% ^1 R$ S' b6 s4 v　　　　 divSet(x) = dbg_Show(x)
　　 Next
5 P+ m1 }6 H4 e( @2 s5 q  
　　 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),"")
　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
- }5 j$ r7 h6 Y' a　　  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))
9 O9 N5 W- s8 z+ k' \6 S　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
　　  Call PrintDatabaseInfo(divSet(8))
4 V, t" y2 F1 e& E5 Q% U- o7 {　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
7 d9 F1 b2 K4 e0 a  V/ I　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
4 y* M8 e" v2 }1 Y9 O　　 End If
End Sub </P><>'Destructor
9 ]; ]4 E9 U4 ?. x) E+ HPrivate Sub Class_Terminate()
　　 Set dbg_Data = Nothing
( e" D8 Z+ z! f) T6 W3 }$ G5 bEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
( r7 P: z& o" e, n+ yCLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
0 N( t! f3 m  v&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
9 C  S# X- R5 h; ~  
Property Get Show===[string] Gets the debugging panel.
3 J. Z7 A' k" M, f5 q  
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 ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
  
- z! ?3 w* y5 z/ m: z, P( ypublic sub===Print (label, output)
/ @6 X: j0 n- \$ {1 G" d. ?4 _7 @Parameters:  
8 W( z0 ~1 v, A! @3 C2 a" o! g　　 - label [string]: Description of the variable
/ r8 [  e, L' U5 a8 w　　 - output [variable]: The variable itself
  
public sub===GrabDatabaseInfo (byval oSQLDB)
: I6 e4 ^5 |) }7 Q5 C- B# VParameters:  
　　 - oSQLDB [object]: connection-object</P>