ASP网页编程之将ASP的Debug变得复杂的两个函数！
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.debug|函数<%---------------------------------------------------------------------------
程序感化:打印request.form输出的一切值
---------------------------------------------------------------------------
Response.WriteFormData()
functionFormData()
DimllngMaxFieldIndex
DimllngFieldIndex
DimllngMaxValueIndex
DimllngValueIndex
DimlstrDebug
CountForm
llngMaxFieldIndex=Request.Form.Count
LetuserknowifFormDoNotexist
ifllngMaxFieldIndex=0Then
FormData="Formdataisempty."
Exitfunction
Endif
BeginbuildingalistofallForm
lstrDebug="<OL>"
LoopthroughEachForm
ForllngFieldIndex=1TollngMaxFieldIndex
lstrDebug=lstrDebug&"<LI>"&Server.HTMLEncode(Request.Form.Key(llngFieldIndex))
Countthevalues
llngMaxValueIndex=Request.Form(llngFieldIndex).Count
iftheFielddoesnthavemultiplevalues...
ifllngMaxValueIndex=1Then
lstrDebug=lstrDebug&"="
lstrDebug=lstrDebug&Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
ElseLoopthroughEachvalue
Else
lstrDebug=lstrDebug&"<OL>"
ForllngValueIndex=1TollngMaxValueIndex
lstrDebug=lstrDebug&"<LI>"
lstrDebug=lstrDebug&Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug=lstrDebug&"</LI>"
Next
lstrDebug=lstrDebug&"</OL>"
Endif
lstrDebug=lstrDebug&"</LI>"
Next
lstrDebug=lstrDebug&"</OL>"
Returnthedata
FormData=lstrDebug
Endfunction
%>
<%
-------------------------------------------------------------------------
函数功效：输入一切输出request.querystring值，用于调试！
-------------------------------------------------------------------------
Response.WriteQueryStringData()
functionQueryStringData()
DimllngMaxFieldIndex
DimllngFieldIndex
DimllngMaxValueIndex
DimllngValueIndex
DimlstrDebug
CountQueryString
llngMaxFieldIndex=Request.QueryString.Count
LetuserknowifQueryStringDoNotexist
ifllngMaxFieldIndex=0Then
QueryStringData="QueryStringdataisempty."
Exitfunction
Endif
BeginbuildingalistofallQueryString
lstrDebug="<OL>"
LoopthroughEachQueryString
ForllngFieldIndex=1TollngMaxFieldIndex
lstrDebug=lstrDebug&"<LI>"&Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))
Countthevalues
llngMaxValueIndex=Request.QueryString(llngFieldIndex).Count
iftheFielddoesnthavemultiplevalues...
ifllngMaxValueIndex=1Then
lstrDebug=lstrDebug&"="
lstrDebug=lstrDebug&Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
ElseLoopthroughEachvalue
Else
lstrDebug=lstrDebug&"<OL>"
ForllngValueIndex=1TollngMaxValueIndex
lstrDebug=lstrDebug&"<LI>"
lstrDebug=lstrDebug&Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug=lstrDebug&"</LI>"
Next
lstrDebug=lstrDebug&"</OL>"
Endif
lstrDebug=lstrDebug&"</LI>"
Next
lstrDebug=lstrDebug&"</OL>"
Returnthedata
QueryStringData=lstrDebug
Endfunction
%>
</p>帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 掌握asp的特性而且一定要知道为什么。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)
页:
[1]