-
-
'ฟังก์ชั่น: Multipage (ตัวเลข, perpage, curpage, url_add)
'พารามิเตอร์: ตัวเลขจำนวนระเบียนทั้งหมด; perpage จำนวนระเบียนต่อหน้า; curpage หน้าปัจจุบัน; url_add พารามิเตอร์อื่น ๆ ของหน้าปัจจุบันเช่น? action = list &
'ผู้แต่ง: Alixi
'วันที่: 2007/7/15
'คำอธิบาย: ฟังก์ชั่นสไตล์การแบ่งแยกการแบ่งแยกสากล ASP
'ตัวอย่าง: MultiPage (100,10,2, "? action = list &")
-
functionMultiPage (ตัวเลข, perpage, curpage, url_add)
curpage = int (curpage)
dimurl
url = request.serverVariables ("script_name") & url_add
multipage = ""
Dimpage, Offset, Pagei
ifint (ตัวเลข)> int (perpage) จากนั้น
หน้า = 10
ชดเชย = 2
หรี่
ifnumbersmodcint (perpage) = 0 แล้ว
หน้า = int (ตัวเลข/perpage)
อื่น
หน้า = int (ตัวเลข/perpage) +1
endif
frompage = curpage-offset
topage = curpage+page-offset-1
ifpage> pagesthen
FromPage = 1
topage = หน้า
อื่น
Iffompage <1 จากนั้น
topage = curpage+1-frompage
FromPage = 1
if (topage-frompage) <pageand (topage-frompage) <pagesthentopage = หน้า
elesiftopage> pagesthen
FromPage = Curpage-Pages+Topage
topage = หน้า
if (topage-frompage) <pageand (topage-frompage) <pagesthenfrompage = หน้าหน้า+1
endif
endif
multipage = "<ahref = '" & url & "page = 1'> <<</a>"
forpagei = frompagetotopage
ifpagei <> curpagethen
MultiPage = MultiPage & "<ahref = '" & url & "page =" & pagei & "'> [" & pagei & "] </a>"
อื่น
multipage = multiPage & "<b> [" & pagei & "] </b>"
endif
ต่อไป
ifint (หน้า)> int (หน้า) จากนั้น
MultiPage = MultiPage & "... <ahref = '" & url & "page =" & หน้า & "'> [" & หน้า & "] >> </a>"
อื่น
MultiPage = MultiPage & "<ahref = '" & url & "page =" & หน้า & "' >>> </a>"
endif
endif
endfunction%>