|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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应用方案。 |
|