ASP网页编程之将ASP的Debug变得复杂的两个函数
因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。<%---------------------------------------------------------------------------
程序感化:打印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
%>
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
页:
[1]