ASP网页设计ASP中使人震动的Debug类（VBScript）
asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般debug|vbscript译者的话：不晓得用ASP写代码的伴侣是否是和我有一样的感觉，ASP中最头疼的就是调试程序的时分不便利，我想大概良多伴侣城市用如许的办法“response.write”，然后输入相干的语句来看看是不是准确。头几天写了一个千行的页面，内里也许有七八个SUB/FUNCTION，调试的时分用了有三十几个response.write，天，调试完后把这三十个一个个删除，累！
明天看到一个ASP中的Debug类（VBS），试用了一下，尽！
利用办法很复杂：
test.asp
<!--#INCLUDEFILE="debuggingConsole.asp"-->
<%
output="XXXX"
Setdebugstr=NewdebuggingConsole
debugstr.Enabled=true
debugstr.Print"参数output的值",output
……
debugstr.draw
Setdebugstr=Nothing
%>
===================================================
debuggingConsole.asp
<%
ClassdebuggingConsole
privatedbg_Enabled
privatedbg_Show
privatedbg_RequestTime
privatedbg_FinishTime
privatedbg_Data
privatedbg_DB_Data
privatedbg_AllVars
privatedbg_Show_default
privateDivSets(2)
Construktor=>setthedefaultvalues
PrivateSubClass_Initialize()
dbg_RequestTime=Now()
dbg_AllVars=false
Setdbg_Data=Server.CreateObject("Scripting.Dictionary")
DivSets(0)="<TR><TDstyle=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;}""><DIVid=sect#sectname#style=""font-weight:bold;cursor:hand;background:#7EA5D7;color:white;padding-left:4;padding-right:4;padding-bottom:2;"">|#title#|<DIVid=data#sectname#style=""cursor:text;display:none;background:#FFFFFF;padding-left:8;""onclick=""window.event.cancelBubble=true;"">|#data#|</DIV>|</DIV>|"
DivSets(1)="<TR><TD><DIVid=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#|<DIVid=data#sectname#style=""cursor:text;display:block;background:#FFFFFF;padding-left:8;""onclick=""window.event.cancelBubble=true;"">|#data#|</DIV>|</DIV>|"
DivSets(2)="<TR><TD><DIVid=sect#sectname#style=""background:#7EA5D7;color:lightsteelblue;padding-left:4;padding-right:4;padding-bottom:2;"">|#title#|<DIVid=data#sectname#style=""display:none;background:lightsteelblue;padding-left:8"">|#data#|</DIV>|</DIV>|"
dbg_Show_default="0,0,0,0,0,0,0,0,0,0,0"
EndSub
PublicPropertyLetEnabled(bNewValue)Sets"enabled"totrueorfalse
dbg_Enabled=bNewValue
EndProperty
PublicPropertyGetEnabledGetsthe"enabled"value
Enabled=dbg_Enabled
EndProperty
PublicPropertyLetShow(bNewValue)Setsthedebuggingpanel.Whereeachdigitinthestringrepresentsadebuginformationpaneinorder(11ofthem).1=open,0=closed
dbg_Show=bNewValue
EndProperty
PublicPropertyGetShowGetsthedebuggingpanel.
Show=dbg_Show
EndProperty
PublicPropertyLetAllVars(bNewValue)Setswheatherallvariableswillbedisplayedornot.true/false
dbg_AllVars=bNewValue
EndProperty
PublicPropertyGetAllVarsGetsifallvariableswillbedisplayed.
AllVars=dbg_AllVars
EndProperty
******************************************************************************************************************
@SDESCRIPTION:Addsavariabletothedebug-informations.
@PARAM:-label:Descriptionofthevariable
@PARAM:-output:Thevariableitself
******************************************************************************************************************
PublicSubPrint(label,output)
Ifdbg_EnabledThen
iferr.number>0then
calldbg_Data.Add(ValidLabel(label),"!!!Error:"&err.number&""&err.Description)
err.Clear
else
uniqueID=ValidLabel(label)
response.writeuniqueID
calldbg_Data.Add(unique</p>缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。
页:
[1]