ASP网站制作之批量数据录进, 帮助输出数据, 和相干...

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。服务器|数据<!--#includefile="../__Inc/goperation.asp"-->
<%

DimintBillTotal,intBillType,intBillValue,dtaToday,i,strBillCode
Rem单纪录数(准备量)
intBillTotal=request.Form("bn")
intBillTotal=toNum(intBillTotal,10)

intBillType=getOperType()
intBillValue=getOperValue()
dtaToday=Date()

Rem###############################################################################################
Rem##操纵单项目

DimdtaBillDate,strBillUser,strBillCheckUser,strBillContent
DimcurBillCost,curBillCostAsp,intCustID,strCustName,strPayType,intTotalNum
DimdtaBillYear,intBillID,intBillPlanID,strBillPlanNum

Rem##dtaBillDate单日期,strBillUser填表人,strBillCheckUser提货人,intBillID单ID
Rem##strBillContent单备注,strBillCode流水号,curBillCost单总价(js),curBillCostAsp单总价(asp)
Rem##intCustID客户ID,strCustName客户称号,strPayType付款体例,intTotalNum单行数目
Rem##intBillType单范例，intBillValue单范例形貌,intBillPlanID企图单ID，strBillPlanNum企图单号

Rem##操纵单日期
dtaBillDate=RePlace(Trim(request.Form("BillDate")),".","-")
IfNotIsDate(dtaBillDate)Then
oUser.gs_AddMessage"操纵单日期为空"
Else
dtaBillDate=CDate(dtaBillDate)
dtaBillYear=Year(dtaBillDate)
If(oSys.CheckYearOut(dtaBillYear))Then
oUser.gs_AddMessage"操纵单日期("&dtaBillYear&")超越局限"
EndIf
EndIf

Rem##填表人
strBillUser=Trim(request.Form("BillUser")&"")
IfstrBillUser=""Then
oUser.gs_AddMessage"填表工资空"
EndIf

Rem##提货人
strBillCheckUser=Trim(request.Form("BillCheckUser")&"")
IfstrBillCheckUser=""Then
oUser.gs_AddMessage"提货工资空"
EndIf

Rem##堕落转向
oUser.gs_ShowMessage1

Rem##其他项目

curBillCost=toCur(request.Form("totalprice")&"",0)
curBillCostAsp=0
intCustID=toNum(request.Form("CustID")&"",0)
strCustName=request.Form("CustName")
strPayType=request.Form("PayType")
strBillContent=request.Form("BillContent")
intBillPlanID=toNum(request.Form("brefer")&"",0)
strBillPlanNum=getBillNuber(intBillPlanID)
Rem###############################################################################################


Rem###############################################################################################
Rem##取得用户输出的数据
DimarrRecordInfo()

DimintTempID,curTempPrice,curTempTotal,curTempCost,curTempAspC
DimintTempCode,intTempName,intTempSpec,intTempUnit,intTempOut

Rem##intTempID一时产物ID,curTempPrice单价,curTempTotal数目,curTempCost总价(js)
Rem##curTempAspC产物总价(asp),intTempCode编码,intTempName称号,intTempSpec规格
Rem##intTempUnit单元

ReDimarrRecordInfo(9,0)

Rem##初始化单行数目为0,过滤失落的行数为0
intTotalNum=0
intTempOut=0
response.Write(UBound(arrRecordInfo,2))

Rem##初始化客户端提交的有效数据
Fori=1tointBillTotal
intTempID=toNum(request.Form("fpid"&i),0)
curTempPrice=toCur(request.Form("fpprice"&i),0)
curTempTotal=toCur(request.Form("fptotal"&i),0)
curTempCost=toCur(request.Form("fpcost"&i),0)
curTempAspC=curTempPrice*curTempTotal

If((curTempPrice>0)And(curTempTotal0)And(intTempID>0))Then
Rem##可用数据
intTotalNum=intTotalNum+1

curBillCostAsp=curBillCostAsp+curTempAspC

intTempCode=Trim(request.Form("fpmodel"&i))
intTempName=Trim(request.Form("fpvalue"&i))
intTempSpec=Trim(request.Form("fpspec"&i))
intTempUnit=Trim(request.Form("fpunit"&i))

ReDimPreservearrRecordInfo(9,intTotalNum)

arrRecordInfo(0,intTotalNum)=intTempID
arrRecordInfo(1,intTotalNum)=intTempName
arrRecordInfo(2,intTotalNum)=intTempCode
arrRecordInfo(3,intTotalNum)=intTempSpec
arrRecordInfo(4,intTotalNum)=intTempUnit
arrRecordInfo(5,intTotalNum)=c</p>因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。