Penjelasan rinci tentang produksi paging modular asp

Paging modular

1. Blok pernyataan kueri

<%
Dapatkan nama file saat ini
temp = Split(permintaan.ServerVariables("URL"), "/")
fy = temp(UBound(temp))
set rs=server.createobject("adodb.recordset")
jika tidak kosong(permintaan("halaman")) maka
jumlah halaman=cint(permintaan("halaman"))
kalau tidak
jumlah halaman=1
berakhir jika
sql="pilih pernyataan kueri"
rs.open sql,sambungan,1,1
rs.pagesize=10 Jumlah catatan paging
jika jumlah halaman>rs.jumlah halaman atau jumlah halaman<=0 maka
jumlah halaman=1
berakhir jika
jika rs.eof dan rs.bof maka%>

<div align="center" class="001"><br>
Maaf, tidak ada catatan yang cocok dengan kriteria pencarian! <br>
</div>

2. Tampilkan blok catatan

<%
kalau tidak
rs.AbsolutePage=jumlah halaman
lakukan saat tidak rs.eof %>

Catatan yang ditampilkan

<% i=i+2
rs.movenext
jika i>=rs.PageSize lalu keluar, lakukan
lingkaran
'www.downcodes.com
%>

3.
Efek paginasi
<tabel lebar="778" border="0" align="center" cellpadding="0" Cellspacing="0">
<tr menyelaraskan="tengah">
<% jika rs.pagecount=1 maka %>
<td height="35" colspan="4" class=001><font color="#000000">Ada [<font color="#ff0000"><%=rs.recordcount%></font>] total Informasi yang ditampilkan saat ini adalah <font color="red">1~<%=rs.recordcount%></font></font></td>
</tr>
<tr>
<%lainnya%>
<td width="19%" height="35" align="center" valign="middle" class=001><font color="#000000">
<% page_start=(jumlah halaman-1)*rs.pagesize
jika jumlah halaman=1 maka halaman_mulai=1
page_end=rs.pagesize*jumlah halaman
jika pagecount*rs.pagesize=>rs.recordcount maka page_end=rs.recordcount berakhir jika%>
Total [<font color="#ff0000"><%=rs.recordcount%></font>] informasi</font></td>
<td width="58%" height="30" align="center" class="fy"><font color="#000000">
<%
jika jumlah halaman>5 dan jumlah halaman< rs.PageCount-5 dan rs.pagecount>10 maka
qizu=jumlah halaman-4
menit=jumlah halaman+5
respon.tulis"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Beranda</font></a>&nbsp;"
respon.write"<a href="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Halaman sebelumnya</font></a>&nbsp;"
untuk ipage=qizu ke min
jika ipage<>jumlah halaman maka
respon.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a>&nbsp;"
kalau tidak
respon.tulis "<font color='#FF0000'>"&ipage&"</font> "
berakhir jika
Berikutnya
respon.write"<a href="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Halaman berikutnya</font></a>&nbsp;"
respon.write"<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Halaman terakhir</font></a>"
berakhir jika
jika rs.PageCount<11 maka
untuk ipage=1 hingga rs.PageCount
jika ipage<>jumlah halaman maka
respon.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a>&nbsp;"
kalau tidak
respon.tulis "<font color='#FF0000'>"&ipage&"</font> "
berakhir jika
Berikutnya
berakhir jika
jika jumlah halaman < 6 dan rs.PageCount>10 maka
untuk ipage=1 hingga 10
jika ipage<>jumlah halaman maka
respon.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a>&nbsp;"
kalau tidak
respon.tulis "<font color='#FF0000'>"&ipage&"</font> "
berakhir jika
Berikutnya
respon.tulis "<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Halaman terakhir</font></a>"
berakhir jika
jika jumlah halaman>rs.PageCount-6 dan rs.PageCount>10 maka
respon.tulis "<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Beranda</font></a>&nbsp;"
untuk ipage=rs.PageCount-9 hingga rs.PageCount
jika ipage<>jumlah halaman maka
respon.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a>&nbsp;"
kalau tidak
respon.tulis "<font color='#FF0000'>"&ipage&"</font> "
berakhir jika
Berikutnya
berakhir jika
%>
</font></td><form name=go2to form method=Posting tindakan=<%=fy%>>
<td lebar="13%" align="center" valign="middle" class="fy">
<input type='hidden' name='sortid' value="<%=sortid%>"><input type='hidden' name='typeid' value="<%=typeid%>"><input type= 'tersembunyi' nama='qylb' value="<%=qylb%>"><tipe masukan='hidden' nama='judul' value="<%title%>"><tipe masukan='tersembunyi' nama= 'cityid' value="<%=cityid%>"><font color='000064'> Buka <input type='text' name='page' size=2 maxLength=3>
halaman</font>
</td>
<td width="10%" align="center" valign="middle" class="fy"><input name="image" type='image' onClick=check() value='OK' src='. ./images/button_h.jpg'></td>
</bentuk>
<tr>
<td height="20" colspan="6" valign="bottom"><font color="#000000">&nbsp;
</tr>
<% berakhir jika %>
<% berakhir jika %>
</tabel>