批量数据录入, 辅助输入数据, 以及相关检测(ASP 服务器端)

答案：<!--#include file="../__Inc/goperation.asp"-->
<%

 Dim intBillTotal, intBillType, intBillValue, dtaToday, i, strBillCode
 Rem 单记录数(预备量)
 intBillTotal   = request.Form("bn")
 intBillTotal   = toNum(intBillTotal, 10)
 
 intBillType   = getOperType()
 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 单日期, 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")), ".", "-")
  If Not IsDate(dtaBillDate) Then
   oUser.gs_AddMessage "操作单日期为空"
  Else
   dtaBillDate = CDate(dtaBillDate)
   dtaBillYear = Year(dtaBillDate)
   If (oSys.CheckYearOut(dtaBillYear)) Then
    oUser.gs_AddMessage "操作单日期(" & dtaBillYear & ")超出范围"
   End If
  End If
  
  Rem ## 填表人
  strBillUser = Trim(request.Form("BillUser") & "")
  If strBillUser = "" Then
   oUser.gs_AddMessage "填表人为空"
  End If
  
  Rem ## 提货人
  strBillCheckUser = Trim(request.Form("BillCheckUser") & "")
  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("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 ## 获得用户输入的数据
  Dim arrRecordInfo()
  
  Dim intTempID, curTempPrice, curTempTotal, curTempCost, curTempAspC
  Dim intTempCode, intTempName, intTempSpec, intTempUnit, intTempOut
  
  Rem ## intTempID 临时产品ID, curTempPrice 单价, curTempTotal 数量, curTempCost 总价(js)
  Rem ## curTempAspC 产品总价(asp), intTempCode 编码, intTempName 名称, intTempSpec 规格
  Rem ## intTempUnit 单位
  
  ReDim arrRecordInfo(9, 0)
  
  Rem ## 初始化 单 行数量为 0, 过滤掉的行数为 0
  intTotalNum = 0
  intTempOut  = 0
  response.Write(UBound(arrRecordInfo, 2))
 
  Rem ## 初始化客户端提交的有用数据
  For i = 1 to intBillTotal
   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 (curTempTotal <> 0) 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))
    
    ReDim Preserve arrRecordInfo(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) = 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 "操作单中无产品数据"
   oUser.gs_AddMessage "共有 " & intTempOut & " 条数据(产品单价为0、为空或负数, 数量为0或空)被过滤"
   oUser.gs_ShowMessage 1
  End If
 Rem ###############################################################################################

 response.Write(UBound(arrRecordInfo, 2))
 'response.End()
 
 Rem ## 打开连接
 f__OpenConn
 
 Rem ###############################################################################################
 Rem ## 检测表存在与否
  Dim tblTableName
  tblTableName = oUser.getBillTable(dtaBillYear)
 Rem ###############################################################################################
 
 Rem ###############################################################################################
 Rem ## 构造单项目 SQL 语句 并保存
  strBillCode    = getOpeBill()
  
  sql = "SELECT * FROM [" & GBL__STR_TAB_INF_BILL & "]"
  Set rs = Server.CreateObject("Adodb.RecordSet")
  rs.open sql, conn, 1, 3
  rs.AddNew
   rs("CustomerID")    = intCustID
   rs("CustomerName")   = strCustName
   rs("BitPlanID")    = intBillPlanID
   rs("BitPlanNum")    = strBillPlanNum
   rs("BitType")     = intBillType
   rs("BitName")     = intBillValue
   rs("BitCode")     = strBillCode
   rs("BitNum")      = intTotalNum
   rs("BitPrice")     = curBillCost
   rs("BitPriceAsp")   = curBillCostAsp
   rs("BitDate")     = dtaBillDate
   rs("BitPay")      = strPayType
   rs("BitContent")    = strBillContent
   rs("FillUser")     = strBillUser
   rs("SureUser")     = strBillCheckUser
   rs("UserID")      = oUser.UID
   rs("UserName")     = oUser.UserName
  rs.update
   intBillID = rs("ID")
   strBillCode = getBillNuber(intBillID)
  rs("BitCode") = strBillCode
  rs.update
  
  rs.close
 
 Rem ###############################################################################################
 
 Rem ###############################################################################################
 Rem ## 构造数据行 SQL 语句 并保存
  For i = 1 to intTotalNum
   sql = " insert into [" & tblTableName & "]" & _
      " (BitType, BitValue, BitID, BitCode, ProductID, ProductName, ProductCode" & _
      ", ProductSpec, ProductUnit, ProductPrice, ProductNum, PriceCount, PriceAspC, BillDate)" & _
      " Values(" & _
      "  " & intBillType & "" & _
      ", '" & toSqlr(intBillValue) &

上一个：将上传图片打上防伪图片水印并写入数据库
下一个：在DataGrid页眉上添加全选的CheckBox控件