<%
'Program halaman
' total_records jumlah total catatan
' everypage_records menampilkan jumlah catatan per halaman
' halaman_saat ini nomor halaman saat ini
' url URL yang akan diteruskan, yang dapat berisi variabel yang akan diteruskan, seperti "list.asp?" atau "list.asp?keyword=key&"
' Pemanggilan program relatif sederhana, tetapi masih lebih merepotkan daripada PHP. Terus bekerja keras.
sub show_page(total_records,everypage_records,current_page,url)
jika IsNumeric (total_records) maka
total_catatan=Int(total_catatan)
kalau tidak
total_catatan=0
berakhir jika
jika IsNumeric (everypage_records) maka
everypage_records=Int(setiaphalaman_records)
jika everypage_records<=0 maka
setiaphalaman_catatan=10
berakhir jika
kalau tidak
setiaphalaman_catatan=10
berakhir jika
jika IsNumeric (halaman_saat ini) maka
halaman_saat ini=Int(halaman_saat ini)
kalau tidak
halaman_saat ini=1
berakhir jika
'Dapatkan jumlah total halaman, yaitu halaman terakhir
jika total_records mod everypage_records=0 maka
last_page=Int(total_records/setiaphalaman_records)
kalau tidak
halaman_terakhir=Int(total_catatan/setiaphalaman_catatan)+1
berakhir jika
'Tentukan apakah halaman_saat ini memenuhi standar dan lampirkan nilainya ke halaman
jika halaman_saat ini>=halaman_terakhir maka
halaman=halaman_terakhir
elseif halaman_saat ini<=1 lalu
halaman=1
kalau tidak
halaman=halaman_saat ini
berakhir jika
'Halaman sebelumnya
jika halaman<=0 maka
persiapan=0
kalau tidak
persiapan=halaman-1
berakhir jika
'Halaman selanjutnya
jika halaman=halaman_terakhir maka
hal berikutnya=0
kalau tidak
halaman berikutnya=halaman+1
berakhir jika
'Mulai merekam di halaman ini
hitungan pertama=persiapan*setiaphalaman_catatan
'Akhiri catatan halaman ini
jika hal berikutnya>=1 maka
hitungan terakhir=(halaman berikutnya-1)*setiaphalaman_records
kalau tidak
hitungan terakhir=total_records
berakhir jika
'Mulai membuka kode bilah navigasi
navigasi halaman=""
halamannav1=""
pagenav=pagenav&"Tampilkan <b>"&firstcount&"-"&lastcount&"</b> data dalam total <b>"&total_records&"</b> data"
pagenav1=pagenav1&"Tampilkan <b>"&firstcount&"-"&lastcount&"</b> data dalam total <b>"&total_records&"</b> data"
jika halaman_terakhir>1 maka
'Kalau ada halaman depan dan belakang
pagenav=pagenav&" <a href='"&url&"page=1'>Beranda</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>Beranda</a> "
jika persiapan>=1 maka
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>Halaman sebelumnya</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>Halaman sebelumnya</a> "
kalau tidak
pagenav=pagenav&"halaman sebelumnya"
pagenav1=pagenav1&"halaman sebelumnya"
berakhir jika
jika hal berikutnya>=1 maka
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>Halaman selanjutnya</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>Halaman berikutnya</a> "
kalau tidak
pagenav=pagenav&"halaman selanjutnya"
pagenav1=pagenav1&"halaman berikutnya"
berakhir jika
pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>Halaman terakhir</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&last_page&"'>Halaman terakhir</a> "
pagenav=pagenav&"Buka halaman <tipe input=nama teks=teks100 id=teks100 value="&page&" size=3><tipe input=nama tombol=button100 value=buka onclick='window.location="""&url&" halaman=""+teks100.nilai'>"
pagenav=pagenav&" total "&last_page&" halaman"
pagenav1=pagenav1&" ke halaman <tipe input=nama teks=teks101 id=teks101 value="&page&" size=3><tipe input=nama tombol=button101 value=go onclick= ' window.location="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" total "&halaman_terakhir&" halaman"
akhir jika
akhir sub
%>