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

韩冰

<>不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！ </P>
<>今天看到一个ASP中的Debug类（VBS），试用了一下，绝！
& K, f9 w5 [" X4 ?4 y4 F/ w使用方法很简单：
+ R1 @, W/ d; c" H1 X+ k7 wtest.asp </P>
<>&lt;!--#INCLUDE FILE="debuggingConsole.asp"--&gt;
% ?, \) A( a: \&lt;%
output="XXXX"
" r3 x+ L9 y" m& w6 j5 ESet debugstr = New debuggingConsole
debugstr.Enabled = true
- v) q) H' ?1 j7 Q! k0 R* `( a+ ~　　 debugstr.Print "参数output的值", output
% _2 O  z/ M( z" A7 p　　 '……
: E5 ]4 m- k/ S　　 debugstr.draw
4 r1 u2 j; Y# K1 ~2 N; RSet debugstr = Nothing
! P, c  B3 L- W7 x%&gt; </P>
<>=================================================== </P>
<>debuggingConsole.asp </P>
<>&lt;%
Class debuggingConsole </P>
' S" E; p$ a+ C* t" ~7 ?<>　　 private dbg_Enabled
4 @7 f* C" ^! G: i/ {! K0 L　　 private dbg_Show
- s' I+ R/ v7 I4 M4 ?% Q* _$ `　　 private dbg_RequestTime
$ Z( Y# C0 T  Q) [2 L( t　　 private dbg_FinishTime
　　 private dbg_Data
　　 private dbg_DB_Data
- B5 ]% R" @9 c1 N& k3 {　　 private dbg_AllVars
9 a( C5 T) F! V* e" X: e　　 private dbg_Show_default
; c" h2 a9 ]8 B9 {  T　　 private DivSets(2)
   
- |. V. _! `: T; j'Construktor =&gt; set the default values
% ?0 R3 c. R& o$ v( APrivate Sub Class_Initialize()
+ N6 ^$ A& L) S9 M　　 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;
! s5 n/ ?  G1 I; @! }1 b: g! 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>
<>　　 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 I  v  U5 E0 K0 u, n<>　　 dbg_Show_default = "0,0,0,0,0,0,0,0,0,0,0"
; y$ F* |0 D! h0 ~5 _9 XEnd Sub </P>
<>ublic Property Let Enabled(bNewValue) ''[bool] Sets "enabled" to true or false
$ d- M  ]. X4 z" b* }6 R, g; J: A　　 dbg_Enabled = bNewValue
3 W& B7 G( U7 S$ T7 J' `1 SEnd Property </P>
<>ublic Property Get Enabled ''[bool] Gets the "enabled" value
5 d9 Q7 g" T# c7 Q1 a　　 Enabled = dbg_Enabled
1 A) n6 J: P& A" q# qEnd Property </P>
  v* I3 k. }) c* y<>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
