'*********************************************************
'Nama fungsi: Showpage
'Fungsi: Tampilkan informasi seperti "Halaman Sebelumnya Halaman Berikutnya"
'Parameter: SFileName ---- Alamat tautan
'TotalNumber --- jumlah total
'Maxperpage ---- Jumlah setiap halaman
'Showtotal ---- Apakah jumlah total ditampilkan
'ShowAllPages-baik untuk menampilkan semua halaman dengan daftar drop-down untuk pengalihan. Beberapa halaman tidak dapat digunakan, jika tidak, kesalahan JS akan terjadi.
'Strunit ---- unit penghitungan
'Nilai Pengembalian: Kode HTML Untuk informasi seperti "Halaman Sebelumnya Halaman Berikutnya"
'*********************************************************
FunctionshowPage (SFilename, TotalNumber, Maxperpage, Showtotal, ShowallPages, Strunit)
dimtotalpage, strtemp, strurl, i
iftotalNumber = 0ormaxperpage = 0Orisnull (maxperpage) Kemudian
Showpage = ""
fungsi keluar
endif
IftotalNumberModMaxPerPage = 0then
TotalPage = TotalNumber/Maxperpage
Kalau tidak
TotalPage = TotalNumber/MAXPERPAGE+1
endif
IfCurrentPage> TotalPagethEncurrentPage = TotalPage
strtemp = "<tablealign = 'center'> <tr> <td>"
ifshowtotal = truethen
strtemp = strtemp & "共 <b>" & totalNumber & "</b>" & strunit & ""
endif
strurl = goinchar (sfilename)
IfCurrentPage <2then
strtemp = strtemp & "beranda halaman sebelumnya"
Kalau tidak
strtemp = strtemp & "<ahref = '" & strurl & "page = 1'> home </a>"
strtemp = strtemp & "<ahref = '" & strurl & "page =" & (currentpage-1) & "'> halaman sebelumnya </a>"
endif
IfCurrentPage> = TotalPagethen
strtemp = strtemp & "halaman terakhir halaman terakhir"