الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

سبع طرق لتنفيذ عرض ترقيم الصفحات في ASP

الكاتب：Eve Cole وقت التحديث：2025-03-21 12:32:01

تقدم هذه المقالة سبع طرق لتنفيذ عرض ترقيم الصفحات في ASP.

في نظام برمجة ASP من Microsoft ، يجعل إنشاء كائنات ADO من الوصول إلى قواعد البيانات من صفحات الويب مهمة سهلة ، خاصةً كائن مجموعة سجلات ADO يجعلها أكثر ملاءمة ومجانية لعرض إخراج بيانات التحكم. في Visual Interdev6.0 (يشار إليها فيما يلي باسم VI6.0) ، نظرًا لإدخال نماذج الكائنات مثل نموذج كائن النص (المشار إليه فيما يلي باسم SOM) ، والتحكم في وقت التصميم (يشار إليه فيما يلي باسم DTC) ، وبيئة البيانات نموذج الكائن (المشار إليه فيما يلي باسم DEOM) ، اجعل صفحات الويب أكثر ملاءمة للوصول إلى قاعدة البيانات.

نظرًا للموضوع ، فيما يتعلق بتوصيلات قاعدة البيانات ، فإن ما يلي يعطي فقط الكود والتعليقات الموجزة ، ويركز على كيفية استخدام كائنات سجلات السجلات (أو عناصر التحكم) لتنفيذ عرض ترقيم الصفحات لسجلات البيانات. وفقًا لفهمي ، فإن مفتاح عرض ترقيم الصفحات هو إتقان خصائص وطرق كائن سجل ADO أو DTC (التحكم في وقت التصميم).

يتم تلخيص هذه الأسلحة السبعة المعروضة على الصفحات إلى أربع فئات: الأسلحة الأولى والثانية التي أسميها بشكل مؤقت طريقة ASP النقية.

هذه هي الطريقة الأكثر استخدامًا على مواقع ASP المحلية. إن تنفيذ هاتين الطريقتين هو الأسهل في الفهم ، يتم استخدام مفهوم الكائن الأقل ، والحد الأدنى من متطلبات بيئة التطوير (مجرد المفكرة). يمكن القول أن جوهر هاتين الطريقتين لا يزال هو فكرة البرمجة الخاصة بـ CGI ، والتي تقدم فقط كائنات ADO في البرنامج.

أساليب DHTML الرابعة والخامسة تدعى SOM مؤقتًا.

