รหัสเอฟเฟกต์การแบ่งหน้าดิจิตอล ASP

เมื่อเร็ว ๆ นี้เว็บไซต์ได้รับการแก้ไขและพบว่าหน้าต้นฉบับไม่มีตัวเลขมีเพียงโฮมเพจหน้าสุดท้ายหน้าถัดไปและการกระโดดที่เลือกนั้นเป็นที่นิยมมาก่อน แต่ตอนนี้ที่ได้รับความนิยมมากที่สุดคือหน้าตัวเลขอยู่ตรงกลางซึ่งเพิ่งค้นคว้าและแชร์ เพื่อนที่ต้องการมันสามารถอ้างถึงมันได้

ผล:

รหัสแกนต่างประเทศ:

การคัดลอกรหัสมีดังนี้:

-

'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

ถ้าเคาน์เตอร์ = หน้าแล้ว