Batch data entry, auxiliary input data, and related detection (ASP server side)

<!--#include file= ". /__inc/goperation.asp "-->
<%
Dim intbilltotal, Intbilltype, Intbillvalue, Dtatoday, I, Strbillcode
Rem Single record number (reserve amount)
Intbilltotal = Request. Form ("bn")
Intbilltotal = Tonum (intbilltotal, 10)

Intbilltype = Getopertype ()
Intbillvalue = Getopervalue ()
Dtatoday = Date ()

Rem ###############################################################################################
REM # Operation Single Item

Dim dtabilldate, Strbilluser, Strbillcheckuser, strbillcontent
Dim Curbillcost, curbillcostasp, Intcustid, Strcustname, Strpaytype, Inttotalnum
Dim dtabillyear, Intbillid, Intbillplanid, Strbillplannum

Rem # dtabilldate Single date, strbilluser filling person, strbillcheckuser, intbillid single ID
Rem # strbillcontent single note, strbillcode serial number, Curbillcost single Total Price (JS), curbillcostasp single Total Price (ASP)
Rem # Intcustid Customer ID, strcustname customer name, Strpaytype payment method, Inttotalnum line number
Rem # Intbilltype single type, intbillvalue single type description, Intbillplanid plan ID, strbillplannum plan single

Rem # Action Single Date
Dtabilldate = RePlace (Trim (Request). Form ("Billdate"), ".", "-")
If not IsDate (dtabilldate) Then
Ouser.gs_addmessage "Action Order date is empty"
Else
Dtabilldate = CDate (dtabilldate)
Dtabillyear = year (dtabilldate)
If (Osys.checkyearout (dtabillyear)) Then
Ouser.gs_addmessage "Action Order Date (" & Dtabillyear & ") Out of range"
End If
End If

Rem # to fill out a person
Strbilluser = Trim (Request. Form ("Billuser") & "")
If Strbilluser = "" Then
Ouser.gs_addmessage "Fill out the form for empty"
End If

Rem # Delivery Person
Strbillcheckuser = Trim (Request. Form ("Billcheckuser") & "")