ASP中的Debug类

来源：百度文库 编辑：神马文学网 时间：2024/04/28 05:23:19
译者的话：

不知道用ASP写代码的朋友是不是和我有一样的感受，ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write ，天，调试完后把这三十个一个个删除，累！

今天看到一个ASP中的Debug类（VBS），试用了一下，绝！

使用方法很简单：

test.asp


<%
output="XXXX"
Set debugstr = New debuggingConsole 
    debugstr.Enabled = true
    debugstr.Print "参数output的值", output
    '……
    debugstr.draw 
Set debugstr = Nothing
%>

===================================================

debuggingConsole.asp

<%
Class debuggingConsole

 private dbg_Enabled
 private dbg_Show
 private dbg_RequestTime
 private dbg_FinishTime
 private dbg_Data
 private dbg_DB_Data
 private dbg_AllVars
 private dbg_Show_default
 private DivSets(2)
    
 'Construktor => set the default values
 Private Sub Class_Initialize()
  dbg_RequestTime = Now()
  dbg_AllVars = false
  Set dbg_Data = Server.CreateObject("Scripting.Dictionary") 
  DivSets(0) = "|#title#|  |#data#|  
|
|"
  DivSets(1) = "|#title#|  |#data#|  
|
|"
  DivSets(2) = "|#title#|  |#data#|