تتطلب هاتان الطريقتان استخدام نموذج كائن البرنامج النصي من Microsoft (نموذج كائن البرنامج النصي) والميزات الجديدة لربط قاعدة البيانات لكائنات الجدول في DHTML في VI6.0 (العديد من الكتب والمقالات تقدم فقط ميزات CSS الخاصة بـ DHTML التطبيق في تصميم النمط يتجاهل إدخال خصائص ربط البيانات الخاصة به ، ويدرك دوران الصفحة على جانب العميل. ومع ذلك ، يتطلب الأمر أن يدعم متصفح المستخدم DHTML ، مثل: Microsoft Internet Explorer 4.0 وما فوق.

تتم تسمية الطريقة السادسة مؤقتًا بشكل مؤقت.

إنه يتطلب التطوير في بيئة VI6.0 ، والتي تستخدم العديد من عناصر التحكم في DTC في نموذج كائن البرنامج النصي الذي اقترحه Microsoft: RecordSet ، PageObject ، الشبكة ، إلخ لتنفيذ التحكم في الصفحة على جانب الخادم (العميل). هذه طريقة برمجة مثيرة وجديدة تعامل صفحات الويب ككائنات (يختلف نموذج الكائن هذا عن نموذج كائن DOM التقليدي ---- ) ، والتي تنفذ حقًا برمجة الكائنات الموجهة لصفحات الويب. لكن لسوء الحظ ، ربما تكون قدرتي الشخصية محدودة ، وأعتقد شخصياً أن هذه التكنولوجيا ليست ناضجة للغاية بعد.

تتم تسمية الطريقة السابعة مؤقتًا.

كما أنه يستخدم نموذج كائن بيئة البيانات الذي تم إنشاؤه في VI6.0 لإنشاء كائنات مجموعة السجلات. هذه أيضًا طريقة جديدة نادرة نسبيًا في برمجة الويب.

يمكن نسخ جميع رموز المصدر المذكورة لاحقًا.

قبل أن نبدأ في تقديم العديد من أساليب الترحيل بالتفصيل ، دعنا ننشئ قاعدة بيانات: استخدم الوصول في Office97 لإنشاء موظف. لماذا هذا بسيط؟

الطريقة الأولى لاستبدال المعلمات مباشرة

تتمثل هذه الطريقة في إنشاء كائن مجموعة سجل يدويًا ، واستخدام صفحاته (حدد عدد السجلات المعروضة لكل صفحة) ، وخصائص PageCount (إجمالي الصفحة) وخصائص Absolutepage (رقم الصفحة الحالية) للتحكم في إخراج الصفحة. يستخدم ترحيل الصفحة طريقة معلمات ترقيم الصفحات مباشرة للتحكم في دوران الصفحة. اسم صفحة الويب هو emp1.asp. رمز المصدر كما يلي:

  1. ＜ ٪ // إنشاء اتصال بقاعدة بيانات الموظف.
  2. setConn = server.createObject (adodb.connection)
  3. conn.opendriver = {microsoft accessDriver (*
  4. // إنشاء مثيل لكائن مجموعة السجلات لجدول EMP.
  5. setRs = server.createBject (adodb.recordset)
  6. Rs.Openemp ، Conn ، 3
  7. Pagesize = 10 // pagesize سمة تحدد عدد السجلات التي سيتم عرضها في كل صفحة.
  8. الصفحة = clng (طلب (صفحة)) 'نوع السلسلة تم تحويلها إلى نوع طويل
  9. ifpage ＜ 1thenpage = 1
  10. IFPAGE> RS.PAGECOUNTTHENPAGE = RS.PAGECOUNT
  11. ifpage ＜＞ 1th
  12. Response.write ＜ ahref = emp1.asp؟ page = 1 ＞ page1 ＜/a＞
  13. Response.write ＜ ahref = emp1.asp؟ page = & (page-1) & ＞ الصفحة السابقة ＜/a＞
  14. Endif
  15. ifpage ＜＞ rs.pageCountthen
  16. Response.write ＜ ahref = emp1.asp؟ page = & (page+1) & ＞ الصفحة التالية ＜/a＞
  17. Response.write ＜ ahref = emp1.asp؟ page = & rs.pageCount & ＞ الصفحة الأخيرة ＜/a＞
  18. Endif
  19. استجابة.
  20. // عرض كل صفحة
  21. // إظهار الرأس
  22. استجابة. write ＜ المركز ＞＜ TableBorder = 1 ＞
  23. Response.write ＜ tr ＞＜ td ＞ & rs.fields (Empid) .Name & ＜/td ＞
  24. Response.write ＜ td ＞ & rs.fields (lastName) .Name & ＜/td ＞
  25. Response.write ＜ td ＞ & rs.fields (firstName) .Name & ＜/td ＞＜/tr ＞
  26. // دورة عرض كل سجل
  27. rs.absolutepage = صفحة // قم بتعيين رقم الصفحة إلى سمة Abssolbage لمعرفة رقم السجل الأول للصفحة الحالية
  28. بكر = 1Tors.pagesize //
  29. استجابة. write ＜ tr ＞＜ td ＞ & rs.fields (Empid) .value & ＜/td ＞
  30. Response.write ＜ td ＞ & rs.fields (firstName) .value & ＜/td ＞
  31. Response.write ＜ td ＞ & rs.fields (lastName) .value & ＜/td ＞＜/tr ＞
  32. Rs.Movenext
  33. ifrs.eoftthenexitfor
  34. التالي
  35. استجابة. write ＜/table ＞＜/center ＞ ٪ ＞

النوع الثاني: طريقة معلمة نقل النموذج

هذه الطريقة هي نفسها الأولى عند إنشاء كائن مجموعة سجلات ، إلا أنه عند تشغيل تحكم الصفحة ، فإنها تستخدم عبارة حالة لتحقيق تحول الصفحة. اسم صفحة الويب هو: EMP2.asp. تحتوي هذه الطريقة على عيب في منطق البرمجة: ستقوم بتغيير الصفحة تلقائيًا بعد الضغط على زر الصفحة السابقة أو زر الصفحة التالية ثم الضغط على زر التحديث على المتصفح. رمز المصدر كما يلي:

  1. ifpagenum = thenpagenum = 1 // عرض من الصفحة الأولى
  2. // قم بإنشاء اتصال قاعدة البيانات وموسم سجل مثيل RS.
  3. نفس الطريقة الأولى ، تخطي هنا.
  4. rs.pagesize = 10'sit عدد السجلات المعروضة على صفحة إلى 10
  5. // تأكيد إجراء تشغيل الصفحة
  6. SelectCasereQuest (NAV)
  7. قضية
  8. الجلسة (Pagenum) = 1
  9. casefirst'firstrecord
  10. الجلسة (Pagenum) = 1
  11. caseprev'previousrecord
  12. ifsession (pagenum)> 1th
  13. الجلسة (pagenum) = الجلسة (pagenum) -1
  14. Endif
  15. casenext'nextrecord
  16. ifsession (pagenum) ＜ rs.pageCountthen
  17. الجلسة (pagenum) = الجلسة (pagenum) +1
  18. Endif
  19. Caselast'lastRecord
  20. جلسة (Pagenum) = Rs.PageCount
  21. endselect
  22. rs.absolutepage = clng (الجلسة (pagenum)) // حدد رقم السجل الأول للصفحة الحالية
  23. // إظهار الصفحة الحالية
  24. نفس الطريقة الأولى ، تخطيها هنا.
  25. // SETTINGS BUNT BUNTER STEPTIONS
  26. ＜ formmethod = getAction = emp2.asp ＞
  27. ＜ inputType = submitName = navvalue = home>
  28. ＜ inputType = submitValue = اسم الصفحة السابقة = Nav ＞
  29. ＜ inputType = submitValue = اسم الصفحة التالية = Nav ＞
  30. ＜ inputType = submitValue = اسم الصفحة الأخيرة = Nav ＞＜/form ＞

النوع الثالث: استخدم التحكم في الشبكة لتصميم الترحيل

من بين جميع الطرق ، هذه الطريقة هي الأسهل. تحتاج فقط إلى سحب التحكم في مجموعة السجلات والتحكم في الشبكة في DTC إلى صفحة الويب ASP. علاوة على ذلك ، يمكنك أيضًا اختيار ما إذا كنت تريد التحكم في دوران الصفحات على منصة الخادم أو على نظام العميل. العيب هو أنه يجب عليك عرضه بالتنسيق المقدم من ذلك ، ولا يمكنك التحكم في تنسيق العرض للجدول بنفسك.

الطريقة كما يلي:

بناء مشروع EMP.VIP في VI6.0. ثم أضف صفحة ويب ASP في المشروع: EMP3.asp.

الخطوة 1: حدد إضافة بيانات الاتصال ... على شريط القائمة VI6.0 ، واتبع مطالبات التنقل في أداة التطوير ، ويمكنك بسهولة إنشاء اتصال بقاعدة بيانات الموظف. اسحب التحكم في مجموعة التسجيلات من شريط أدوات DTC إلى صفحة الويب وقم بتعيين خصائصه. محدد كما هو موضح في الصورة:

عند سحب عنصر التحكم إلى صفحة الويب ، فإن VI6.0 سيطالبك تلقائيًا بما إذا كنت تريد استخدام نموذج كائن البرمجة النصية واضغط على نعم.

الخطوة 3: اسحب عنصر تحكم الشبكة من شريط أدوات DTC في صفحة الويب ، ثم انقر بزر الماوس الأيمن لتعيين خصائصه ، مثل: حدد اسم التحكم في مجموعة السجلات التي تم إنشاؤها في الخطوة الثانية ، وحدد الحقول في جدول EMP ، وكل صفحة كم عدد السجلات المعروضة وتنسيق العرض ، إلخ. إنها بسيطة للغاية ومريحة ، فقط اتبع مطالبات التنقل.

النوع الرابع: طريقة DHTML واحدة.

يتم عرض سجلات البيانات في جدول HTML. يستخدم خصائص ربط البيانات للجداول في DHTML للتحكم في عرض ترقيم الصفحات. العيب هو أن طريقة تشغيل صفحتك ستقتصر على طريقة محددة: فقط الصفحة السابقة والصفحة التالية ، ولكن ليس الصفحة الرئيسية والصفحة الأخيرة. نظرًا لأنه يتم التحكم فيه على جانب العميل ، فإن هذه الطريقة والطريقة الخامسة هي الأسرع ، ولكن للأسف لا يمكن استخدامها إلا على المتصفحات التي تدعم DHTML.

في DHTML ،

تتيح خاصية DataSRC للالتزام بمصدر بيانات ، ويحدد بيانات الخصائص الأخرى عدد السجلات المعروضة في صفحة في وقت واحد.

دعونا نلقي نظرة على المثال التالي:

الخطوة 1: اسحب التحكم في مجموعة السجلات إلى صفحة الويب التي تم إنشاؤها حديثًا EMP4.HTM وقم بتعيين خصائصها.

الخطوة 2: أدخل الرمز التالي:

  1. ＜ tableId = table1datasrc =#recordset1_rdsdatapagesize = 5 ＞ // على افتراض أن اسم التحكم في مجموعة السجل هو RecordSet1 قبل تعيينه. يتم عرض 5 سجلات لكل صفحة.
  2. ＜ thead ＞
  3. ＜ thalign = LeftWidth = 150 ＞ Empid ＜/th ＞ // header header table table
  4. ＜ thalign = LeftWidth = 200 ＞ اسم LastName ＜/th ＞
  5. ＜ thalign = LeftWidth = 200 ＞ FirstName ＜/th ＞
  6. ＜/thead ＞
  7. ＜ tr ＞
  8. ＜ td ＞＜ divdatafld = Empid ＞＜/div ＞＜/td ＞ // محتوى جدول الإخراج
  9. ＜ td ＞＜ divDatafld = lastName ＞＜/div ＞＜/td ＞
  10. ＜ td ＞＜ divdatafld = firstName ＞＜/div ＞＜/td ＞
  11. ＜/tr ＞
  12. ＜/الجدول ＞

الخطوة 3: بعد ذلك ، أضف زوجًا من عناصر التحكم في زر DTCS للقيام بتنقل بدوره ، أحدهما اسمه BTNPrevious (الصفحة السابقة) والآخر اسمه BTNNEXT (الصفحة التالية). البرامج النصية المقابلة لها على النحو التالي:

  1. ＜ scriptlanguage = vbscript ＞
  2. functionBtnPrevious_onclick ()
  3. Table1.PreviousPage ()
  4. الوظيفية
  5. functionBtnnext_onclick ()
  6. Table1.NextPage ()
  7. الوظيفية
  8. ＜/السيناريو ＞

النوع الخامس: طريقة DHTML اثنين

هذه الطريقة هي الكمال للطريقة الرابعة. تتيح لنا طريقة البرمجة النصية اليدوية إنشاء الصفحة الرئيسية وأزرار التنقل في الصفحة الرئيسية ، وتحديد موقع كل سجل (رقم السجل). نظرًا للطول ، سأقدم فقط مثالًا محددًا أدناه وأقدم تفسيرًا موجزًا. للحصول على خصائص وطرق أخرى من DHTML وعناصر التحكم في مجموعة السجلات ، يرجى الرجوع إلى الكتب ذات الصلة بنفسك. تجدر الإشارة هنا إلى أن التحكم في مجموعة السجلات يختلف إلى حد ما عن كائن مجموعة سجل ADO المقدمة في الطرق الأولى والثانية: لا يعطي التحكم في مجموعة السجل خصائص مثل Pagesize و PageCount ، ويجب حسابها باستخدام الطريقة المقدمة أدناه.

الخطوة 1: اسحب التحكم في مجموعة السجلات إلى صفحة الويب التي تم إنشاؤها حديثًا EMP5.HTM ، مع اسم Records1 ، وقم بتعيين خصائصها.

الخطوة 2: تحديد ثلاثة متغيرات عالمية واكتب البرنامج النصي onDatAsetComplete من RecordSet1.

  1. DimgCurrentPagenumber // رقم الصفحة الحالي
  2. dimgmaxpagenber // الحد الأقصى لعدد الصفحات
  3. DimGrecordSperPage // عدد السجلات المعروضة لكل صفحة
  4. GRECORDSPERPAGE = 5 // قم بتعيين عدد السجلات المعروضة لكل صفحة إلى 5 سجلات.
  5. functionRecordSet1_ondatasetComplete ()
  6. TotalRecordCount = RecordSet1.getCount () // إجمالي عدد السجلات
  7. gmaxpagenumber = int (TotalRecordCount/GreCordSperPage) // احصل على أقصى عدد من الصفحات
  8. إذا (TotalRecordCountModgreCordSperPage) ＞ 0then
  9. gmaxpagenumber = gmaxpagenumber+1
  10. Endif
  11. الوظيفية

الخطوة 3: قم بإنشاء زر بدوره بدوره التنقل.

  1. functionBtnfirst_onclick () 'flip إلى الصفحة الرئيسية
  2. GcurrentPagenumber = 1
  3. DisplayData ()
  4. الوظيفية
  5. functionBtnPrevious_onclick () 'Flip إلى الصفحة السابقة
  6. IfgCurrentPagenumber> 1th
  7. gcurrentPagenumber = gcurrentpagenbramber-1
  8. DisplayData ()
  9. Endif
  10. الوظيفية
  11. functionBtnnext_onclick () 'flip إلى الصفحة التالية
  12. IfgCurrentPagenumber ＜ Gmaxpagenumberthen
  13. gcurrentPagenumber = gcurrentPagenumber+1
  14. DisplayData ()
  15. Endif
  16. الوظيفية
  17. functionBtnlast_onclick () 'Flip إلى الصفحة الأخيرة
  18. gcurrentPagenumber = gmaxpagenber
  19. DisplayData ()
  20. الوظيفية

الخطوة 4: اكتب وظيفة تعرض كل صفحة. يتم استخدام العديد من خصائص وطرق DHTML ، يرجى الرجوع إلى الكتب ذات الصلة بنفسك.

  1. subdisplaydata ()
  2. startrecord = ((gcurrentPagenumber-1)*greCordSperPage)+1 // احسب عدد السجلات المعروضة في بداية كل صفحة (الموضع ، أي عنصر)
  3. rowctr = 1
  4. lblpagenumber.innerhtml = gcurrentPagenumber &/& gmaxpagenumber
  5. forrecordptr = startrecordto (startrecord+grecordsperpage-1) // ركوب الدراجات لعرض كل سجل على صفحة
  6. ifrecordptr ＞ RecordSet1.getCount () ثم // إظهار الجدول الفارغ
  7. Table1.Rows (Rowctr) .Cells (0) .innerhtml = ＜ p ＞＜/p ＞
  8. Table1.Rows (Rowctr) .Cells (1) .innerhtml = ＜ p ＞＜/p ＞
  9. Table1.Rows (Rowctr) .Cells (2) .innerhtml = ＜ p ＞＜/p ＞
  10. Table1.Rows (Rowctr) .Cells (3) .innerhtml = ＜ p ＞＜/p ＞
  11. آخر // حدد كل صفحة
  12. RecordSet1.moveabsolute (RecordPtr) // حرك مؤشر السجل.
  13. Empid = recordset1.fields.getValue (Empid)
  14. emplname = recordset1.fields.getValue (FirstName)
  15. empfname = recordset1.fields.getValue (اسمه)
  16. Table1.Rows (Rowctr) .Cells (0) .innertext = recordPtr'counter
  17. Table1.Rows (Rowctr) .Cells (1) .innertext = Empid
  18. Table1.Rows (Rowctr) .Cells (2) .innertext = emplname
  19. Table1.Rows (rowctr) .Cells (3) .innertext = empfname
  20. Endif
  21. ROWCTR = ROWCTR+1
  22. التالي
  23. ينتهي

بالإضافة إلى ذلك ، نحتاج أيضًا إلى كتابة البرنامج النصي التالي في حدث Onload لكائن النافذة:

  1. forrowctr = 1ToGrecordSperPage
  2. Table1.InserTrow (ROWCTR) "أدخل عمودًا جديدًا
  3. forcellctr = 0to3
  4. Table1.Rows (ROWCTR) .insertcell ()
  5. التالي
  6. التالي

الطريقة السادسة: دوران تحكم من جانب الخادم.

إذا قمنا بتثبيت البيانات الموجودة على الخادم ثم إخراجها إلى العميل ، فلن تكون هناك مشكلة في أن المتصفح لا يدعم DHTML. ومع ذلك ، فإن استخدام طريقة جانب الخادم يجعلنا يتعين علينا تجديد التحكم في مجموعة السجلات في كل مرة نقوم فيها بتشغيل الصفحة ، وبالتالي فإن السرعة أبطأ بالتأكيد من استخدام طريقة DHTML. ولكن إذا كان الخادم سريعًا بما فيه الكفاية ، فلن يلاحظ بطء العميل.

في المثال التالي ، سأقدم عنصر تحكم DTC جديد: PageObject. يجعل هذا التحكم صفحة الويب المحددة كائنًا ، ويمكن اعتبار الروتين الفرعي والوظائف التي ينظمها المستخدم في البرنامج النصي الخادم لصفحة الويب كطرق لكائن صفحة الويب. يوفر طريقة متقدمة لإدارة معلومات الحالة: تحتوي كائنات الويب على بعض الخصائص (المتغيرات) التي يمكن للمستخدمين تحديد عمر هذه الخصائص. بسبب الميزات المذكورة أعلاه ، فإنه يجعل من المريح للغاية تجميع البرامج النصية لتحويل الصفحات.

ولكن عيب هذه الطريقة هو: عندما تضغط على الصفحة السابقة أو زر الصفحة التالية ، ثم اضغط على زر التحديث في المتصفح ، ستقوم صفحة الويب تلقائيًا بتشغيل الصفحات. بالإضافة إلى ذلك ، إذا ضغطت على زر التراجع الموجود على المتصفح ثم اضغط على زر تشغيل الصفحة ، فيمكنك تشغيله بشكل عشوائي. كل هذا ناتج عن خصائص كائن الويب (المتغيرات العالمية).

الخطوة 1: اسحب التحكم في مجموعة السجلات إلى صفحة الويب التي تم إنشاؤها حديثًا EMP6.asp ، مع اسم Records1 ، وقم بتعيين خصائصها.

الخطوة 2: اسحب التحكم في PageObject إلى صفحة الويب وتسمية emplist. ثم انقر بزر الماوس الأيمن فوق هذا التحكم لفتح صفحة الممتلكات وتعيين ثلاث خصائص (المتغيرات العالمية) من MaxPagenumber و RecordsPerpage و CurrentPagenbrumber. يمكن لـ VI6.0 استخدام أساليب GET وتعيينها لقراءة وكتابة قيمها.

الخطوة 3: اكتب حدث OnDatasetComplete من RecordSet1.

  1. functionRecordSet1_ondatasetComplete ()
  2. RecorderPage = 5
  3. emplist.setRecordSperPage (RecordsperPage) // قم بتعيين رقم سجل كائن صفحة الويب لكل سمة صفحة إلى 5
  4. TotalRecordCount = recordset1.getCount () // احصل على العدد الإجمالي لمجموعات السجلات
  5. MPN = int (TotalRecordCount/RecordsperPage) // احسب MPN كإجمالي عدد الصفحات
  6. إذا (TotalRecordCountModRecordSperPage) ＞ 0then
  7. MPN = MPN+1
  8. Endif
  9. emplist.setmaxpagenumber (MPN)
  10. الوظيفية

الخطوة 4: اسحب أربعة عناصر تحكم الزر في صفحة الويب واكتب صفحة التحكم في الصفحة. ندرك بشكل أساسي تشغيل الصفحة بدوره عن طريق تغيير قيمة خاصية CurrentPagenumber لكائن صفحة الويب.

  1. functionBtnfirst_onclick () 'flip إلى الصفحة الرئيسية
  2. emplist.setCurrentPagenumber (1)
  3. الوظيفية
  4. functionBtnPrevious_onclick () 'Flip إلى الصفحة السابقة
  5. CPN = emplist.getCurrentPagenumber ()
  6. IFCPN ＞ 1th
  7. emplist.setCurrentPagenumber (CPN-1)
  8. Endif
  9. الوظيفية
  10. functionBtnnext_onclick () 'flip إلى الصفحة التالية
  11. CPN = emplist.getCurrentPagenumber ()
  12. IFCPN ＜ emplist.getMaxPagenumber () ثم
  13. emplist.setCurrentPagenumber (CPN+1)
  14. Endif
  15. الوظيفية
  16. functionBtnlast_onclick () 'Flip إلى الصفحة الأخيرة
  17. emplist.setCurrentPagenumber (emplist.getmaxpagenumber ())
  18. الوظيفية

للتأكد من عرض الصفحة الأولى عند إدخال الصفحة لأول مرة ، يتعين علينا كتابة حدث OnEnter لكائن صفحة الويب.

  1. FunctionEmplist_onenter ()
  2. ifemplist.firstenterdthen
  3. emplist.setCurrentPagenumber (1)
  4. Endif
  5. الوظيفية
  6. الخطوة 5: اكتب نصًا يعرض كل صفحة.
  7. ＜ hr ＞＜ tableborder = 0 ＞＜ tr ＞ // عرض الرأس
  8. ＜ thalign = LeftWidth = 35 ＞＜/th ＞
  9. ＜ thalign = LeftWidth = 150 ＞ Empid ＜/th ＞
  10. ＜ thalign = LeftWidth = 200 ＞ اسم LastName ＜/th ＞
  11. ＜ thalign = LeftWidth = 200 ＞ FirstName ＜/th ＞＜/tr ＞
  12. ＜ ٪
  13. Pagenumber = emplist.getCurrentPagenumber () // حساب المعلمات المختلفة المطلوبة لدوران الصفحة ، مثل طريقة DHTML اثنين
  14. RecordsperPage = emplist.getRecordSperPage ()
  15. StarTrecord = ((Pagenumber-1)*RecordSperPage) +1
  16. lastRecord = recordset1.getCount ()
  17. forrecordptr = startrecordto (StarTrecord+Recordpage-1) ٪ ＞
  18. ＜ ٪ ifrecordset1.eof = truethen ٪ ＞
  19. ＜ tr ＞
  20. ＜ td ＞＜/td ＞
  21. ＜ td ＞＜/td ＞
  22. ＜ td ＞＜/td ＞
  23. ＜ td ＞＜/td ＞
  24. ＜/tr ＞
  25. ＜ ٪ آخر ٪ ＞
  26. ＜ ٪ RecordSet1.moveabsolute (RecordPtr) ٪ ＞
  27. ＜ tr ＞
  28. ＜ ٪ ifrecordptr ＜ = lastrecordthen ٪ ＞
  29. ＜ td ＞＜ ٪ = RecordPtr ٪ ＞＜/td ＞
  30. ＜ ٪ آخر ٪ ＞
  31. ＜ td ＞＜/td ＞
  32. ＜ ٪ endif ٪ ＞
  33. ＜ td ＞＜ ٪ = recordset1.fields.getValue (Empid) ٪ ＞＜/td ＞
  34. ＜ td ＞＜ ٪ = recordset1.fields.getValue (lastName) ٪ ＞＜/td ＞
  35. ＜ td ＞＜ ٪ = recordset1.fields.getValue (firstName) ٪ ＞＜/td ＞
  36. ＜/tr ＞
  37. ＜ ٪ endif ٪ ＞
  38. ＜ ٪ التالي ٪ ＞
  39. ＜/الجدول ＞＜ HR ＞

النوع السابع: طريقة نموذج كائن بيئة البيانات

يقوم نموذج كائن بيئة البيانات بتجريد نموذج كائن ADO وكائناته - الاتصال والأمر وسجل مجموعة الكائنات والحقل والمعلمة - في نموذج أسهل. يكشف نموذج كائن بيئة البيانات عن الأوامر كطرق. يمكن للمستخدم استدعاء هذه الأساليب ، والتي تنفذ هذه الأوامر وإرجاع مجموعة السجلات الناتجة. للحصول على معلومات مفصلة عن نموذج كائن DEOM ، يرجى الرجوع إلى الكتب ذات الصلة. لنلقي نظرة على المثال التالي لـ EMP7.asp:

الخطوة 1: انقر بزر الماوس الأيمن على الماوس في المشروع في نافذة Explorer Project of VI6.0 وحدد إضافة اتصال البيانات من القائمة المنبثقة. بعد إنشاء اتصال بقاعدة البيانات وفقًا لمطالبات التنقل المقدمة من السادس ، يضيف المستخدم أمر بيانات للوصول إلى قاعدة البيانات من تطبيق ASP. في الوقت نفسه ، سترى كائن بيئة بيانات ضمن ملف Global.ASA في نافذة Explorer Project.

الخطوة 2: انقر بزر الماوس الأيمن فوق كائن بيئة البيانات وحدد خيار Add Data Command من القائمة المنبثقة لإضافة أمر بيانات 1. وفقًا لمطالبات التنقل في VI6.0 ، يمكنك تحديد عبارة SQL في صفحة الوراثة في نافذة Protect Properties Command1 وإدخالها: SELECT * من EMP. اضغط على موافق للعودة.

الخطوة 3: بعد إنشاء أمر البيانات هذا ، قمت بإنشاء طريقة لكائن بيئة البيانات ، وبعد ذلك يمكنك استدعاء هذه الطريقة من البرنامج النصي ، وستقوم الطريقة بإرجاع سجل محدد إلى المستخدم.

هذا page.createde () // في وضع SOM ، تمثل هذه الحالة كائن صفحة الويب الحالي ، وطريقة Createde () تنشئ كائن DE.

De.Command1 // قم بتنفيذ أمر الكائن DE ، والذي يمكن استخدامه كمعلمة لاحقًا ، وهو أمر مفيد جدًا عند القيام باستعلامات مشروطة.

تعيين rs = de.rscommand1 // de.rscommand1 يجعل كائن RS مكافئًا تمامًا لكائن سجل ADO.

الخطوة 4: نظرًا لأن RS هو كائن ADO ، فإن رمز تشغيل صفحة التنفيذ التالية يشير تمامًا إلى الأساليب المقدمة أعلاه ، ويتم تخطيها هنا.

لا ترتبط طرق أخرى مثل تلك التي تم تنفيذها في التنقل في قاعدة البيانات في ProntPage2000 بهذا الموضوع ، لذلك تم حذفه هنا.

خلاصة القول ، تحتوي كل طريقة تم تقديمها أعلاه على العديد من التقنيات الجديدة ، والتي لا يمكن اختراقها بسبب الطول. هذه المقالة تريد فقط تقديم طرق مختلفة لبرمجة ASP من خلال مثال محدد من تحول الصفحة ؛ برمجة الصفحة ؛

مقالات ذات صلة