الفقرة التالية هي رمز الترحيل الأساسي:
＜ ٪ sql = "SELECT ................................................................................................................................................................................................................................................................................................... يمكن تقسيم الصفحات إلى page total = request.querystring ("page") "عدد الصفحات التي تم تمريرها عبر المتصفح 'إذا كان البيان ينتمي إلى عملية استكشاف الأخطاء وإصلاحها الأساسية إذا كانت isempty (صفحة) أو cint (page) ＜ 1 ثم الصفحة = 1 الإخراج هنا ...........................................................................................................................................................................................................................لقد قام النظام بالفعل بتجميع البيانات. دعونا نلقي نظرة على تعريف وظيفة ترقيم الصفحات التي تمت مناقشتها هذه المرة.
＜ ٪ pageurl (purl) dim eurl txts = request.ServerVariables ("url") txts = left (txts ، instrev (txts ، "/" ، len (txts))-1) eurl = "http: //" ؛ & request.ServerVariables ("server_name") & txts لـ i = 1 to allpages txt = "" txt = "＜ strong>" txt = txt & "＜ a href =" & url & purl & "page =" & i & " cint (page) ثم txt = txt & "＜/font>" txt = txt & "＜/a> ∥ ＜/strong>" استجابة.احفظ نسخة رمز دالة الولادة أعلاه في ملف ASP. استخدم تضمينها لتقديمها في الصفحة التي تحتاج إلى استخدامها للاتصال بها كلما تم الاتصال ("/اسم الملف الذي تسمى؟") على ما يرام. على سبيل المثال ، إذا كنت ترغب في الاتصال به في صفحة الأخبار الخاصة بي ، فهي <٪ Call ("/news.asp؟") ٪>
ما رأيناه للتو محدود ، مما يعني أنه في الجزء الأول من التعليمات البرمجية ، باستثناء محتوى استعلام SQL ومحتوى الإخراج ، لا يمكن تغيير المتغيرات الأخرى التي تعلن أن مجموعة السجلات ، وإلا فلن تكون قادرة على التشغيل. في الواقع ، هذا البرنامج غير ذي صلة. أهم شيء هو أن وظيفة ترقيم الصفحات هذه يمكن استدعاؤها في أي ورقة ASP.