Yang pertama adalah pembuatan recordset. Kode copy kode paging sederhana adalah sebagai berikut:
<%
set rs=server.createobject(adodb.recordset)
exce=sql 'pernyataan permintaan sql
rs.open exce,sambungan,1,1
%>
Lalu ada pengaturan properti paging
<%
rs.PageSize=3 'Tetapkan nomor halaman
pagecount=rs.PageCount 'Dapatkan total nomor halaman
page=int(request(halaman)) 'Terima nomor halaman
jika halaman<=0 maka halaman=1 'Hakim
jika permintaan(halaman)= maka halaman=1
rs.AbsolutePage=page 'Tetapkan nomor halaman dari halaman ini
%>
Terakhir, tampilan paging di badan
<%
jika rs.bof dan rs.eof maka
respon.tulis(NULL)
kalau tidak
untuk i=1 hingga rs.PageSize
respon.tulis rs(nama)
respon.tulis(<jam>)
rs.movenext
Berikutnya
berakhir jika
%>
<p>
<%jika halaman=1 dan bukan halaman=jumlah halaman maka%>
Beranda|Halaman sebelumnya
<a href=log1.asp?page=<%=page+1%>>Halaman berikutnya</a>|
<a href=log1.asp?page=<%=pagecount%>>Halaman terakhir</a>
<%elseif halaman<>1 dan bukan halaman=jumlah halaman lalu%>
<a href=log1.asp?page=1>Beranda</a>|
<a href=log1.asp?page=<%=page-1%>>Halaman sebelumnya</a>|
<a href=log1.asp?page=<%=page+1%>>Halaman berikutnya</a>|
<a href=log1.asp?page=<%=pagecount%>>Halaman terakhir</a>
<%elseif halaman=jumlah halaman lalu%>
<a href=log1.asp?page=1>Beranda</a>|
<a href=log1.asp?page=<%=page-1%>>Halaman sebelumnya</a>|
Halaman selanjutnya|
Halaman terakhir
<%akhir jika%>