ASP ile sayfalama yapmak

Sizlere asp ile yapabileceğiniz basit bir sayfalama scripti yazıyorum. Bu kodu geliştirerek istediğiniz şekilde kullanabilirsiniz.


<table width="600" border="0" cellspacing="0" cellpadding="2">
 <%

 sayfa = request("sayfa") 'querystringten sayfa numarasını alırız.
 if sayfa = "" then sayfa = 1 'eğer sayfa boşsa 1. sayfadan başlasın
 Set rs = server.CreateObject("adodb.recordset")

 sql = "Select * from tabloAdi"
 rs.open sql,baglantiNesnem,1,3

 if rs.eof then 'kayıt yoksa uyarı ver
 %>
  <tr>
    <td>listeleyeceğin bilgiler</td>
  </tr>
 <%else'Kayıt varsa işlem ya

  rs.pagesize = 23 ' Bir sayfada göstereceğin kayıt sayısı
rs.absolutepage = sayfa ' hangi sayfadaysak o sayfanın kaydını göster
sayfa_sayisi = rs.pagecount ' sayfa sayısı
For i=1 to rs.pagesize ' sayfada gösterilecek kayıt sayısı kadar dön
if rs.eof then  ' kayıt bitince for döngüsünden çık
exit for
end if
 %>
  <tr>
    <td>listeleyeceğin bilgiler</td>
  </tr>
<%
rs.movenext ' bir sonraki kayıt
next ' bir kere daha dön


%>
  <tr>
    <td>Toplam Kayıt: <%=rs.recordcount%>
Sayfa:
<% for g = 1  to sayfa_sayisi ' sayfa sayısı kadar dön
if g = cint(sayfa ) then ' bu sayfada mıyız kontrolü
response.write g & "  " 'bu sayfadaysak link verme
else
response.Write "<a href=?&sayfa=" & g & " >" & g & "</a> "
end if
next
%></td>
  </tr>

<%end if ' kayıt kontrol sonu
Set rs = nothing 'Bağlantı nesnemizi kapatırız
%>
</table>