เมื่อเร็ว ๆ นี้เว็บไซต์ได้รับการแก้ไขและพบว่าหน้าต้นฉบับไม่มีตัวเลขมีเพียงโฮมเพจหน้าสุดท้ายหน้าถัดไปและการกระโดดที่เลือกนั้นเป็นที่นิยมมาก่อน แต่ตอนนี้ที่ได้รับความนิยมมากที่สุดคือหน้าตัวเลขอยู่ตรงกลางซึ่งเพิ่งค้นคว้าและแชร์ เพื่อนที่ต้องการมันสามารถอ้างถึงมันได้
ผล:
รหัสแกนต่างประเทศ:
การคัดลอกรหัสมีดังนี้:
-
'Digg Style Pagination Script ใน ASP .. เขียนโดย Moazam ... http://www.moazam.com/2007/03/30/asp-digg-style-pagination-script/
ฟังก์ชั่น getPaginationString (หน้า, TotalItems, Limit, Adjacents, TargetPage)
'ค่าเริ่มต้น
ถ้าไม่ใช่ isnumeric (อยู่ติดกัน) แล้วอยู่ติดกัน = 1 สิ้นสุดถ้า
หากไม่ได้เป็น numeric (ขีด จำกัด ) จากนั้น จำกัด = 15 สิ้นสุดถ้า
ถ้าไม่ใช่ isnumeric (หน้า) จากนั้น page = 1 end ถ้า
ถ้า targetPage = "" จากนั้น targetPage = "/" สิ้นสุดถ้า
มาร์จิ้น = ""
padding = ""
'vars อื่น ๆ
prev = หน้า - 1'previous page คือหน้า - 1
NextPage = หน้า + 1'NextPage หน้าคือหน้า + 1
LastPage = CEIL (TotalItems, Limit) 'LastPage คือ = รายการทั้งหมด / รายการต่อหน้า, ปัดเศษขึ้น
lpm1 = lastpage - 1'last หน้าลบ 1
'ตอนนี้เราใช้กฎของเราและวาดวัตถุการปนเปื้อน
'เรากำลังบันทึกรหัสเป็นตัวแปรในกรณีที่เราต้องการวาดมากกว่าหนึ่งครั้ง
pagination = ""
ถ้า LastPage> 1 แล้ว
Pagination = Pagination & "<divpagination" ""
ถ้ามาร์จิ้น <> "" หรือช่องว่าง <> "" แล้ว
PAGINATION = PAGINATION & "Style =" ""
ถ้ามาร์จิ้น <> "" แล้ว
การปนเปื้อน = การแบ่งหน้า & "มาร์จิ้น: มาร์จิ้น"
สิ้นสุดถ้า
ถ้า padding <> "" แล้ว
Pagination = การแบ่งแยกและ "padding: padding"
สิ้นสุดถ้า
การปนเปื้อน = การแบ่งหน้า & "" ""
สิ้นสุดถ้า
การปนเปื้อน = การแบ่งหน้า & ">"
ปุ่มก่อนหน้า
ถ้าหน้า> 1 แล้ว
pagination = pagination & "<a href =" "" & targetPage & "& page =" & prev & ""> prev </a> "
อื่น
pagination = pagination & "<spandisabled" "> prev </span>"
สิ้นสุดถ้า
หน้า
ถ้า LastPage <7 + (ติดกับ * 2) แล้วหน้าไม่เพียงพอที่จะทำลายมัน
สำหรับ counter = 1 ถึง lastPage
ถ้าเคาน์เตอร์ = หน้าแล้ว