Demonstrasi tabel yang menampilkan kumpulan data dalam kolom dan mengimplementasikan paging
Penulis：Eve Cole
Waktu Pembaruan：2009-06-24 17:04:30
<!-- Contoh ini menunjukkan tampilan kolom umum dari kumpulan data, karena terkadang perlu menampilkan beberapa produk per baris, bukan satu produk per baris. Jika ada tabel seperti itu yang ditampilkan dalam kolom, cukup masukkan kode berikut ke dalamnya. Dalam contoh ini, 2 record ditampilkan di setiap baris, dan kolom paging juga ditampilkan di bagian bawah. -->
<%
'Buka basis datanya
Setel samb = Server.CreateObject("ADODB.Connection")
strconn="Driver={sql server};server=localhost;database=northwind;uid=sa;pwd=sa;"
samb.Buka strconn
'Dapatkan alamat halaman ini
Redupkan nama file, posisi
namafile = Permintaan.ServerVariables("nama_skrip")
posisi = InstrRev(Namafile,"/")+1
Namafile = Tengah(Namafile,posisi)
'Buka kumpulan rekor www.downcodes.com
setel rs=server.CreateObject("adodb.recordset")
rs.open "pilih judul kesopanan, nama depan, jalur foto dari pesanan Karyawan berdasarkan deskripsi id karyawan", samb, 1,1
%>
<!-- Formulir tampilan produk-->
<tabel lebar="90%" height="300" border="0" align="center">
<%
jika tidak (rs.bof dan rs.eof) maka
halaman=4
rs.pagesize=halaman
jika tidak kosong(Request.QueryString("halaman")) maka
halaman ini=clng(Permintaan.QueryString("halaman"))
kalau tidak
halaman ini=1
berakhir jika
rscount=rs.recordcount
jika halaman ini = "" maka halaman ini = 1
jika halaman ini<1 maka halaman ini=1
if (halaman-1)*halaman>rscount lalu
jika (halaman mod rscount)=0 maka
halaman ini=rscounthalaman
kalau tidak
halaman ini=rscounthalaman+1
berakhir jika
berakhir jika
if(rscount halaman mod)=0 maka
allpages=rscountpages
kalau tidak
semua halaman=rscounthalaman+1
berakhir jika
rs.absolutepage=halaman ini
saya=1
%>
<tr>
<%lakukan saat bukan rs.eof dan halaman>0 %>
<td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt= "" lebar="100" tinggi="100" perbatasan="0"></a><br>
<%=rs("judul kesopanan")&rs("nama depan")%> </td>
<%
'Pembagian kolom terutama dilakukan dengan penilaian berikut. Dalam contoh ini, dua kolom ditampilkan di setiap baris.
jika (saya mod 2) =0 maka
%>
</tr><tr>
<%akhir jika%>
<%
halaman = halaman - 1
rs.movenext
saya=saya+1
lingkaran
berakhir jika
%>
</tabel>
<!-- /Formulir tampilan produk-->
<!-- Formulir paging produk-->
<lebar tabel="90%" border="0" align="center">
<tr>
<td> <tengah>
Total <%=allpages%> halaman Halaman saat ini <%= halaman ini %>
<% jikahalaman ini<>1 maka %>
<a href="<%=nama file&"?page=1"%>">Beranda</a> <a href="<%=namafile&"?page="&(halaman ini-1)%>">Halaman sebelumnya </a>
<% Selesai Jika %>
<% jika halaman ini<>semua halaman maka %>
<a href="<%=nama file&"?page="&(halaman ini+1)%>">Halaman berikutnya</a> <a href="<%=nama file&"?page="&allpages&""%>" >Halaman terakhir</a>
<% Selesai Jika %>
</pusat></td>
</tr>
</tabel>
<!-- /Formulir halaman produk-->
