ASP Verileri Sayfalama

10.05.2011 tarihinde , Espiar tarafından yazılmış ve 307 kere okunmuş.

Bu haftaki Kısa Uygulamamızda çok sorulan sayfalamayı göreceğiz ve çözeceğiz.     Şimdi önce verilerim.mdb adında bir veritabanı oluşturun ve bunun içinde Veriler diye bir tablo ve bu tablonun da içinde Ad ile Soyad isminde iki tane alan yaratın.Sonra bu alanlarınızı veri ile doldurun.Yaklaşık 20 kayıt yaparsanız denemeleriniz kolaylaşır.     Veritabanımız hazırsa bir bağlantımızı kuralım...   <% Dim Baglanti, Db_Yer, Kayit, bSQL Db_Yer = Server.Mappath("verilerim.mdb") Set Kayit = Server.Createobject("Adodb.Connection")       Kayit.Open "DBQ="& Db_Yer &";Driver={Microsoft Access Driver (*.mdb)}" Set Baglanti = Server.CreateObject("Adodb.Recordset")       bSQL = "Select * from Veriler"       Baglanti.Open bSQL, Kayit, 1, 3 %>       Artık tablomuza bağlandık.Sıra sıralama olayları için bilgilere geldi.   <% Dim Kayit_Sayisi = 10 ' Bir sayfada görünmesini istediğiniz kayıt sayısı Baglanti.PageSize = Kayit_Sayisi Baglanti.CahceSize = Kayit_Sayisi If Request.QueryString("Sayfa") = "" Then     Gosterilen_kayit = 1 Else     Gosterilen_kayit = CInt(Request.QueryString("Sayfa")) End If Toplam_Kayit=Baglanti.PageCount If Gosterilen_kayit > Toplam_Kayit Then Gosterilen_kayit = Toplam_Kayit If Gosterilen_kayit < 1 Then Gosterilen_kayit = 1 If Toplam_Kayit = 0 Then     Response.Write "Kayıt bulunamadı!" Else     Baglanti.AbsolutePage = Gosterilen_kayit end if %>    Yukarıdaki kodlar ile hangi sayfada olduğumuzu öğreniyoruz.Bunu ise URL aracılığı ile veri yollayarak yapıyoruz. Syralama işlemine kaldığımız yerden devam edelim.Gerçi bundan sonra pek yapılacak özel bir şey yok.Bildiğimiz Şekilde verileri bir döngü ile sayfaya dökeceğiz.   <% i = 0 do while i < Kayit_Sayisi and Not Baglanti.Eof %> Ady:<%=Baglanti("Ad")%> Soyady:<%=Baglanti("Soyad")%> <hr size="1" color="black"> <% i = i + 1 Baglanti.MoveNext Loop %>     Ne güzel.İstediğimiz kadar kayıtı da sıraladık.Ama 2. ve 3. sayfalara nasıl geçeceğiz? İşte..   <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="50%"><center><font size="1"> <% for k=1 to Toplam_Kayit %> <small>[<% if k=Gosterilen_Kayit then %><b> <%=k%> </b><% else %> <a href='<%=Request.ServerVariables("SCRIPT_NAME")%>?Sayfa=<%=k%>'> <%=k%> </a> <% end if %>]</small> <% next %></font></center> </td> </tr> </table>  Etiketler : Verileri Sayfalama, asp, veri sayfalama