MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > Asp > Kodlar

Verileri Sayfalayarak Sıralama

Veritabanındaki verileri bir sayfada belirlediğiniz sayıda göstererek sayfa sayfa sıralamanızı sağlar

Kategori : Asp
Gönderen : mYavuz
Telif :
Tarih : 27 A�ustos 2005
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 15483
Puan
: 8,8 / 10 (5 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
<%
'|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'| Verileri sayfalayarak sıralama
'| Murat Yavuz a.k.a doronty37 | doronty37 @ d0gma.org | mydesign @ mydesign.gen.tr
'| http://www.mydesign.gen.tr
'|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


'// Veritabanı bağlantısı yapılıyor
'// Veritabanı yolunu kendinize göre uyarlamanız gerekmekte
Set adoCon = Server.CreateObject("Adodb.Connection")
adoCon.Open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("veritabani.mdb") &";"

'// Kayıt Seti Açılıyor
'// Tablo adını kendinize göre uyarlamanız gerekmekte
Set kd = Server.CreateObject("Adodb.Reordset")
SQL = "Select * FROM tablo ORDER BY Tarih DESC"
kd.Open SQL, adoCon, 1, 3

Toplam = kd.RecordCount
If Toplam = 0 Then '// Eğer veritabanında kayıt yoksa hata mesajı veriyoruz

     Response.Write "Henüz Kayıt Yok."

Else '// Kayıt varsa sıralıyoruz

     Kayit_S = 10 '// Bir sayfyada gösterilecek kayıt sayısı
     kd.PageSize = Kayit_S

     If Request.QueryString("syf") = "" Then
          G_Kayit = 1
     Else
          G_Kayit = CInt(Request.QueryString("syf"))
     End If

     T_Kayit=kd.PageCount
     If G_Kayit > T_Kayit Then G_Kayit = TKayit
     If G_Kayit < 1 Then G_Kayit = 1

     If T_Kayit = 0 Then kd.AbsolutePage = G_Kayit 

     i = 0
     Do While i < Kayit_S And Not kd.EOF

          '// Döngü Başlıyor
          Response.Write "<p>"& kd("haber") &"</p>"

          i = i + 1
     kd.MoveNext
     Loop %>
     <div align="center"><%

     For k=1 To T_Kayit

          StrSayfaSayisi = k
          SayfaSayisi= StrSayfaSayisi
          If k = G_Kayit Then %>
               <b><%=StrSayfaSayisi%>.</b> <%
          Else %>
               <a href="?syf=<%=k%>" title="<%=k%>. Sayfaya Git"><%=StrSayfaSayisi%>.</a> <%
          End If
     Next %>
     </div><%
End If

kd.Close
Set kd = Nothing

adoCon.Close
Set adoCon = Nothing
%>
 
 

Verileri Sayfalayarak Sıralama için yazılan yorumlar

misafir   { 30 Ocak 2009 }
usta kod iyi hoş çalışıyor sayfamada sorun yokta her sayfada aynı veriyi gösteriyor

Yorum ekleyin

Anasayfa > Asp > Kodlar > Verileri Sayfalayarak Sıralama
Kategoriler:


Forum:



Bağlantılar:



    En Son Yorumlanan İçerikler:


    Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.82.79.137 | 0,12 Saniye
    © Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
    MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.