اتصال قاعدة البيانات:
ما يلي هو المحتوى المرجعي:
<٪
تعيين conn = server.createBject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)} ؛
٪>
افتح قاعدة البيانات:
ما يلي هو المحتوى المرجعي:
exec = حدد * من جدول قاعدة البيانات
تعيين rs = server.createObject (adodb.oldset)
Rs.OOPEN EXEC ، CONN ، 1،1
المعلمة 1 ، 1 للقراءة
اقرأ تنسيق المحتوى: <٪ = rs (الحقل) ٪>
أضف برنامج معالجة السجلات:
ما يلي هو المحتوى المرجعي:
<٪
تعيين conn = server.createBject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)} ؛
name = request.form (الحقل) الاسم ، هاتف ، رسالة لإرسال قيمة الحقل
tel = request.form (حقل)
رسالة = request.form (حقل)
exec = insert في اسم الجدول (الحقل) قيم ('+حقل+') مفصولة بفاصلة مع فاصلة
يستخدم Conn.Execute Exec تنفيذ التقديم
conn.close
تعيين conn = لا شيء
٪>
برنامج معالجة البحث:
ما يلي هو المحتوى المرجعي:
<٪
name = request.form (الحقل) الاسم ، TEL هي قيمة الحقل المحددة بواسطة إعداد النموذج للنموذج
tel = request.form (حقل)
تعيين conn = server.createBject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)} ؛
exec = حدد * من الجدول حيث name = '+field+' و tel =+field
تعيين rs = server.createObject (adodb.oldset)
Rs.OOPEN EXEC ، CONN ، 1،1
٪>
تم تفتيش محتوى الصفحة
<٪
افعل بينما لا rs.eof
٪> <tr>
<td> <٪ = rs (name) ٪> </td>
<td> <٪ = rs (tel) ٪> </td>
<td> <٪ = rs (time) ٪> </td>
</r>
<٪
Rs.Movenext
حلقة
٪>
حذف برنامج معالجة السجلات:
ما يلي هو المحتوى المرجعي:
<٪
تعيين conn = server.createBject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)} ؛
exec = حذف * من اسم الجدول حيث الرقم = & request.form (id)
conn.execute exec
٪>
تعديل برنامج معالجة السجلات:
ما يلي هو المحتوى المرجعي:
<٪
تعيين conn = server.createBject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)} ؛
exec = حدد * من اسم الجدول حيث الرقم = & request.form (معرف)
تعيين rs = server.createObject (adodb.oldset)
RS.OOPEN EXEC ، CONN ، 1،3 '1،3 هو المعنى المعدل
rs (name) = request.form (الحقل) 'اسم ، هاتف ، الرسالة هي قيمة الحقل المحددة عن طريق تقديم النموذج
rs (tel) = request.form (حقل)
RS (رسالة) = request.form (حقل)
Rs.update
Rs.close
تعيين روبية = لا شيء
conn.close
تعيين conn = لا شيء
٪>
تعديل برنامج تنفيذ السجل: أدخل صفحة رقم المعرف >>> تصدير بيانات المعرف المقابل >>>>>> برنامج المعالجة المعدل مباشرة
مثال على إجراءات معالجة تسجيل الدخول:
ما يلي هو المحتوى المرجعي:
<٪
الاسم الخافت ، كلمة المرور
name = request.form (اسم)
كلمة المرور = الطلب. الشكل (كلمة المرور)
Dim Exec ، Conn ، Rs
exec = حدد *من اسم الجدول حيث (name = '& field &' و password = '& field &')
تعيين conn = server.createBject (adodb.connection)
Conn.Open Driver = {Microsoft Access Driver (*.mdb)} ؛
تعيين rs = server.createObject (adodb.oldset)
RS.OOPEN EXEC ، CONN
إذا لم يكن rs.eof ثم
Rs.close
conn.close
جلسة (محددة) = نعم
الجلسة (تحقق) = الحق
استجابة. index.asp
آخر
الجلسة (فحص) = لا
الجلسة (تحقق) = ث
استجابة. redirect تسجيل الدخول
إنهاء إذا
٪>
كل صفحة خلفية زائد:
<٪ إذا لم تكن الجلسة (محددة) = نعم ، ثم تحدد الجلسة متغير سلسلة محدد
استجابة. redirect تسجيل الدخول
آخر
٪>