<%
""برنامج الصفحة""
'total_records إجمالي عدد السجلات
يعرض everypage_records عدد السجلات في كل صفحة
'current_page رقم الصفحة الحالية
' url عنوان URL المطلوب تمريره، والذي يمكن أن يحتوي على متغيرات سيتم تمريرها، مثل "list.asp؟" أو "list.asp?keyword=key&"
"استدعاء البرنامج بسيط نسبيًا، لكنه لا يزال أكثر إزعاجًا من PHP. استمر في العمل الجاد على
sub show_page(total_records,everypage_records,current_page,url)
إذا كان IsNumeric (total_records) إذن.
Total_records=Int(total_records)
آخر
Total_records=0
نهاية إذا
إذا كان IsNumeric (everypage_records) ثم
everypage_records=Int(everypage_records)
إذا everypage_records<=0 ثم
everypage_records=10
نهاية إذا
آخر
everypage_records=10
نهاية إذا
إذا كان IsNumeric (current_page) ثم
current_page=Int(current_page)
آخر
current_page=1
نهاية إذا
'احصل على العدد الإجمالي للصفحات، أي الصفحة الأخيرة
إذا كان Total_records mod everypage_records=0 إذن
last_page=Int(total_records/everypage_records)
آخر
last_page=Int(total_records/everypage_records)+1
نهاية إذا
"حدد ما إذا كانت الصفحة الحالية تلبي المعيار وأرفق القيمة بالصفحة."
إذا current_page>=last_page إذن
page=last_page
elseif current_page<=1 إذن
الصفحة=1
آخر
page=current_page
نهاية إذا
"الصفحة السابقة."
إذا كانت الصفحة <=0 ثم
الإعدادية=0
آخر
prepg=page-1
نهاية إذا
"الصفحة التالية."
إذا كانت الصفحة = last_page ثم
التاليpg=0
آخر
nextpg=page+1
نهاية إذا
"ابدأ التسجيل على هذه الصفحة."
firstcount=prepg*everypage_records
"إنهاء سجل هذه الصفحة."
إذا كان nextpg>=1 إذن
lastcount=(nextpg-1)*everypage_records
آخر
lastcount=total_records
نهاية إذا
'بدء تشغيل الرمز الشريطي للتنقل عبر الترحيل
صفحة ناف ="
صفحة 1 = ""
pagenav=pagenav&"عرض سجلات <b>"&firstcount&"-"&lastcount&"</b> في إجمالي <b>"&total_records&"</b> السجلات"
pagenav1=pagenav1&"إظهار سجلات <b>"&firstcount&"-"&lastcount&"</b> في إجمالي سجلات <b>"&total_records&"</b>"
إذا last_page> 1 ثم
'عندما تكون هناك صفحات أمامية وخلفية
pagenav=pagenav&" <a href='"&url&"page=1'>الصفحة الرئيسية</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>الصفحة الرئيسية</a> "
إذا prepg>=1 ثم
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>الصفحة السابقة</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>الصفحة السابقة</a> "
آخر
pagenav=pagenav&"الصفحة السابقة"
pagenav1=pagenav1&"الصفحة السابقة"
نهاية إذا
إذا كان nextpg>=1 إذن
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>الصفحة التالية</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>الصفحة التالية</a> "
آخر
pagenav=pagenav&"الصفحة التالية"
pagenav1=pagenav1&"الصفحة التالية"
نهاية إذا
pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>الصفحة الأخيرة</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&last_page&"'>الصفحة الأخيرة</a> "
pagenav=pagenav&"انتقل إلى الصفحة <input type=text name=text100 id=text100 value="&page&" size=3><input type=button name=button100 value=go onclick='window.location=""&url&" الصفحة = ""+text100.value'>"
pagenav=pagenav&" Total "&last_page&" page"
pagenav1=pagenav1&" إلى الصفحة <نوع الإدخال=اسم النص=text101 id=text101 value="&page&" size=3><نوع الإدخال=اسم الزر=button101 value=go onclick= ' window.location="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" إجمالي "&last_page&" الصفحات"
نهاية إذا
نهاية الفرعية
%>