<%
'====================================================================================================================================================================================================
Versi xdownpageasp
'Versi 1.00
'CodeByzyKJ2000
'Email: [email protected]
'BBS: http: //bbs.513soft.net
'Program ini dapat digunakan dan dimodifikasi secara gratis. Saya berharap program saya dapat membawa kenyamanan untuk pekerjaan Anda
'Tapi tolong simpan di atas tolong penolakan
'
Fitur program
'Program ini terutama merangkum bagian paging data, dan bagian tampilan data sepenuhnya disesuaikan oleh pengguna.
'Mendukung beberapa parameter URL
'
'Petunjuk Penggunaan
'Deskripsi Parameter Program
'PapGegeSe mendefinisikan jumlah catatan untuk setiap halaman halaman paging
'Getrs mengembalikan rekor pagedset properti ini hanya dibaca
'GetConn mendapatkan koneksi database
'Getsql mendapat pernyataan kueri
'Deskripsi metode program
'Showpage menampilkan bilah navigasi halaman, satu -satunya metode publik
'
'====================================================================================================================================================================================================
Constbtn_first = "<fontface =" "webdings" "> 9 </font>" 'Tentukan gaya tampilan tombol halaman pertama
Constbtn_prev = "<fontface =" "webdings" "> 3 </font>" 'Tentukan gaya tampilan tombol pada halaman sebelumnya
Constbtn_next = "<fontface =" "webdings" "> 4 </font>" 'Tentukan gaya tampilan tombol halaman berikutnya
Constbtn_last = "<fontface =" "webdings" ">: </font>" 'Tentukan gaya tampilan tombol halaman terakhir
Constxd_align = "center" 'mendefinisikan penyelarasan informasi paging
Constxd_width = "100%" 'Menentukan ukuran kotak informasi paging
ClassXDownpage
Privatexd_pagecount, xd_conn, xd_rs, xd_sql, xd_pagesize, str_errors, int_curpage, str_url, int_totalpage, int_totalrecord, xd_surl
'===================================================================================================================================================
'Properti halaman
'Atur ukuran halaman untuk setiap halaman
'===================================================================================================================================================
Publicpropertyletpagesize (int_pagesize)
Ifisnumeric (int_pagesize) lalu
Xd_pagesize = clng (int_pagesize)
Kalau tidak
str_error = str_error & "parameter halaman tidak benar"
Showerror ()
Endif
Endproperty
PublicPropertyGetPages
Ifxd_pagesize = "" atau (not (isNumeric (xd_pagesize))) lalu
Halaman = 10
Kalau tidak
Halaman = xd_pagesize
Endif
Endproperty
'===================================================================================================================================================
'Properti Getrs
'Kembali ke Recordset Paged
'===================================================================================================================================================
Publicpropertygetrs ()
Setxd_rs = server.createObject ("adodb.recordset")