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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
& H8 R$ W& T$ B<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
test.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
output="XXXX"
. P' v- L$ v3 g" z: i* |& ~Set debugstr = New debuggingConsole
debugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
　　 '……
　　 debugstr.draw
Set debugstr = Nothing
2 x* l$ {0 h( S7 Y; W, f! ^+ a%&gt; </P>
. ]! ^& ^- t" G% |2 f9 N* c% }+ e<>=================================================== </P>
<>debuggingConsole.asp </P>
5 p# i8 }. U& R/ m<>&lt;%
- I! K' _# z3 }8 S, P* A0 _Class debuggingConsole </P>
<>　　 private dbg_Enabled
" ?0 `: K3 K$ t　　 private dbg_Show
　　 private dbg_RequestTime
　　 private dbg_FinishTime
　　 private dbg_Data
& K9 ?4 A0 K; F( [0 ^3 |　　 private dbg_DB_Data
　　 private dbg_AllVars
* y" g8 K2 Q: g4 I9 L　　 private dbg_Show_default
! a; F5 Y# o9 @% @　　 private DivSets(2)
   
% ^2 [( [) L0 q5 e9 |" w; i'Construktor =&gt; set the default values
Private Sub Class_Initialize()
( K, c! S) n# c; {　　 dbg_RequestTime = Now()
　　 dbg_AllVars = false
: R. R% F$ o+ S　　 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>
% X7 _6 V. d* x0 u# [<>　　 DivSets(1) = "&lt;TR&gt;&lt;TD&gt;
! f& e" e, \6 w* ~$ w( N&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>
0 K( L8 p; U  O) Y% F  k7 L0 C<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
End Sub </P>
; Z& y4 H' f1 O<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
　　 dbg_Enabled = bNewValue
2 J3 p6 r9 p5 T6 Q; pEnd Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
& d; K+ v- i7 v. A6 fEnd Property </P>
4 A5 e, H0 _& u7 r2 L<>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
) W- ^2 A( S  k. [, Q　　 dbg_Show = bNewValue
End Property </P>
8 D) Q' Z; f  R<>ublic Property Get Show ''[string] Gets the debugging panel.
　　 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
' V$ F# C" e: kEnd Property </P>
( r1 I5 ?) k. h7 h<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
& _) o1 i; ]& \# S4 y8 o# N　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
''@PARAM:  - label [string]: Description of the variable
''@PARAM:  - output [variable]: The variable itself
7 a" g; R* X2 Q7 y2 ^% ]$ O, n5 k'***********************************************************
Public Sub Print(label, output)
! `1 J; l& g: c* r' `) W8 n' R　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
" ]1 [' D, Q; B) K　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
+ |# p0 s# ]. W% l6 Y1 O　　　　　　 err.Clear
8 I, j$ x, O+ j; x- m% H　　　　 else
  y  g' h2 t- O/ J0 s　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
# W; `- ~9 W4 T, R; V  R. L　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
　　 End If
End Sub
  
'***********************************************************
* h; V& |. @* w, l'* ValidLabel
'***********************************************************
3 G- ^0 b" X4 r8 [4 F! F, U+ hPrivate Function ValidLabel(byval label)
　　 dim i, lbl
　　 i = 0
　　 lbl = label
3 [. ]& S2 c) \$ T　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
  
　　 ValidLabel = lbl
End Function
  
# {; O/ c5 R/ Z7 h) ~, p'***********************************************************
'* PrintCookiesInfo
'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
$ V' R% G7 D9 r8 ~& p　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
$ `: W# ^1 A6 m5 \8 R8 p" k4 J3 z　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
　　 End If
　　 Next </P>
% w$ y# P# d% A! B9 L<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
+ @& C% X4 X' g; V  R　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
  g4 ~0 _* x+ \' V7 u' W' f　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  
'***********************************************************
'* PrintSummaryInfo
'***********************************************************
Private 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")
　　 tbl = AddRow(tbl, "Request Type",Request.ServerVariables("REQUEST_METHOD"))
　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
  z; m$ M* l: c) ^　　 tbl = MakeTable(tbl)
3 x; d/ Q% U, f# ?6 V$ k) S5 z8 B　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
# J3 n. M1 U8 A2 ?. `　　 Response.Write replace(tmp,"|", vbcrlf)
; t, c7 H- }9 t2 v7 `End Sub </P>
+ @& D& V* Q! A, {, H7 r( R' ~& T<>'***********************************************************
''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
2 H  V& B( N6 L) q0 F4 }''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
6 Q9 ]& i6 B6 {+ l- X8 KPublic Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
$ y1 q4 b8 h6 R' p# ^1 m# ]　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
% |6 ]. ]2 [: }0 d$ Y" {0 G5 ]　　 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"))
/ g: T- ]- N$ ?) R/ s6 L& M4 uEnd Sub <>'***********************************************************
'* PrintDatabaseInfo
'***********************************************************
  I8 t8 B; T$ A4 B) V$ _Private Sub PrintDatabaseInfo(byval DivSetNo)
5 i8 }/ d! D: V( i9 u6 n% \( ~　　 dim tbl
0 k6 ?, K+ _1 C: d　　 tbl = MakeTable(dbg_DB_Data)
% K$ t: ?4 W& C% X, T) P' M  N　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
$ l: d6 U7 D' s3 e　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
$ q. q0 u! }+ ]# ~5 S'* PrintCollection
'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
8 e. r) O4 m5 ^) d% ]2 [　　 Dim vItem, tbl, Temp
( M. B. W, |( I　　 For Each vItem In Collection
! l0 }0 K. s( g% w+ ~　　　　 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}")
　　　　 elseif isnull(Collection(vItem)) then
* H  w3 l" ]. N7 x% Z6 @　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
7 p+ p: ]' G! f% ~3 X　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
# f6 R) s! D5 R7 q0 Z) e( x- ^　　　　 else
. w- M! T5 ?: W3 P% k  g4 y　　　　　　 if dbg_AllVars then
, c, g3 x& H% ^& z　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
! E7 M5 E* q4 Z( l　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
5 ^$ ?5 l) ^: G2 _- r　　　　　　 if Collection(vItem) &lt;&gt; "" then
　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
　　　　　　 tbl = AddRow(tbl, vItem, "...")
　　　　　　 end if
4 a8 I  G0 ?# i: G& {0 Z　　　　 end if
　　 end if
# B. O! l" B* d, E3 Q* X　　 Next
# Z2 K. |3 }/ r/ r* |　　 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)
/ k! B' C) N$ L  G) I　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
6 g# s% a0 N! y3 j" S7 }　　　　 Response.Write replace(tbl,"|", vbcrlf)
: N# q: a! P; q6 lEnd Sub
$ T6 O: X. Y! W% P' ^# c  
'***********************************************************
'* AddRow
5 }9 _( U. U) `/ R0 k'***********************************************************
Private Function AddRow(byval t, byval var, byval val)
5 v$ K0 ~9 y; U* R0 [　　 t = t &amp; "|&lt;TR valign=top&gt;|&lt;TD&gt;|" &amp; var &amp; "|&lt;TD&gt;= " &amp; val &amp; "|&lt;/TR&gt;"
* ^$ K9 Z$ t9 R( ?　　 AddRow = t
End Function </P><>'***********************************************************
'* MakeTable
'***********************************************************
Private Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
3 @3 X! J3 l  k9 l! l' [5 L8 f( ?　　 MakeTable = tdata
End Function </P><>'***********************************************************
; ]& e1 R; L8 n3 _# A( A, n''@SDESCRIPTION: Draws the Debug-panel
'***********************************************************
Public Sub draw()
& v, }" {; |& D9 [/ c- m! q　　 If dbg_Enabled Then
　　　　 dbg_FinishTime = Now()
7 V5 B3 p5 [0 [; |, w  J  
　　 Dim DivSet, x
+ w  G% l8 d; [( G  H- A　　 DivSet = split(dbg_Show_default,",")
" Y0 b8 U  {/ A3 @3 F& G　　   dbg_Show = split(dbg_Show,",")
" z# v7 o9 s4 y, x) `, B; d7 {  
　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 Next
  
% }9 h8 l' ]- i　　 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),"")
; t* \( I: r! u  S; C　　  Call PrintCookiesInfo(divSet(4))
0 ~- ^5 n% z" b1 f5 w/ m　　  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 m- W; ?  y　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
" g+ j; r9 h1 z5 o8 w) i& J　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
　　  Response.Write "&lt;/Table&gt;"
+ c& B( c  ?' L: R5 O$ k( m　　 End If
End Sub </P><>'Destructor
Private Sub Class_Terminate()
0 Q4 b! ~) k% Z4 G7 S　　 Set dbg_Data = Nothing
* f8 V+ y( N; Y# \" v& i, m/ _) OEnd Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
4 k, N9 a; j* P" h, E- z& H: v& H  JCLASS debuggingConsole
9 M7 C$ d. M9 L0 ^( V; d' U4 p) D1 BVersion: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
' d- R+ g6 W+ O5 O' q- d&amp;n
! I7 ]# m# N# a- w  y* Cbsp;
Property Get Enabled===[bool] Gets the "enabled" value
% |* Z$ [/ q# `  
- ^' h; G) N; P( o$ I2 U: e1 wProperty 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.
  
# Q' L1 G- |5 ~, l/ rProperty 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)
/ B; [( d& A) ^+ ]　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
6 N1 L, M9 \- R* a! a3 a　　 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)
Parameters:  
5 j; s9 a+ r9 [7 v' b　　 - label [string]: Description of the variable
' l( B) c/ g, K4 B: g1 w　　 - output [variable]: The variable itself
2 |$ p- U! \; ^3 n  
public sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
' J, k4 U1 v) D$ o; c( M　　 - oSQLDB [object]: connection-object</P>