implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP
 ASPTurkiye.com Forum : ASP
Konu Konu: Asp Sayfalama Sorunu Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
indra
Yeni Üye
Yeni Üye


Kayıt Tarihi: 14-Şubat-2007
Ülke: Turkiye
Gönderilenler: 2
Gönderen: 14-Şubat-2007 Saat 19:39 | Kayıtlı IP Alıntı indra

Arkadaslar asp de yeniyim.Sayfalama yapmaya calısıyorum fakat bi sürü hatayla karsılasyorum Nette sayfalama scriptleri var onları uyarlamaya calıstım ama onu da basaramadım.Bu konuda bana yardımcı olabilirseniz sevinirim.

__________________
İndr@
Yukarı Dön Göster indra's Özellikler Diğer Mesajlarını Ara: indra
 
grayder
Yeni Üye
Yeni Üye


Kayıt Tarihi: 12-Ocak-2007
Ülke: Türkiye
Gönderilenler: 21
Gönderen: 14-Şubat-2007 Saat 21:10 | Kayıtlı IP Alıntı grayder

buna uyarla

bi sorun olursa yaz

<%

'kaç adet kayıt görünmesini istiyorsan 20 yi değiştir 
Kayit_Sayisi = 20

'database dosyanın adını yaz değiştir
Db_Yer =
Server.MapPath("../db/db_dosya_adın.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 tablo_adın"
Baglanti.
Open bSQL, Kayit, 1, 3


Baglanti.PageSize = Kayit_Sayisi
Baglanti.CacheSize = 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
"Kayyt bulunamady!"

Else

    Baglanti.AbsolutePage = Gosterilen_kayit  

End If  

i = 0

Do While i < Kayit_Sayisi and Not Baglanti.Eof
%>

<b><%
=Baglanti("haber_baslik" ) %></b><br>
<%
=Baglanti("haber" ) %><br><br>

<%
  
i = i + 1
Baglanti.
Movenext
Loop
%>


Sayfalar : <%
For k=1 To Toplam_Kayit %>

                   <%
If k=Gosterilen_Kayit Then %>
                            <%
=k %>
                   <%
Else %>
                            <b><a href='<%
=Request.ServerVariables("SCRIPT_NAME" ) %>?Sayfa=<%=k %>'><%=k %></a></b>
                   <%
End If %>

           <%
Next %>

Yukarı Dön Göster grayder's Özellikler Diğer Mesajlarını Ara: grayder
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.