End Property </P>
<>ublic Property Get Show ''[string] Gets the debugging panel.
8 a, k2 {% c; n9 @8 t- c+ [3 F5 p. h　　 Show = dbg_Show
6 d9 I) V) A8 \. ~4 V. |; m: c# ?End Property </P>
<>ublic Property Let AllVars(bNewValue) ''[bool] Sets wheather all variables will be displayed or not. true/false
% W* }. ]9 U/ p1 C" V$ L3 U8 X　　 dbg_AllVars = bNewValue
End Property </P>
<>ublic Property Get AllVars ''[bool] Gets if all variables will be displayed.
( ]  D3 Y" ~" i　　 AllVars = dbg_AllVars
9 o* M- K- s! L* K( |8 I6 mEnd Property </P>
5 N3 L' n$ P/ h$ N, O<>'***********************************************************
''@SDESCRIPTION: Adds a variable to the debug-informations.
6 ^+ F- i2 x+ c# |''@PARAM:  - label [string]: Description of the variable
  j/ J$ s2 `" b' z+ i6 S''@PARAM:  - output [variable]: The variable itself
'***********************************************************
Public Sub Print(label, output)
. O  X. X* t9 V" b! S　　 If dbg_Enabled Then
　　　　 if err.number &gt; 0 then
2 s" a9 Q! G; `( z, T# v- g　　　　　　 call dbg_Data.Add(ValidLabel(label), "!!! Error: " &amp; err.number &amp; " " &amp; err.Description)
, V' F; U+ P/ g7 K8 A! P" }　　　　　　 err.Clear
8 W- M& c( w' e0 ]% O　　　　 else
' P( ]+ b6 R7 a" ]8 b3 S" ?　　　　　　 uniqueID = ValidLabel(label)
　　　　　　 response.write uniqueID
　　　　　　 call dbg_Data.Add(uniqueID, output)
　　　　 end if
5 T" r2 `! D. h3 y: c. q　　 End If
. M, H9 i0 ~3 w) T; X0 qEnd Sub
- t' n) f  ~" u4 x/ f: o" t  
'***********************************************************
/ J( E  @/ t& S' z4 L: I'* ValidLabel
6 S: I8 U9 V: x3 `  P# [" ]: s'***********************************************************
, d) ~  Z# @! W' vPrivate Function ValidLabel(byval label)
. i+ W! ~( C- z, n0 u  z　　 dim i, lbl
　　 i = 0
　　 lbl = label
　　 do
3 j2 Z% {: S- I4 ^# K+ \　　 if not dbg_Data.Exists(lbl) then exit do
4 \: W/ m# b; }# w8 H& H  J# B　　 i = i + 1
　　 lbl = label &amp; "(" &amp; i &amp; ")"
* E: n' o2 o4 r$ D" F& z　　 loop until i = i
' {/ u7 P7 O+ t9 {; V9 P" W& H  
6 p6 y: t" W3 K% w　　 ValidLabel = lbl
End Function
3 H) o( U& ^6 q. @3 G5 y  
# f9 ?1 a$ t, M$ W# e* F'***********************************************************
/ Z. L0 Z/ h( S! |" f' \. z'* PrintCookiesInfo
; I" x7 [7 z1 K5 z/ P7 Q. h'***********************************************************
Private Sub PrintCookiesInfo(byval DivSetNo)
　　 dim tbl, cookie, key, tmp
7 T; @; p- Z2 x2 I5 e+ \3 i9 t　　 For Each cookie in Request.Cookies
　　 If Not Request.Cookies(cookie).HasKeys Then
; Q  s8 F1 F  m　　　　 tbl = AddRow(tbl, cookie, Request.Cookies(cookie))   
　　 Else
　　　　 For Each key in Request.Cookies(cookie)
　　　　 tbl = AddRow(tbl, cookie &amp; "(" &amp; key &amp; ")", Request.
Cookies(cookie)(key))   
   Next
1 r$ h7 }3 U2 T% ^　　 End If
　　 Next </P>
<>　　 tbl = MakeTable(tbl)
5 b1 o4 s7 T, t( H* {　　 if Request.Cookies.count &lt;= 0 then DivSetNo = 2
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","COOKIES"),"#title#","COOKIES"),"#data#",tbl)
2 ~! G4 d" \5 u　　 Response.Write replace(tmp,"|", vbcrlf)
end sub
# Z, a$ O9 A; P  
, y" P4 o, y# i# x# p9 }" I# j" }9 ]'***********************************************************
, t0 n! Q. V7 t% i'* PrintSummaryInfo
'***********************************************************
Private Sub PrintSummaryInfo(byval DivSetNo)
& I  f. g" }0 o　　 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"))
5 l3 x& K4 @/ c. U5 O6 k! T( u　　 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)
　　 tmp = replace(replace(replace(DivSets(DivSetNo),"#sectname#","SUMMARY"),"#title#","SUMMARY INFO"),"#data#",tbl)
　　 Response.Write replace(tmp,"|", vbcrlf)
End Sub </P>
5 Q5 u; K* u7 y- _! v<>'***********************************************************
  E5 Q. z( S' B$ z" i''@SDESCRIPTION: Adds the Database-connection object to the debug-instance. To display Database-information
''@PARAM:  - oSQLDB [object]: connection-object
'***********************************************************
  u2 X! C, P4 R. C; ]  [. @Public Sub GrabDatabaseInfo(byval oSQLDB)
7 z4 x9 \3 ~' `3 W: K: X' D8 t9 ^　　 dbg_DB_Data = AddRow(dbg_DB_Data, "ADO Ver",oSQLDB.Version)
　　 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"))
　　 dbg_DB_Data = AddRow(dbg_DB_Data, "rovider",oSQLDB.Properties("rovider Name") &amp; " Ver: " &amp; oSQLDB.Properties("rovider Version"))
* i0 Z4 g0 A$ \+ KEnd Sub <>'***********************************************************
8 Q- p% l- f( B% v! _1 T'* PrintDatabaseInfo
'***********************************************************
Private Sub PrintDatabaseInfo(byval DivSetNo)
7 H) a  T' F3 Q1 t/ k8 T) E　　 dim tbl
　　 tbl = MakeTable(dbg_DB_Data)
　　 tbl = replace(replace(replace(DivSets(DivSetNo),"#sectname#","DATABASE"),"#title#","DATABASE INFO"),"#data#",tbl)
　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub </P><>'***********************************************************
'* PrintCollection
'***********************************************************
Private Sub PrintCollection(Byval Name, ByVal Collection, ByVal DivSetNo, ByVal ExtraInfo)
& a3 x& F: b( Y* n　　 Dim vItem, tbl, Temp
　　 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}")
5 p9 J- ]1 t9 p$ b　　　　 elseif isnull(Collection(vItem)) then
' x) R: P1 \  {# m8 ^0 ]　　　　　　 tbl = AddRow(tbl, vItem, "{null}")
: P4 J" j: [) v% u　　　　 elseif isarray(Collection(vItem)) then
　　　　　　 tbl = AddRow(tbl, vItem, "{array}")
　　　　 else
2 g9 g4 L- {8 q9 \: X& W& `! n; y　　　　　　 if dbg_AllVars then
/ ]' k9 N3 }+ C' x) Y　　　　　　 tbl = AddRow(tbl, "&lt;nobr&gt;" &amp; vItem &amp; "&lt;/nobr&gt;", server.HTMLEncode(Collection(vItem)))
+ e  R- A; N( e0 F. e: l　　　　 elseif (Name = "SERVER VARIABLES" and vItem &lt;&gt; "ALL_HTTP" and vItem &lt;&gt; "ALL_RAW") or Name &lt;&gt; "SERVER VARIABLES" then
6 L# O( |  s# \3 K9 M　　　　　　 if Collection(vItem) &lt;&gt; "" then
; M& j- @/ S& F! }' Q　　　　　　 tbl = AddRow(tbl, vItem, server.HTML
Encode(Collection(vItem))) ' &amp; " {" &amp; TypeName(Collection(vItem)) &amp; "}")
　　　　　　 else
4 a2 i# }4 q) t8 P　　　　　　 tbl = AddRow(tbl, vItem, "...")
2 X% P1 Q# |, T: c4 j　　　　　　 end if
　　　　 end if
' j& {/ [* \  f2 X+ t　　 end if
　　 Next
% a; k5 D# t2 P5 s3 o　　 if ExtraInfo &lt;&gt; "" then tbl = tbl &amp; "&lt;TR&gt;&lt;TD COLSPAN=2&gt;&lt;HR&gt;&lt;/TR&gt;" &amp; ExtraInfo
, q/ O3 j5 U) X　　 tbl = MakeTable(tbl)
- e) d7 c9 a. l* [　　 if Collection.count &lt;= 0 then DivSetNo =2
　　　　 tbl = replace(replace(DivSets(DivSetNo),"#title#",Name),"#data#",tbl)
4 u- @% K! V% `- A8 Z0 v　　　　 tbl = replace(tbl,"#sectname#",replace(Name," ",""))
+ i. H9 E& R1 s$ x　　　　 Response.Write replace(tbl,"|", vbcrlf)
End Sub
3 {+ @6 C. W) D2 w  
' S# o; a" }8 P'***********************************************************
'* AddRow
'***********************************************************
2 T3 j5 P' m! G8 c# w4 IPrivate Function AddRow(byval t, byval var, byval val)
5 b% n7 n8 }% r6 I6 w7 R　　 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
" t4 j$ I3 ^( J( J'***********************************************************
; x- p) s6 N4 L& A" @Private Function MakeTable(byval tdata)
　　 tdata = "|&lt;table border=0 style=""font-size:10pt;font-weight:normal;""&gt;" + tdata + "&lt;/Table&gt;|"
　　 MakeTable = tdata
, p/ e; S6 P5 p8 x0 xEnd Function </P><>'***********************************************************
9 |1 t# g6 P) D( v+ k, |9 d+ i+ Q''@SDESCRIPTION: Draws the Debug-panel
5 X! `9 q% f) z0 W/ ^$ x5 A3 {, T'***********************************************************
, k* {& J: q- w5 b. H, BPublic Sub draw()
　　 If dbg_Enabled Then
1 c! ?2 u; z% u, q8 E　　　　 dbg_FinishTime = Now()
$ I5 _; L0 W7 [2 ~9 d$ [  
　　 Dim DivSet, x
　　 DivSet = split(dbg_Show_default,",")
' {! D. b% F) ~/ A　　   dbg_Show = split(dbg_Show,",")
1 s$ L9 J+ a* F- p! S  
& J0 H6 v( z7 |　　 For x = 0 to ubound(dbg_Show)
+ g. r6 C/ K' }( a. }　　　　 divSet(x) = dbg_Show(x)
' e+ K2 p/ y: {5 r) T' ~, H& w　　 Next
  
8 w2 o3 {  M/ u, K( m3 j　　 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),"")
6 |8 R) `, R  q3 W" B! i　　  Call PrintCollection("FORM", Request.Form(),divSet(3),"")
　　  Call PrintCookiesInfo(divSet(4))
8 W0 v3 `* r- R" s( K　　  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))
. a- c" R7 H2 e0 b% C5 b5 |6 _　　  Call PrintCollection("APPLICATION", Application.Contents(),divSet(6),"")
　　  Call PrintCollection("SERVER VARIABLES", Request.ServerVariables(),divSet(7),AddRow("","Timeout",Server.ScriptTimeout))
, p& |6 q7 d9 n/ r" V* e# z" l  s　　  Call PrintDatabaseInfo(divSet(8))
　　  Call PrintCollection("SESSION STATIC OBJECTS", Session.StaticObjects(),divSet(9),"")
( g) p0 O& W$ j5 ~# q$ v　　  Call PrintCollection("APPLICATION STATIC OBJECTS", Application.StaticObjects(),divSet(10),"")
9 h3 t# Y; e1 J! ~. F4 ~　　  Response.Write "&lt;/Table&gt;"
3 L; S5 s+ B6 Q+ f, A4 j, X　　 End If
4 p1 F. [3 P1 ?End Sub </P><>'Destructor
Private Sub Class_Terminate()
" H. V. b* y) L! q7 @& N0 |2 p8 C　　 Set dbg_Data = Nothing
End Sub </P><>End Class </P><>%&gt; </P><>类的说明： </P><>
CLASS debuggingConsole
Version: 1.2 </P><>-------------------------------------------------------------------------------- </P><>ublic Properties </P><>roperty Let Enabled(bNewValue)===[bool] Sets "enabled" to true or false
&amp;n
bsp;
Property Get Enabled===[bool] Gets the "enabled" value
* Z8 p3 }4 f  X7 l( P; K- A  
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
/ K( [/ B! g4 B, L& z  A. G5 A  
Property 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)
- a% W& Y. t/ |' s/ O. e　　 Adds a variable to the debug-informations.  </P><>public sub===GrabDatabaseInfo (byval oSQLDB)
1 N& E# n  C* e) S3 n/ L　　 Adds the Database-connection object to the debug-instance. To display Database-information  </P><>public sub===draw ()
　　 Draws the Debug-panel  </P><>--------------------------------------------------------------------------------
. {9 Y8 m4 r) y% K% n+ q; Y/ ]1 zMethods Detail
  W5 M! y8 E/ ~1 i/ s  
public sub===Print (label, output)
Parameters:  
5 n7 S9 y  X, w7 i3 j1 K# R　　 - label [string]: Description of the variable
3 a2 H- R; h: M1 j2 s　　 - output [variable]: The variable itself
2 t$ |3 \5 L: T7 L) ^4 a( R% g  {  
6 j% R8 c5 D) U& o. q9 T( \. r& X/ F( Jpublic sub===GrabDatabaseInfo (byval oSQLDB)
) g/ i: p8 ~5 W3 h# X0 JParameters:  
　　 - oSQLDB [object]: connection-object</P>