ASP implementa a implementação da entrada de dados em lote

A entrada em lote é amplamente usada em bancos de dados e existem muitos métodos para entrada em lote. Em seguida, falarei sobre como consegui isso com base no meu aplicativo real. O uso principal é o conceito de coleção de formulários, que leva todos os dados da coleção através do loop. Considerando que é conveniente para que todos vejam, eu o integrasse em uma página.

Aqui está o código específico:

BatchInput.asp

<%

##################################################################D##############

'FILHOFUNCIONAL: dados de entrada em lote

'Autor: Myhon

Data: 2003-8-19

##################################################################D##############

'Escreva dados no banco de dados

Subscritoata ()

DiMreccnt, i

DimfieldName1, FieldName2, FieldName3

Dimconn

dimsqlstr, Connstr

Connstr = "Provider = sqloledb.1; InitialCatalog = myDatabase; DataSource = myHon; UserID = SA; Password ="

setConn = server.createObject ("adodb.connection")

Conn.OPENCONNSTR 'estabelecer conexão de banco de dados

reccnt = request.form ("stu_num"). Conte 'Quantos registros existem no total?

'Dados de entrada em lote

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.WritesQlSt

Conn.Execute (SQLSTR)

próximo

Endsub

'Mostrar interface de entrada em lote

SubinputData ()

DiMreccnt, i

%>

<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 = "submeter" name = "action" value = "submit">

</morm>

<%

Endsub

'Especifique quantos registros serem inseridos em lotes

SubasSignHowMuch ()

%>

<! ------ Especifique quantos registros entrarem ------------------------->

<formname = "form1" action = "" método = "post">

O número de registros que deseja inserir: <inputtype = "text" name = "reccnt">

<inputType = "submeter" name = "action" value = "a seguir >>">

</morm>

<%

Endsub

ifRequest.form ("ação") = "Next >>" então