浅析ASP中的Debug类--VBScript

作者：Eve Cole 更新时间：2025-04-11 13:16:01

推荐：解读ASP网站Server object error的方法
症状：访问asp网页的时候出现如下错误:Server object error ''ASP 0178 : 80070005''Server.CreateObject Access Error/_fpclass/fpdbrgn1.inc, line 99The call to Server.C

不知道用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) = <TR><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';}><DIV id=sect#sectname# style=font-weight:bold;cursor:hand;background:#7EA5D7;color:white;padding-left:4;padding-right:4;padding-bottom:2;>|#title#| <DIV id=data#sectname# style=cursor:text;display:none;background:#FFFFFF;padding-left:8; onclick=window.event.cancelBubble = true;>|#data#| </DIV>|</DIV>|

DivSets(1) = <TR><TD><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';}>|#title#| <DIV id=data#sectname# style=cursor:text;display:block;background:#FFFFFF;padding-left:8; onclick=window.event.cancelBubble = true;>|#data#| </DIV>|</DIV>|

DivSets(2) = <TR><TD><DIV id=sect#sectname# style=background:#7EA5D7;color:lightsteelblue;padding-left:4;padding-right:4;padding-bottom:2;>|#title#| <DIV id=data#sectname# style=display:none;background:lightsteelblue;padding-left:8>|#data#| </DIV>|</DIV>|

分享：如何使ASP跳出本次进入下一次循环
看下面的Java代码，目的是为了当i是3的时候，就不做输出，直接跳到下一个循环。以下为引用的内容： int i = 0; w