اليوم سنكتب برنامج لوحة الرسائل مع وظائف الإدارة. إن ما يسمى بوظيفة الإدارة يعني في الواقع وجود مربع اختيار أمام كل رسالة انقر فوق الرسالة المراد حذفها، أو انقر فوق "حذف جميع الرسائل" لإكمال الحذف المجمع. من خلال هذا المثال، يمكننا الحصول على فهم أولي للعمليات الأساسية لقاعدة البيانات في ASP.
1. إنشاء قاعدة بيانات (النسخة الصينية ACCESS2000)
نوع النص myid 20 بايت هذه هي علامة الكلام الوحيدة
اسمي نوع النص 10 بايت هذا هو اسم الشخص الذي ترك الرسالة
نوع التاريخ/الوقت الآن يتم تسجيل وقت الرسالة هنا
نوع النص mytitle 30 بايت هذا هو عنوان الرسالة
Mybody ملاحظات محتوى الرسالة
حقل myid هو المفتاح، وهو علامة الحذف الوحيدة.
2. برنامج إدارة
كود manager.asp
"حدد المتغيرات أولاً."
قوائم خافتة، كون، كمد
'يمكن تعديل عدد دورات i وفقًا للعدد الفعلي للرسائل
لأني = 1 إلى 100
إذا كان الطلب ("delit"&i)<>فارغًا إذن
"البيان أعلاه هو الجزء الأساسي. تحقق مما إذا كانت الرسالة i محددة. إذا تم تحديدها، فقم بإجراء عملية الحذف التالية.
تعيين conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
'تستخدم وظيفة Mappath معلمة Guestbook.mdb، للإشارة إلى قاعدة البيانات المراد توصيلها.
conn.Open sConnection
'أعد توصيل جدول البيانات
تعيين cmd=Server.Createobject("ADODB.Command")
تعيين cmd.activeconnection=conn
cmd.commandtext="حذف من الضيف حيث myid='"&request("delit"&i)&"'"
'الضيف أعلاه هو اسم جدول جدول البيانات، وmyid هو اسم الحقل
cmd.execute
مجموعة كون = لا شيء
تعيين كمد = لا شيء
'تنفيذ تعليمات SQL وتحرير الكائنات
نهاية إذا
التالي
'قم بإخراج النموذج، لاحظ أن سمة الإجراء تشير إلى Manage.asp
الرد.اكتب ""
'الاتصال بقاعدة البيانات
مجموعة conn=Server.CreateObject("ADODB.Connection")
تعيين listrs=server.createobject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
conn.Open sConnection
listrs.open "اختر * من الضيف"،conn,2,2
'تم فتح جدول الضيوف لقاعدة البيانات أعلاه
أنا = 1
'متغير أنا يبدأ العد
في حين لا listrs.eof
Response.write "من:"&listrs("myname")&"----"&listrs("mytitle")&"الوقت:"&listrs("nowtime")&"
"&listrs("mybody")&"
"
ط=ط+1
'الخطوتان أعلاه هما النقاط الأساسية. أثناء إخراج كل رسالة، قم بإخراج مربع اختيار. تتمثل وظيفة هذا المربع في إرجاع قيم مختلفة عند تحديدها أو إلغاء تحديدها.
listrs.movenext
com.wind
تعيين listrs=لا شيء
'زر إرسال الإخراج وعلامة نهاية النموذج
استجابة.كتابة
3. تحليل الكود
ليس من السهل فهم الكود، لذلك اسمحوا لي أن أشرح:
1. عند تنفيذ البرنامج لأول مرة، إذا كان request("delit"&i)<>فارغًا، فسيتم دائمًا إرجاع قيمة خاطئة لأنه لم يتم تحديد خانة الاختيار، ثم يتم إخراج جميع الرسائل.
2. بعد تحديد الرسالة المراد حذفها، اضغط على "زر الحذف" وأعد التنفيذ.
3. بعد حذف كافة الرسائل المحددة، قم بإخراج لوحة الرسائل.