رمز التغليف للمعرض الذي يعرض معلومات مثل "الصفحة التالية الصفحة التالية"

'*********************************************************

اسم الوظيفة: العرض

"الوظيفة: عرض معلومات مثل" الصفحة التالية الصفحة التالية "

'المعلمة: sfilename ---- عنوان الارتباط

'TotalNumber --- العدد الإجمالي

'maxperpage ---- عدد كل صفحة

'showtotal ---- هل يتم عرض العدد الإجمالي

"صفحات العرض-سواء لعرض جميع الصفحات مع قائمة منسدلة لإعادة التوجيه. لا يمكن استخدام بعض الصفحات ، وإلا فإن خطأ JS سيحدث.

'Strunit ---- وحدات العد

"قيمة الإرجاع: رمز HTML للحصول على معلومات مثل" الصفحة التالية الصفحة التالية "

'*********************************************************

وظيفة وظيفة (sfilename ، TotalNumber ، maxperpage ، showtotal ، showallpages ، strunit)

dimtotalpage ، strtemp ، strurl ، i

iftotalNumber = 0ormaxperPage = 0orisnull (maxperpage) ثم

showpage = ""

exitfunction

Endif

iftotalnumbermodmaxperPage = 0then

TotalPage = TotalNumber/maxperpage

آخر

TotalPage = TotalNumber/maxperpage+1

Endif

ifcurrentPage> TotalPageThenCurrentPage = TotalPage

strtemp = "<tablealign = 'center'> <tr> <td>"

ifshowtotal = truethen

strtemp = strtemp & "共 <b>" & totalnumber & "</b>" & strunit & ""

Endif

Strurl = Joinchar (sfilename)

ifcurrentPage <2then

strtemp = strtemp و "الصفحة الرئيسية الصفحة السابقة"

آخر

strtemp = strtemp & "<ahref = '" & strurl & "page = 1'> home </a>"

strtemp = strtemp & "<ahref = '" & strurl & "page =" & (CurrentPage-1) & "'> الصفحة السابقة </a>"

Endif

ifcurrentPage> = TotalPagethen

strtemp = strtemp & "الصفحة التالية الصفحة الأخيرة"