La entrada por lotes se usa ampliamente en bases de datos, y hay muchos métodos para la entrada de lotes. A continuación, hablaré sobre cómo lo logré en función de mi aplicación real. El uso principal es el concepto de recopilación de formularios, que toma todos los datos en la recopilación a través del bucle. Teniendo en cuenta que es conveniente que todos lo vean, lo integré en una página.
Aquí está el código específico:
batchinput.asp
<%
'###############################################################
'FILEFUNTA DE FILE: datos de entrada por lotes
'Autor: Myhon
'Fecha: 2003-8-19
'###############################################################
'Escriba datos en la base de datos
SubwriteData ()
dimrecnn, yo
DimfieldName1, FieldName2, FieldName3
dimconn
DIMSQLSTR, CONNSTR
connstr = "proveedor = sqloledb.1; inicialCatalog = myDatabase; dataSource = myHon; userId = sa; contraseña ="
setconn = server.createObject ("ADODB.Connection")
conn.openconnstr 'Establecer la conexión de la base de datos
Reccnt = request.form ("stu_num"). Cuente '¿Cuántos registros hay en total?
'Datos de entrada por lotes
fori = 1Toreccnt
fieldName1 = trim (request.form ("fieldName1") (i))
fieldName2 = TRIM (request.form ("fieldName2") (i))
fieldName3 = TRIM (request.form ("fieldName3") (i))
SQLSTR = "InsertIntomyTable (FieldName1, FieldName2, FieldName3) Valores ('"
SQLSTR = SQLSTR & FIELDNAME1 & "','"
SQLSTR = SQLSTR & FIELDNAME2 & "','"
SQLSTR = SQLSTR & FIELDNAME3 & "')"
'Response.Writesqlstr
Conn.Execute (SQLSTR)
próximo
Endsub
'Mostrar interfaz de entrada por lotes
SubinputData ()
dimrecnn, yo
%>
<formname = "BathinputData" Action = "" Method = "Post">
<%
Reccnt = cint (request.form ("Reccnt"))
fori = 1Toreccnt
%>
<inputType = "text" name = "fieldName1">
<inputType = "text" name = "fieldName2">
<inputType = "text" name = "fieldName3">
<%
próximo
%>
<br>
<inputType = "Subt" name = "Action" Value = "Subt">
</form>
<%
Endsub
'Especifique cuántos registros se ingresarán en lotes
Subassignhowmuch ()
%>
<! ------ especifique cuántos registros ingresar ------------------------->
<FormName = "Form1" Action = "" Method = "Post">
El número de registros que desea ingresar: <inputType = "text" name = "Reccnt">
<inputType = "Subt" name = "Action" Value = "Next >>">
</form>
<%
Endsub
ifRequest.form ("Action") = "Next >>" Entonces