Implementação da entrada de dados em lote ASP

<%

'Escreva dados no banco de dados

Sub Writedata ()

Dim Reccnt, i

Dim FieldName1, FieldName2, FieldName3

Dim Conn

Dim SQLSTR, Connstr

Connstr = provedor = sqloledb.1; catálogo inicial = myDatabase; fonte de dados = myhon; ID do usuário = sa; senha =

Definir Conn = Server.CreateObject (Adodb.Connection)

Conn.Open Connstr 'Crie uma conexão de banco de dados

reccnt = request.form (stu_num) .count 'quantos registros existem no total

'Dados de entrada em lote

para i = 1 para reccnt

FieldName1 = Trim (request.form (FieldName1) (i))

FieldName2 = Trim (request.form (FieldName2) (i))

FieldName3 = Trim (request.form (fieldname3) (i))

sqlstr = insert in mytable (fieldname1, fieldname2, fieldname3) valores ('

sqlstr = sqlstr & fieldname1 & ','

sqlstr = sqlstr & fieldname2 & ','

sqlstr = sqlstr & fieldname3 & ')

'Response.Write SQLSTR

Conn.Execute (SQLSTR)

próximo

Final sub

'Mostrar interface de entrada em lote

Sub InputData ()

Dim Reccnt, i

%>

<nome de forma = BathinputData Action = Method = Post>

<%

reccnt = cint (request.form (reccnt))

para i = 1 para reccnt

%>

<Tipo de entrada = Nome do texto = FieldName1>

<Tipo de entrada = Nome do texto = FieldName2>

<Tipo de entrada = Nome do texto = FieldName3>

<%

próximo

%>

<br>

<Tipo de entrada = Envie Nome = Ação Valor = Enviar>

</morm>

<%

Final sub

'Especifique quantos registros serem inseridos em lotes

Sub DesconowowMuch ()

%>

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

<nome de forma = form1 ação = método = post>

O número de registros que você deseja inserir: <Tipo de entrada = Nome do texto = Reccnt>

<Tipo de entrada = Nome de envio = Valor da Ação = Próximo >>>

</morm>

<%

Final sub

se request.form (ação) = a seguir >> então

Chamada inputData () 'Mostrar interface de entrada em lote

elseif request.form (action) = commit e depois ligue para Writedata () 'em lote de gravação de dados no banco de dados

outro

Ligue para atribuições

final se

%>