<%
'***********************************
'Fungsi: Multipage (angka, Perpage, Curpage, URL_ADD)
'Parameter: angka, jumlah total catatan; Perpage, jumlah catatan per halaman; Curpage, halaman saat ini; Url_add, parameter lain dari halaman saat ini seperti? Action = list &
'Penulis: Alixi
'Tanggal: 2007/7/15
'Deskripsi: Fungsi gaya pagination universal ASP
'Contoh: Multipage (100,10,2, "? Action = List &")
'***********************************
FunctionMultipage (angka, perpage, curpage, URL_ADD)
Curpage = int (Curpage)
Dimurl
Url = request.serverVariable ("script_name") & url_add
Multipage = ""
DiMPage, Offset, Pagei
Ifint (Numbers)> int (Perpage) lalu
Halaman = 10
Offset = 2
Dimpages, Frompage, Topage
IfNumbersModCint (Perpage) = 0then
Halaman = int (angka/perpage)
Kalau tidak
Halaman = int (angka/perpage) +1
Endif
Frompage = Curpage-offset
Topage = Curpage+Page-offset-1
Ifpage> pagesthen
Frompage = 1
Topage = halaman
Kalau tidak
Iffrompage <1then
Topage = Curpage+1-frompage
Frompage = 1
If (topage-frompage) <pageand (topage-frompage) <pagesthentopage = halaman
Elseiftopage> pagesthen
Frompage = Curpage-halaman+Topage
Topage = halaman
If (topage-frompage) <pageand (topage-frompage) <pagesthenfrompage = halaman-halaman+1
Endif
Endif
Multipage = "<ahref = '" & url & "halaman = 1'> <<</a>"
ForPagei = dariPagetotopage
Ifpagei <> curpagethen
Multipage = multipage & "<ahref = '" & url & "page =" & pagei & "'> [" & pagei & "] </a>"
Kalau tidak
Multipage = multipage & "<b> [" & pagei & "] </b>"
Endif
Berikutnya
Ifint (halaman)> int (halaman) lalu
Multipage = multipage & "... <ahref = '" & url & "halaman =" & halaman & "'> [" & halaman & "] >> </a>"
Kalau tidak
Multipage = multipage & "<ahref = '" & url & "halaman =" & halaman & "' >>> </a>"
Endif
Endif
Endfunction%>