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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
使用方法很简单：
* L3 b- s+ u2 l7 m6 O" C# Dtest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
&lt;%
& ~' G2 D6 G! w2 zoutput="XXXX"
# V- l/ t5 w: L$ xSet debugstr = New debuggingConsole
# i- m4 u9 Z6 Xdebugstr.Enabled = true
　　 debugstr.Print "参数output的值", output
2 o* @0 H5 L/ Z+ E/ n　　 '……
　　 debugstr.draw
Set debugstr = Nothing
+ `. j; ^6 j2 E8 x9 a! u  P* U%&gt; </P>
& U1 E: C6 b" y- O7 R' X<>=================================================== </P>
<>debuggingConsole.asp </P>
<>&lt;%
: s4 r2 ?$ N0 }% c* A, p- ^Class debuggingConsole </P>
! q& w! B4 c5 H  t( n<>　　 private dbg_Enabled
" J% i+ m3 |* n+ ]) u; {: ?　　 private dbg_Show
, A2 I& p3 W9 J6 S6 `4 r　　 private dbg_RequestTime
　　 private dbg_FinishTime
2 V9 l+ \/ f9 |( \3 y( }8 G/ C6 S8 r　　 private dbg_Data
' {; ?6 s8 Z7 s4 d- x# M　　 private dbg_DB_Data
　　 private dbg_AllVars
3 z: J; n) b/ e8 [& J( J　　 private dbg_Show_default
　　 private DivSets(2)
   
; q. V& L! h6 y'Construktor =&gt; set the default values
Private Sub Class_Initialize()
  v: _7 ?% \# X　　 dbg_RequestTime = Now()
* O# E. W, h" }. N% F/ B" M　　 dbg_AllVars = false
2 N0 G) [8 u/ K9 W5 ]5 o　　 Set dbg_Data = Server.CreateObject("Scripting.Dictionary") </P>
9 }+ [2 @7 x: J9 ?5 t<>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;
3 E0 B- S7 e3 N! _' r&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>
3 X# U9 y) H7 L: 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>
+ _' {4 c( d6 Z* E' Z<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
1 v  K( N% {, v8 A# L2 tEnd Sub </P>
0 E& \5 S' q) T$ o+ n8 A<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
! s8 k# _7 C, L5 r& H. X3 o' m  t. b　　 dbg_Enabled = bNewValue
/ _) I5 s- q5 _. Z# t7 _* aEnd Property </P>
/ e! [, l# [, F# _' G" v  H% |<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
　　 Enabled = dbg_Enabled
End Property </P>
$ y' `1 G5 v; n1 R  @<>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
6 X4 X; @% d/ n　　 dbg_Show = bNewValue
End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
* G: O4 \( N& z) |, b4 l3 U, s( k　　 Show = dbg_Show
' R. A5 t, j. o6 Z' ?# i% w$ |3 e. fEnd Property </P>
<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
　　 dbg_AllVars = bNewValue
: [/ l7 c0 Q, X' |+ UEnd Property </P>
" S! |( l* P6 p! f/ ^6 e8 I<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
0 H0 F4 o: J8 ^( F: A  K　　 AllVars = dbg_AllVars
End Property </P>
<>'***********************************************************
, K( k  Y3 ^8 t1 {$ a''@SDESCRIPTION: Adds a variable to the debug-informations.
0 W/ `& t3 u$ w( S''@PARAM:  - label [string]: Description of the variable
- u( p) f+ v5 p1 G' X( Y( ~''@PARAM:  - output [variable]: The variable itself
! l" f6 J9 v) o'***********************************************************
4 z. T  X& |" t: F$ Z- qPublic Sub Print(label, output)
　　 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
, P9 x% Y0 P9 S. \　　　　 else
5 o0 \/ O: I% }* K- @/ ^　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
& X9 w' x$ F9 F: S　　　　　　 call dbg_Data.Add(uniqueID, output)
( L  k8 `. n5 p. C! y, O' ?' d) y5 j' z　　　　 end if
　　 End If
End Sub
+ x: U" G+ [$ z. c6 E  [) X  
'***********************************************************
'* ValidLabel
8 A7 Z  s* K* M& p$ f- H8 ]'***********************************************************
1 E) z! w8 p, r& O6 iPrivate Function ValidLabel(byval label)
$ q, U, \, H  Z0 I5 _2 t2 |　　 dim i, lbl
: M+ v  U5 p: k1 Y　　 i = 0
7 I" s2 P5 x# T% o& Z3 y　　 lbl = label
* |5 ^2 M' w. F8 n- W2 q* g　　 do
　　 if not dbg_Data.Exists(lbl) then exit do
9 B# ~/ ~7 |2 z8 w　　 i = i + 1
' \2 F/ Q1 z0 V  U$ P# s7 B; o　　 lbl = label &amp; "(" &amp; i &amp; ")"
　　 loop until i = i
2 M5 @& G. d2 t( v% l: n  
　　 ValidLabel = lbl
End Function
  
" b! y: z8 P! g0 V" E/ w* d5 f& D) N- ['***********************************************************
  {* V9 \; u# {) Q) S'* PrintCookiesInfo
'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
! J7 P) i' G- S　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
　　　　 For Each key in Request.Cookies(cookie)
. K! ]1 s; ]  |) W8 D　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
　　 End If
' Q0 e2 e+ h& Z; B3 ^　　 Next </P>
) J. W8 k: w' {+ l<>　　 tbl = MakeTable(tbl)
　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
9 G' q, Y; ~+ g　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
  
'***********************************************************
1 l- Y  ]3 t$ h" G/ h'* PrintSummaryInfo
! \3 [  o. Z: Z) O/ N. F$ V'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
0 o& |9 u7 N  q5 L5 h' C　　 dim tmp, tbl
3 G* f: b% o3 E5 q　　 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"))
( A) T$ `4 B& Z2 E/ H6 G8 ]3 c　　 tbl = AddRow(tbl, "Status Code",Response.Status)
　　 tbl = AddRow(tbl, "Script Engine",ScriptEngine &amp; " " &amp; ScriptEngineMajorVersion &amp; "." &amp; ScriptEngineMinorVersion &amp; "." &amp; ScriptEngineBuildVersion)
　　 tbl = MakeTable(tbl)
8 E( f$ i( Z: [' C: T) s　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
* b( F# e% S8 a5 v9 k$ d: m　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
<>'***********************************************************
5 H8 w) y1 ~1 y5 S' w* P$ c''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
( H2 H4 c( l' @% o4 f. m''@PARAM:  - oSQLDB [object]: connection-object
) H* Z1 B& T; o'***********************************************************
7 Z8 z. R2 l( q& N7 ]+ xPublic Sub GrabDatabaseInfo(byval oSQLDB)
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
. a8 d6 }4 d# {7 h8 M7 L　　 dbg_DB_Data = AddRow(dbg_DB_Data, "OLEDB Ver",oSQLDB.Properties("OLE DB Version"))
4 |/ T5 K; N( @; z- f% D) c　　 dbg_DB_Data = AddRow</P>

韩冰

(dbg_DB_Data, "DBMS",oSQLDB.Properties("DBMS Name") &amp; " Ver: " &amp; oSQLDB.Properties("DBMS Version"))
& J( ?1 I& [6 ~1 T, ^% w& b6 w: U　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
End Sub <>'***********************************************************
'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
/ `$ Y8 ^4 W0 `3 C4 D4 E　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
; B; I2 ^- p8 P" G* P+ o( ]　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
; q! k3 y# Z) U* N& i- u& M3 k2 m　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
'* PrintCollection
$ P6 [* a3 O% ['***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
　　 Dim vItem, tbl, Temp
8 i# J3 O1 Y; t! }0 }) L$ b　　 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
$ C1 [9 P- \/ @6 Q, [( c6 w　　　　　　 tbl = AddRow(tbl, vItem, "{object}")
9 r& {; V% m# o' J) }　　　　 elseif isnull(Collection(vItem)) then
9 _) T, s7 M& N! f6 H8 s　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
　　　　 elseif isarray(Collection(vItem)) then
0 l" D7 z& {4 |# F9 Q　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
' a# V; B0 x- i. t7 t, a# f　　　　 else
　　　　　　 if dbg_AllVars then
- w: s$ p( |7 z; z) f　　　　　　 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
　　　　　　 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
' h* @9 j& M0 F! A: C, \4 ~　　　　 end if
0 B& h( i! S, U  P- w9 [. v4 E　　 end if
　　 Next
$ J& U$ Z' Q' ]　　 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( n* C( l/ K7 `8 `4 L6 U　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
# @( x+ E5 h* f9 H　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
  
'***********************************************************
'* AddRow
'***********************************************************
% ^  v) F4 s/ c4 mPrivate Function AddRow(byval t, byval var, byval val)
# w( F7 G2 o- U1 U: V3 H　　 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
# ^% r) p& M+ y* P% j6 {'***********************************************************
7 X" b9 z0 Z  e' qPrivate Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
End Function </P><>'***********************************************************
  J6 Q/ D, `3 H+ X6 T''@SDESCRIPTION: Draws the Debug-panel
. U9 x$ E7 c5 f5 A' P'***********************************************************
Public Sub draw()
　　 If dbg_Enabled Then
$ |# V3 S# ^9 p% [　　　　 dbg_FinishTime = Now()
  
　　 Dim DivSet, x
( D) z4 J* n+ P' V5 L! u: @　　 DivSet = split(dbg_Show_default,",")
2 q7 j) `' E* H6 N& @8 L　　   dbg_Show = split(dbg_Show,",")
  
　　 For x = 0 to ubound(dbg_Show)
　　　　 divSet(x) = dbg_Show(x)
　　 Next
, \( M5 I* O( ?* A) X2 H' W# {  
+ j! r! a! `0 ^- s/ q6 N　　 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))
; {* W6 g5 U3 _" U% G5 {) Q# r0 ^- c　　   Call PrintCollection("VARIABLES", dbg_Data,divSet(1),"")
　　  Call PrintCollection("QUERYSTRING", Request.QueryString(), divSet(2),"")
- o( z& a& D6 E　　  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))
　　  Call PrintDatabaseInfo(divSet(8))
( [) ~& P2 Q8 {" r# |- d　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
( T8 {: z: d- X: a  ^5 q' k　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
$ t3 m- P+ v& L! Q9 D　　  Response.Write "&lt;/Table&gt;"
' T, O3 o* R/ S& @! |) p& s2 t　　 End If
End Sub </P><>'Destructor
4 V' z, {$ f4 k' P" Q1 s+ ePrivate Sub Class_Terminate()
) w/ S  B5 x4 J; F9 S1 M) d　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
2 v+ \4 q% z. ^% J" f/ A! h1 VCLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
! V& o; S* V$ N* x( k6 p- |" Tbsp;
Property Get Enabled===[bool] Gets the "enabled" value
  
+ E8 j* ^5 G2 e1 g. Q: UProperty 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
3 ?; S0 T0 G0 F8 M  
1 c, p5 H( `$ V/ `: JProperty 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><>--------------------------------------------------------------------------------
Public Methods </P><>public sub===Print (label, output)
　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
1 [. o, R4 V9 M* x  `　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
7 C9 U* e5 e7 z5 {9 E9 ]　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
Methods Detail
# D5 |5 q5 k6 u- Z* p  
public sub===Print (label, output)
Parameters:  
　　 - label [string]: Description of the variable
　　 - output [variable]: The variable itself
  
7 r! M; {1 }# Rpublic sub===GrabDatabaseInfo (byval oSQLDB)
Parameters:  
# g6 n' W, F* ]$ i! K　　 - oSQLDB [object]: connection-object</P>