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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
0 h4 F$ Q# a9 Z7 M: z<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
6 ?4 M9 G' I' e/ f5 ctest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
5 v+ C" p9 i! t/ g+ g. koutput="XXXX"
! ~  T! _8 t9 O# f# I; L8 k4 BSet debugstr = New debuggingConsole
debugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
　　 '……
# {+ }- n7 U6 ^, b! X) X& G　　 debugstr.draw
: k+ h* u& P) p; {5 g& p) SSet debugstr = Nothing
%&gt; </P>
<>=================================================== </P>
4 e% Q$ \4 B# G4 h/ Q" P: o<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
1 ~5 k0 l, F% H. \  v& B- W<>　　 private dbg_Enabled
4 m' p: O* @8 B) A2 u1 \　　 private dbg_Show
　　 private dbg_RequestTime
5 @) X8 i# U8 B( i, P　　 private dbg_FinishTime
( I: O8 I8 b8 x* I% s　　 private dbg_Data
　　 private dbg_DB_Data
, a0 L  _: B# u7 P　　 private dbg_AllVars
4 Y5 ?) i  l5 X　　 private dbg_Show_default
% \1 \3 r- x6 [3 \( g7 X　　 private DivSets(2)
; U$ q& S6 e' g/ {, Z+ O   
'Construktor =&gt; set the default values
Private Sub Class_Initialize()
　　 dbg_RequestTime = Now()
  ~3 [" H$ i$ V% P　　 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>
8 E8 g2 Z4 C4 j9 L$ S, f<>　　 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>
4 d4 M( N1 \4 t1 x7 }<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
6 k5 C; w& j4 \3 j3 a% XEnd Sub </P>
2 e  a) }1 C# `9 C& f* `0 O: ]* m, O% X<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
: J: R" n6 B8 _! d5 U1 V% @　　 dbg_Enabled = bNewValue
End Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
/ h( x- ?' Q) q( W* r9 A　　 Enabled = dbg_Enabled
* [; D* x. _' @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
# @$ o" ?' I, I. V* O5 \6 ^　　 dbg_Show = bNewValue
2 l& @! {/ B; o6 T8 ^% [- _( oEnd Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 Show = dbg_Show
End Property </P>
, V6 J# F% V  {$ b<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
! y- G0 W0 Y' Z; c* y' U  |' v　　 dbg_AllVars = bNewValue
7 l4 q/ m/ y' T8 t' xEnd Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
　　 AllVars = dbg_AllVars
: ^9 j! C8 n! m- R9 L1 FEnd Property </P>
<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
1 K: K# _  h/ Q0 U'***********************************************************
Public Sub Print(label, output)
# I# U7 Q- i. U1 A" }2 a. l% x　　 If dbg_Enabled Then
# h, {5 R6 t: W8 h　　　　 if err.number &gt; 0 then
1 R) t, [% {( T　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
) }0 S! f' h: U. \* a. W- q- Z　　　　　　 err.Clear
　　　　 else
　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
, O; p% u+ q  O; p6 b8 M* Y$ Z3 C　　　　 end if
　　 End If
9 v4 \( M3 y6 Y7 O" i9 K4 qEnd Sub
: }4 o$ n: w* u7 b  
'***********************************************************
- `7 x# c5 @. v1 t'* ValidLabel
'***********************************************************
6 Z# \  W7 D. @( \9 F$ h3 l  z( MPrivate Function ValidLabel(byval label)
　　 dim i, lbl
& T+ {& ^6 [/ d7 j　　 i = 0
　　 lbl = label
　　 do
: {% c7 O/ [  q' B/ Z. D4 P! p　　 if not dbg_Data.Exists(lbl) then exit do
: G  _5 K# e7 E　　 i = i + 1
6 }5 `- t: j8 X　　 lbl = label &amp; "(" &amp; i &amp; ")"
0 p' z8 J: H. E8 r3 r" n　　 loop until i = i
3 e% t5 j  e# t. A/ o' o2 h# E0 }  
1 }* i% [  i: u' A$ p3 K* S　　 ValidLabel = lbl
6 ^1 u0 R+ ^# H9 A; X4 DEnd Function
0 f1 ^* s  t+ Q% `! O2 k5 H+ V0 `  
$ b" e  u- p$ z7 `6 i'***********************************************************
3 j" x' ?' U. A( ]1 b2 C( y'* PrintCookiesInfo
'***********************************************************
* Q0 y' F1 E$ K( APrivate Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
　　 For Each cookie in Request.Cookies
& D7 L" L6 G; B6 e* t$ n　　 If Not Request.Cookies(cookie).HasKeys Then
  ?' L. {" u, {, N) @1 D1 c　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
8 u5 G2 t& e$ n) k* }  K　　 Else
0 b" k% Y) v/ F8 d6 y/ s+ I　　　　 For Each key in Request.Cookies(cookie)
3 q7 t0 Y: C) |6 u8 w　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
5 Y6 |. N! A+ E" lCookies(cookie)(key))   
   Next
　　 End If
　　 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)
　　 Response.Write replace(tmp,"|", vbcrlf)
/ \+ Y' B1 M: u5 P1 y- j- p3 Hend sub
  
" P+ S7 B) t# h'***********************************************************
'* PrintSummaryInfo
'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
, N; v: f& z8 q1 K* E( _, ]0 D　　 dim tmp, tbl
1 N$ T9 g5 \+ {- V/ m　　 tbl = AddRow(tbl, "Time of Request",dbg_RequestTime)
4 m1 \0 i  w8 G7 d3 W　　 tbl = AddRow(tbl, "Elapsed Time",DateDiff("s", dbg_RequestTime, dbg_FinishTime) &amp; " seconds")
6 l9 X4 k) G: y% I6 f0 l　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
7 m6 w6 d/ `  r& }　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
' }, \' M4 z3 `　　 tbl = MakeTable(tbl)
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
, [5 V* S/ G" O: r$ Z1 T% p　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
<>'***********************************************************
) c4 _/ n0 j( Q- O" t$ m''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
Public Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
& n8 S7 K. P: {: h! e9 O　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
8 R8 g% |% U& K% k+ W　　 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 <>'***********************************************************
8 H+ |* N6 d% C) @( n6 |'* PrintDatabaseInfo
0 ~/ Z% d8 i  S' ^'***********************************************************
3 H* S' ~! R& {, d& [Private Sub PrintDatabaseInfo(byval DivSetNo)
　　 dim tbl
4 \% R9 S' \! x+ C　　 tbl = MakeTable(dbg_DB_Data)
+ F- z) c# p/ k4 N* q　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
- [# Y) n5 c1 ]$ S+ g, _End Sub </P><>'***********************************************************
'* PrintCollection
'***********************************************************
3 r& o0 H0 Q: H) @" b' n! y# YPrivate Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
* `$ T7 T$ W. P$ G8 [/ z　　 Dim vItem, tbl, Temp
　　 For Each vItem In Collection
6 k4 E9 M) B: L) [8 `　　　　 if isobject(Collection(vItem)) and Name &lt;&gt; "SERVER VARIABLES" and Name &lt;&gt; "QUERYSTRING" and Name &lt;&gt; "FORM" then
5 w. _9 B0 s" j+ V. p3 \　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
3 X' f) P2 Z% @% t5 h6 D　　　　 elseif isnull(Collection(vItem)) then
# y$ g! g. C( \. b# D9 l5 D' |, A" f　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
! K6 h, c, G& t3 L# r0 o8 A$ P1 U　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
- x* n0 z! Q6 M4 R0 m4 R7 K　　　　 else
　　　　　　 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
, D; ]' s8 _# Y8 u0 O, Z0 E　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
( N2 m/ b# B1 S0 s1 }* tEncode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
" @( D, C' N0 o5 C+ A/ U　　　　　　 else
" V- m% v5 a9 C" F9 Q- m　　　　　　 tbl = AddRow(tbl, vItem, "...")
& w6 D; y/ y, \. |) t　　　　　　 end if
　　　　 end if
　　 end if
7 D" @$ X" @  [0 D: Y0 F　　 Next
4 E) z' P4 c4 I$ R9 V1 o" J　　 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
: K/ J5 @% k+ u* V6 I* ^9 ^( s& F　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
  
3 o: M$ E  N9 j( y'***********************************************************
'* AddRow
1 K6 p2 m& L7 ~. T5 y'***********************************************************
: d; [0 _9 O" 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;"
2 Y% ~. B+ s/ i, d　　 AddRow = t
End Function </P><>'***********************************************************
'* MakeTable
, v+ G4 }6 {. P2 X, C( D; v'***********************************************************
Private Function MakeTable(byval tdata)
* R+ b5 B+ r& q+ N; H　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
' l# _- ?  g, @# ~7 E6 T　　 MakeTable = tdata
  H7 \. a! c: x! q- @End Function </P><>'***********************************************************
''@SDESCRIPTION: Draws the Debug-panel
3 ^' w$ o3 f4 @9 k  _" i% P. m' V'***********************************************************
Public Sub draw()
　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
$ N% C6 u( z  M4 _; |/ l  
4 q7 n# D# d, [3 }% _& g　　 Dim DivSet, x
5 Q1 i7 L5 W6 ]4 e) N3 h　　 DivSet = split(dbg_Show_default,",")
1 `; s% b& x) V' q　　   dbg_Show = split(dbg_Show,",")
# g' P& k! o$ l6 x' @8 O  
& l) V3 }4 v6 S- Z" Y　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
5 u# X4 Z  g5 P( W# i, a　　 Next
/ Z2 `* {. s3 S+ }( B; }  
0 m& z+ b9 C/ ?　　 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;"
4 I- c6 D) g4 ^/ X& S　　 Call PrintSummaryInfo(divSet(0))
# \. s; [$ {! W　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
  Z5 C7 i2 g( o0 l" |　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
0 T: `1 T- s' `3 a% {; v3 H/ E　　  Call PrintCookiesInfo(divSet(4))
/ M& n* B- M8 Z3 _　　  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),"")
1 b1 `' m9 c2 u  D　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
　　  Call PrintDatabaseInfo(divSet(8))
$ c, r6 D: \2 _" G8 V　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
, k5 N: n; z( E# f* Z3 o4 t　　  Response.Write "&lt;/Table&gt;"
& X6 h5 U1 @( X　　 End If
End Sub </P><>'Destructor
# }5 }- K! Q; q7 XPrivate Sub Class_Terminate()
　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
* s8 n8 @+ [' J! I: `4 m* UCLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
( p* w4 D9 S3 J&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
# X' d% f6 y# Y& ]5 O( e  
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
2 X1 H% ~6 S' F7 ^+ f  
% ^- U8 {7 Q" BProperty 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><>--------------------------------------------------------------------------------
+ ~7 x) A1 C6 {0 b3 q5 |Public Methods </P><>public sub===Print (label, output)
' r/ l) T8 h: _& S/ v. m0 ^% E/ F　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
+ u! t2 H1 Z1 R0 y2 \. m　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
& H: b3 _: Y! d6 i( u4 m, [* k　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
  
public sub===Print (label, output)
! I( s; L( l9 Z2 I/ JParameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
/ k7 }2 J3 V8 r0 Z  
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
　　 - oSQLDB [object]: connection-object</P>