批量數(shù)據(jù)錄入, 輔助輸入數(shù)據(jù), 以及相關檢測(ASP 服務器端)

1、         <!-#include file="./_Inc/goperation.asp"-> <% Dim intBillTotal, intBillType, intBillValue, dtaToday, i, strBillCode Rem 單記錄數(shù)(預備量) intBillTotal = request.Form("bn") intBillTotal = toNum(intBillTotal, 10) intBillType = getOp

2、erType() intBillValue = getOperValue() dtaToday = Date() Rem # Rem # 操作單項目 Dim dtaBillDate, strBillUser, strBillCheckUser, strBillContent Dim curBillCost, curBillCostAsp, intCustID, strCustName, strPayType, intTotalNum Dim dtaBillYear, intBillID, intBillPlanID, strBillPlanNum Rem # dtaBillDate 單日期,

3、strBillUser 填表人, strBillCheckUser 提貨人, intBillID 單ID Rem # strBillContent 單備注, strBillCode 流水號, curBillCost 單總價(js), curBillCostAsp 單總價(asp) Rem # intCustID 客戶ID, strCustName 客戶名稱, strPayType 付款方式, intTotalNum 單 行數(shù)量 Rem # intBillType 單類型， intBillValue 單類型描述, intBillPlanID 計劃單ID， strBillPlanNum 計劃單號

4、Rem # 操作單日期 dtaBillDate = RePlace(Trim(request.Form("BillDate"), ".", "-") If Not IsDate(dtaBillDate) Then oUser.gs_AddMessage "操作單日期為空" Else dtaBillDate = CDate(dtaBillDate) dtaBillYear = Year(dtaBillDate) If (oSys.CheckYearOut(dtaBillYear) Then oUser.gs_AddM

5、essage "操作單日期(" & dtaBillYear & ")超出范圍" End If End If Rem # 填表人 strBillUser = Trim(request.Form("BillUser") & "") If strBillUser = "" Then oUser.gs_AddMessage "填表人為空" End If Rem # 提貨人 strBillCheckUser = Trim(request.Form("B

6、illCheckUser") & "") If strBillCheckUser = "" Then oUser.gs_AddMessage "提貨人為空" End If Rem # 出錯轉向 oUser.gs_ShowMessage 1 Rem # 其他項目 curBillCost = toCur(request.Form("totalprice") & "", 0) curBillCostAsp = 0 intCustID = toNum(request.Form(

7、"CustID") & "", 0) strCustName = request.Form("CustName") strPayType = request.Form("PayType") strBillContent = request.Form("BillContent") intBillPlanID = toNum(request.Form("brefer") & "", 0) strBillPlanNum = getBillNube

8、r(intBillPlanID) Rem # Rem # Rem # 獲得用戶輸入的數(shù)據(jù) Dim arrRecordInfo() Dim intTempID, curTempPrice, curTempTotal, curTempCost, curTempAspC Dim intTempCode, intTempName, intTempSpec, intTempUnit, intTempOut Rem # intTempID 臨時產(chǎn)品ID, curTempPrice 單價, curTempTotal 數(shù)量, curTempCost 總價(js) Rem # curTempAspC 產(chǎn)品總價(

9、asp), intTempCode 編碼, intTempName 名稱, intTempSpec 規(guī)格 Rem # intTempUnit 單位 ReDim arrRecordInfo(9, 0) Rem # 初始化 單 行數(shù)量為 0, 過濾掉的行數(shù)為 0 intTotalNum = 0 intTempOut = 0 response.Write(UBound(arrRecordInfo, 2) Rem # 初始化客戶端提交的有用數(shù)據(jù) For i = 1 to intBillTotal intTempID = toNum(request.Form("fpid" &

10、 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 (curTempTotal <>

11、 0) And (intTempID > 0) Then Rem # 可用數(shù)據(jù) intTotalNum = intTotalNum + 1 curBillCostAsp = curBillCostAsp + curTempAspC intTempCode = Trim(request.Form("fpmodel" & i) intTempName = Trim(request.Form("fpvalue" & i) intTempSpec = Trim(request.Form("fpspec" & i)

12、 intTempUnit = Trim(request.Form("fpunit" & i) ReDim Preserve arrRecordInfo(9, intTotalNum) arrRecordInfo(0, intTotalNum) = intTempID arrRecordInfo(1, intTotalNum) = intTempName arrRecordInfo(2, intTotalNum) = intTempCode arrRecordInfo(3, intTotalNum) = intTempSpec arrRecordInfo(4, int

13、TotalNum) = intTempUnit arrRecordInfo(5, intTotalNum) = curTempPrice arrRecordInfo(6, intTotalNum) = curTempTotal arrRecordInfo(7, intTotalNum) = curTempCost arrRecordInfo(8, intTotalNum) = curTempAspC response.Write(intTempUnit & "<br>") ElseIf (intTempID > 0) Then intTempOut = intTempOut + 1 End If Next If intTotalNum < 1 Then oUser.gs_AddMessage "操作單中無產(chǎn)品數(shù)據(jù)" oUser.gs_AddMe