في الآونة الأخيرة ، تمت مراجعة موقع الويب ووجد أن الصفحة الأصلية لا تحتوي على أرقام ، فقط الصفحة الرئيسية ، والصفحة الأخيرة ، والصفحة التالية ، وقفزة Select كانت جميعها شائعة من قبل ، ولكن الآن الأكثر شعبية هي أن صفحة الأرقام في الوسط ، والتي تم بحثها ومشاركتها للتو. يمكن للأصدقاء الذين يحتاجون إليها الرجوع إليها.
تأثير:
الرمز الأساسي الأجنبي:
نسخة الكود كما يلي:
<٪
'Script Engg Style Pagination في ASP .. كتبه Moazam ...
وظيفة getPaginationString (الصفحة ، totalitems ، الحد ، المجاورة ، صفحة الهدف)
الافتراضيات
إذا لم يكن الأسماء (المجاورة) ، فإذا كان هناك طرف واحد إذا
إذا لم يكن الأمر غير رقمي (الحد) ثم الحد = 15 نهاية إذا
إن لم يكن isnumberic (صفحة) ثم الصفحة = 1 نهاية إذا
إذا كان TargetPage = "" ثم TargetPage = "/" END IF
الهامش = ""
حشو = ""
'vars الأخرى
Prev = page - 1''previous Page هي الصفحة - 1
NextPage = صفحة + 1'nextPage صفحة الصفحة + 1
LastPage = Ceil (TotalItems ، Limit) 'papage هو = إجمالي العناصر / العناصر لكل صفحة ، مستدير.
LPM1 = LastPage - 1'last صفحة ناقص 1
'الآن نطبق قواعدنا ونرسم كائن ترقيم الصفحات.
نحن في الواقع نقوم بحفظ الكود لمتغير في حال أردنا رسمه أكثر من مرة.
ترقيم الصفحات = ""
إذا آخر صفحة> 1 ثم
ترقيم الصفحات و "<divpagination" ""
إذا كان الهامش <> "" أو الحشو <> "ثم
ترقيم الصفحات و "style =" ""
إذا كان الهامش <> "" ثم
ترقيم الصفحات و "الهامش: الهامش"
إنهاء إذا
إذا كان الحشو <> "" ثم
ترقيم الصفحات و "الحشو: الحشو"
إنهاء إذا
ترقيم الصفحات و "" ""
إنهاء إذا
ترقيم الصفحات و ">"
زر سابق
إذا صفحة> 1 ثم
ترقيم الصفحات و "<a href =" "" "& targetpage &" & page = "& prev &" ""> prev </a> "
آخر
ترقيم الصفحات و "<spandisabled" "> Prev </span>"
إنهاء إذا
صفحات
إذا كانت الصفحة الأخيرة <7 + (مجاورة * 2) ، فلنوت صفحات كافية لكلا من تفكيكها
للعداد = 1 لآخر صفحة
إذا عداد = الصفحة ثم