يستخدم إدخال الدُفعات على نطاق واسع في قواعد البيانات ، وهناك العديد من الطرق لإدخال الدُفعات. بعد ذلك ، سأتحدث عن كيفية تحقيقه بناءً على طلبي الفعلي. الاستخدام الرئيسي هو مفهوم جمع النماذج ، والذي يأخذ جميع البيانات في المجموعة من خلال الحلقة. بالنظر إلى أنه من المريح للجميع رؤيته ، قمت بدمجها في صفحة واحدة.
هنا هو الرمز المحدد:
batchinput.asp
<٪
'#####################################################################
'filefunction: بيانات إدخال الدُفعات
المؤلف: ميون
التاريخ: 2003-8-19
'#####################################################################
اكتب البيانات إلى قاعدة البيانات
subwritedata ()
Dimreccnt ، أنا
DimfieldName1 ، FieldName2 ، FieldName3
Dimconn
DimSqlstr ، connstr
connstr = "provider = sqloledb.1 ؛ initialCatalog = myDatabase ؛ dataSource = myhon ؛ userId = sa ؛ password ="
setConn = server.createObject ("adodb.connection")
conn.openconnstr 'إنشاء اتصال قاعدة البيانات
reccnt = request.form ("stu_num"). عد 'كم عدد السجلات الموجودة في المجموع؟
بيانات إدخال الدُفعات
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) قيم ('"
sqlstr = sqlstr & fieldname1 و "'،' '
sqlstr = sqlstr & fieldname2 و "'،'"
sqlstr = sqlstr & fieldname3 و "')"
'Response.writesqlstr
conn.execute (SQLSTR)
التالي
ينتهي
عرض واجهة إدخال الدُفعات
subinputdata ()
Dimreccnt ، أنا
٪>
<PormName = "BathInputData" Action = "" method = "post">
<٪
reccnt = cint (request.form ("reccnt"))
fori = 1toreccnt
٪>
<inputType = "text" name = "fieldName1">
<inputType = "text" name = "fieldName2">
<inputType = "text" name = "fieldName3">
<٪
التالي
٪>
<br>
<pecttype = "إرسال" name = "الإجراء" value = "submit">
</form>
<٪
ينتهي
حدد عدد السجلات التي سيتم إدخالها على دفعات
subassignhowmuch ()
٪>
<! ------ حدد عدد السجلات التي يجب إدخالها ------------------------->
<formName = "form1" Action = "" method = "post">
عدد السجلات التي تريد إدخالها: <inputType = "text" name = "reccnt">
<pecttype = "إرسال" name = "الإجراء" value = "Next >>">
</form>
<٪
ينتهي
ifrequest.form ("Action") = "Next >>" ثم