تنفيذ إدخال بيانات الدُفعات ASP

<٪

اكتب البيانات إلى قاعدة البيانات

sub britedata ()

قاتمة reccnt ، أنا

Dim FieldName1 ، FieldName2 ، FieldName3

قاتمة كون

Dim Sqlstr ، connstr

connstr = provider = sqloledb.1 ؛ الكتالوج الأولي = myDatabase ؛ مصدر البيانات = myhon ؛ معرف المستخدم = sa ؛ كلمة المرور =

تعيين conn = server.createBject (adodb.connection)

conn.open connstr 'إنشاء اتصال قاعدة بيانات

reccnt = request.form (stu_num) .count 'كم عدد السجلات الموجودة في المجموع

بيانات إدخال الدُفعات

ل I = 1 إلى reccnt

FieldName1 = trim (request.form (fieldName1) (i))

FieldName2 = trim (request.form (fieldname2) (i))

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

sqlstr = insert في قيم mytable (fieldName1 ، FieldName2 ، FieldName3) ('

sqlstr = sqlstr & fieldname1 & '،'

sqlstr = sqlstr & fieldname2 & '،'

sqlstr = sqlstr & fieldname3 & ')

'Response.write sqlstr

conn.execute (SQLSTR)

التالي

نهاية الفرعية

عرض واجهة إدخال الدُفعات

إدخال Sub Subs ()

قاتمة reccnt ، أنا

٪>

<name form = bathinputData Action = method = post>

<٪

reccnt = cint (request.form (reccnt))

ل I = 1 إلى reccnt

٪>

<نوع الإدخال = اسم النص = FieldName1>

<نوع الإدخال = اسم النص = FieldName2>

<نوع الإدخال = اسم النص = FieldName3>

<٪

التالي

٪>

<br>

<نوع الإدخال = إرسال اسم = قيمة الإجراء = إرسال>

</form>

<٪

نهاية الفرعية

حدد عدد السجلات التي سيتم إدخالها على دفعات

sub issishowmuch ()

٪>

<! ------ حدد عدد السجلات التي يجب إدخالها ----------------------->

<name form = form1 action = method = post>

عدد السجلات التي تريد إدخالها: <إدخال نوع = اسم النص = reccnt>

<نوع الإدخال = إرسال اسم = قيمة الإجراء = التالي >>>

</form>

<٪

نهاية الفرعية

إذا كان request.form (إجراء) = التالي >> ثم

استدعاء inputData () 'إظهار واجهة إدخال الدُفعات

elseif request.form (إجراء) = ارتكاب ثم استدعاء بيانات كتابة الدُفعات إلى قاعدة البيانات

آخر

Call ississhowmuch () 'إظهار الواجهة التي تحدد عدد السجلات التي سيتم إدخالها

إنهاء إذا

٪>