أفكار جديدة لعرض صفحات المقالات الطويلة وأفكار جديدة لعرض شريط أرقام الصفحات

في اليومين الماضيين، استغلت وقت فراغي في البرمجة وفكرت في طرق التنفيذ البسيطة لترقيم الصفحات وأشرطة أرقام الصفحات للمقالات الطويلة.

الفكرة هي VBSCRIPT.

CurrentPage=Request.QueryString("page")
'الصفحة الحالية تعني الصفحة الحالية

PageCount = Int(Len(Content)/SIZE) + 1
'المحتوى عبارة عن محتوى مقالة طويلة
'الحجم هو عدد الكلمات المعروضة في كل صفحة
'PageCount هو رقم الصفحة للصفحة الأخيرة

START=Cint((CurrentPage-1)*SIZE+1)
'START هو عدد الكلمات الأولي في كل صفحة.

إذا كان START<1، فإن START=1
المحتوى = منتصف (المحتوى، ابدأ، الحجم)
"النص الموجود في كل صفحة مقطوع في الأعلى

" وفي الأسفل يوجد شريط أرقام الصفحة إنه أمر خيالي، ولكنه بسيط وعملي للغاية. . . أعتقد أنه يكفي للترحيل العام.
'PAGEBAR_COUNT تعني عدد أرقام الصفحات التي يتم عرضها في كل مرة، وهي ليست دقيقة جدًا لأنني قسمتها على اثنين وقمت بتقريبها (السعال، لا بأس بذلك تقريبًا، هاها).
PageBar="<br/><a href="""&FileName&"?act=View&id="&ID&"&Page=1"">[<<]</a>"
من أجل i=CurrentPage-Cint(PAGEBAR_COUNT/2) إلى CurrentPage+Cint(PAGEBAR_COUNT/2)
إذا كان i>0 وi<=PageCount، فعندئذٍ PageBar=PageBar&"<a href=""&FileName&"?act=View&id="&ID&"&Page="&i&"">["&i&"]</a>"
التالي
PageBar=PageBar&"<a href=""&FileName&"?act=View&id="&ID&"&Page="&PageCount&"">[>>]</a>"

المصدر: مدونة Sipo
http://www.dc9.cn/post/272.html