Direkomendasikan: Metode untuk mem -parsing berbagai jenis file data di ASP 1. Buat objek MDBrecordset. Basis data MDB adalah database lengkap yang mungkin berisi beberapa tabel data. Dalam fungsi ini, fungsi koneksi adalah untuk terhubung ke database, dan fungsi Recordset adalah untuk membuka tabel data. Function CreateMdBrecordset (Nama File Basis Data, Nama Tabel Data atau Pilih Pernyataan) Dim Conn, Penyedia, DBPAT
Format tampilan:
NAMA ID | Nama ID
1 Juliet | 2 Palyboy
3 Baby | 4 Tom
5 Lena | 6 Jery
Jumlah halaman sebelum dan sesudah halaman: 1/4 6 item/jumlah total catatan pada halaman: 25 item
Kode:
<!-#Sertakan file = conn.asp-> <Html> <body bgcolor =#fffff text =#000000> <Lebar Tabel = 60% Border = 1 Align = Center> <% redup redup SQL msg_per_page = 4 'Tentukan jumlah catatan yang ditampilkan per halaman Set RS = Server.CreateObject (ADODB.Recordset) SQL = SELECT * Dari Pusat Pusat oleh ID 'Ubahnya menjadi Pernyataan SQL Anda sendiri rs.cursorlocation = 3 'Menggunakan kursor klien dapat meningkatkan efisiensi rs.pagesize = msg_per_page 'Tentukan catatan Halaman yang disetel nomor catatan per halaman rs.open sql, conn, 0,1 Jika err.number <> 0 lalu 'penanganan kesalahan Response.Write Operasi Database Gagal: & Err.Description err.clear kalau tidak Jika tidak (rs.eof dan rs.bof) maka 'deteksi apakah set rekaman kosong TotalRec = Rs.RecordCount 'TotalRec: Jumlah Total Catatan Jika Rs.RecordCount mod msg_per_page = 0 maka 'Hitung jumlah total halaman, RecordCount: Jumlah total catatan data n = rs.recordcount/msg_per_page 'n: Jumlah total halaman kalau tidak n = rs.recordcount/msg_per_page+1 akhiri jika currentPage = request (halaman) 'currentpage: halaman saat ini Jika SurrentPage <> lalu currentpage = cint (currentpage) Jika Surrentpage <1 maka currentpage = 1 akhiri jika Jika err.number <> 0 lalu err.clear currentpage = 1 akhiri jika kalau tidak currentpage = 1 Akhiri jika Jika currentpage*msg_per_page> totalRec dan tidak ((currentpage-1)*msg_per_page <totalRec) Kemudian currentpage = 1 akhiri jika rs.Absolutepage = currentpage 'Absolutepage: Setel pointer ke awal halaman rowcount = rs.pagesize 'halaman: atur jumlah catatan data untuk setiap halaman redup i redup k %> <tr align = center valign = middle> <TD Lebar = 25%> ID1 </td> <td width = 25%> name1 </td> <TD Lebar = 25%> ID2 </td> <td width = 25%> name2 </td> </tr> <%lakukan sementara tidak rs.eof dan rowcount> 0%> <tr align = center valign = middle> <Lebar TD = 25%> <%= Rs (id)%> </td> <TD Lebar = 25%> <%= Rs (TestName)%> </td> <td> <% RowCount = RowCount-1 rs.movenext Jika tidak rs.eof maka %> <%= rs (id)%> </td> <TD Lebar = 25%> <%= Rs (TestName)%> </td> </tr> <% RowCount = RowCount-1 rs.movenext kalau tidak Response.write & nbsp; </td> <td> & nbsp; </td> </tr> akhiri jika lingkaran akhiri jika akhiri jika rs.close Setel RS = tidak ada %> </boable> |
Bagikan: Parse parameter sintaks dari fungsi tanggal Deskripsi Mengembalikan interval waktu antara dua tanggal. Sintaks tanggal (interval, date1, date2 [, firstdayofweek] [, firstweekofyear]]) sintaks fungsi dateff memiliki parameter berikut: Parameter deskripsi interval diperlukan. Ekspresi string mewakili interval waktu yang digunakan untuk menghitung Tanggal1 dan Tanggal2. Nilai terkait
2 halaman Total halaman sebelumnya halaman berikutnya