Entri batch banyak digunakan dalam database, dan ada banyak metode untuk entri batch. Selanjutnya, saya akan berbicara tentang bagaimana saya mencapainya berdasarkan aplikasi saya yang sebenarnya. Penggunaan utama adalah konsep pengumpulan formulir, yang mengambil semua data dalam koleksi melalui loop. Mempertimbangkan bahwa lebih mudah bagi semua orang untuk melihat, saya mengintegrasikannya ke dalam satu halaman.
Ini kode spesifiknya:
BatchInput.asp
<%
'###############################################################
'FileFunction: data input batch
'Penulis: Myhon
'Tanggal: 2003-8-19
'###############################################################
'Tulis data ke database
Subwritata ()
Dimreccnt, i
DimfieldName1, FieldName2, FieldName3
dimconn
dimsqlstr, connstr
connstr = "penyedia = sqloledb.1; initialcatalog = mydatabase; dataSource = myhon; userid = sa; kata sandi ="
setConn = server.CreateObject ("adodb.connection")
koneksi database conn.openconnstr '
reccnt = request.form ("Stu_num"). Hitung 'Berapa banyak catatan yang ada?
'Data input batch
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) nilai ('"
sqlstr = sqlstr & fieldname1 & "','"
sqlstr = sqlstr & fieldname2 & "','"
sqlstr = sqlstr & fieldname3 & "')"
'Response.writesqlstr
Conn.execute (sqlstr)
Berikutnya
Endsub
'Tampilkan antarmuka input batch
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">
<%
Berikutnya
%>
<br>
<inputType = "Kirim" name = "Action" value = "Kirim">
</form>
<%
Endsub
'Tentukan berapa banyak catatan yang akan dimasukkan dalam batch
SubassignHowMuch ()
%>
<! ------ Tentukan berapa banyak catatan yang harus dimasukkan ------------------------->
<FormName = "Form1" Action = "" Method = "Post">
Jumlah catatan yang ingin Anda masukkan: <inputType = "text" name = "reccnt">
<inputType = "Kirim" name = "action" value = "next >>">
</form>
<%
Endsub
ifrequest.form ("action") = "Next >>" Lalu