implant


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


Kayıt Tarihi: 07-Nisan-2010
Gönderilenler: 4
Gönderen: 07-Nisan-2010 Saat 15:08 | Kayıtlı IP Alıntı yusufpolat

Herkese Merhaba

benim sorunun, arama yaptıktan sonra çıkan sonuçlardan ilk 25 tanesinin ilk sayfada görünmesini istiyorum ve 25 ten sonrakilerin ise sayfalara atmasını yani 1. sayfa, 2.sayfa gibi aşağıdaki benim arama sayfamdaki kod örneği rs.pagesize=250 yi  25 dahi yapsam hepsi yine aynı sayfada görünüyor. sayfalara ayırıyor örn. 19 sayfa görünüyor ama hepsini zaten ilk sayfada veriyor ve site aşağı doğru uzadıkca uzuyor 2. sayfaya tıkladığım zamanda boş sayfa çıkıyor. bu kodlar için yardımlarınızı bekliyor ve şimdiden teşekkür ediyorum.

 

set rs =Server.CreateObject("ADODB.recordset")
rs.open sql,bag,3,1

 rs.pagesize=250
 rs.CacheSize=rs.pagesize

   if not rs.pagecount=0 then
   if request.querystring("SN")="" then
      rs.absolutepage = 1
   else
       if  cint(request.querystring("SN")) >  rs.pagecount then
           rs.absolutepage = rs.pagecount
       else
           rs.absolutepage = cint(request.querystring("SN"))
       end if
   end if
   end if


%>
      Sayfa :
<%
 for i=1 to rs.pagecount
 if i = rs.absolutepage then
 response.write(i & "&nbsp;")
 else
 %>
 <a href="ara.asp?SN=<%=i%>
 <%
end if
next 
%>

<%
iliski=""
i=i+1
rs.movenext
loop
%>
<tr><td height="20" colspan="8" bgcolor="F0F3D0" class="black11">&nbsp;&nbsp;Sayfa :
<%
 for i=1 to rs.pagecount
 if i = rs.absolutepage then
 response.write(i & "&nbsp;")
 else
 %>
 <a href="ara.asp?SN=<%=i%> 
 <%
end if
next 
%>

Yukarı Dön Göster yusufpolat's Özellikler Diğer Mesajlarını Ara: yusufpolat
 
memreser
Yeni Üye
Yeni Üye


Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 7
Gönderen: 07-Nisan-2010 Saat 16:53 | Kayıtlı IP Alıntı memreser


Merhabalar. Aşağıdaki satırlarda ASP'de sayfalama yapmayı
örnek kodlarla anlatmaya çalıştım. Kodları inceleyip
kendine göre uyarlarsan sorun çözülecektir.


<%

'Veritabanina baglanti aciliyor

set rs =Server.CreateObject("ADODB.recordset")
rs.open sql,bag,1,3


' Sayfa numarasi tanimlaniyor
SN = Request.QueryString("SN")
if SN="" then
SN=1
end if



rs.pagesize = 50 '1 sayfada görüntülemek istediğiniz
icerik sayısı (değiştirebilirsiniz)
rs.absolutepage = SN
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for

%>



Veriler döngüsü burada olacaktır.



<%
rs.Movenext
next

%>



<%

' Sayfalar listeleniyor

for y=1 to sayfa
if SN=y then
response.write "<a href=ara.asp>1</a>"
else
response.write "<a href=ara.asp?SN="&y&">"&y&"</a>"
end if
next
%>

<br><br>

Şimdi <b><%=SN%>.</b> sayfadasınız.

<%
rs.Close
Set rs = Nothing
%>
Yukarı Dön Göster memreser's Özellikler Diğer Mesajlarını Ara: memreser
 
yusufpolat
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07-Nisan-2010
Gönderilenler: 4
Gönderen: 07-Nisan-2010 Saat 17:33 | Kayıtlı IP Alıntı yusufpolat

çok teşekkür ederim arkadaşım. hemen deneyeyim. cidden yardımların için tekrar tekrar sağol
Yukarı Dön Göster yusufpolat's Özellikler Diğer Mesajlarını Ara: yusufpolat
 
yusufpolat
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07-Nisan-2010
Gönderilenler: 4
Gönderen: 07-Nisan-2010 Saat 17:48 | Kayıtlı IP Alıntı yusufpolat

arkadaşım olmadı

 yine de tşk.ler

Yukarı Dön Göster yusufpolat's Özellikler Diğer Mesajlarını Ara: yusufpolat
 
ASPmania
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 17-Temmuz-2005
Ülke: Türkiye
Gönderilenler: 101
Gönderen: 07-Nisan-2010 Saat 22:54 | Kayıtlı IP Alıntı ASPmania

Rica ederim ne demek. Çıkan hata nedir?
Yukarı Dön Göster ASPmania's Özellikler Diğer Mesajlarını Ara: ASPmania Ziyaret ASPmania's Ana Sayfa
 
yusufpolat
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07-Nisan-2010
Gönderilenler: 4
Gönderen: 07-Nisan-2010 Saat 23:33 | Kayıtlı IP Alıntı yusufpolat

kodlar burada nedense değişiklikleri uyguladım ama hiçbir şey olmadı sizden rica etsem aşğıdaki kodları sayfalamaya göre düzenlemeniz mümkünmü acaba

 

<%
sql=""
cinsiyet=request.Form("cinsiyet")
if cinsiyet="" then cinsiyet= request.QueryString("cinsiyet")
yas1=request.Form("yas1")
if yas1="" then yas1= request.QueryString("yas1")
yas2=request.Form("yas2")
if yas2="" then yas2= request.QueryString("yas2")
sehir=request.Form("sehir")
if sehir="" then sehir= request.QueryString("sehir")
ulke=request.Form("ulke")
if ulke="" then ulke= request.QueryString("ulke")
foto=request.Form("foto")
if foto="" then foto= request.QueryString("foto")
boy=request.Form("boy")
if boy="" then boy= request.QueryString("boy")
vucut=request.Form("vucut")
if vucut="" then vucut= request.QueryString("vucut")
sac=request.Form("sac")
if sac="" then sac= request.QueryString("sac")
goz=request.Form("goz")
if goz="" then goz= request.QueryString("goz")
cift=request.Form("cift")
if cift="" then cift= request.QueryString("cift")
partner=request.Form("partner")
if partner="" then partner= request.QueryString("partner")

if cinsiyet<>"" then sql=sql&"Üyeler.[Cinsiyeti]='" & request.Form("cinsiyet") & "' and "
sql=sql& "Üyeler.[Yaşı] between (" & yas1 & ") and (" & yas2 & ") and "
if sehir<>"" then sql=sql & "Üyeler.[Şehir]='" & sehir & "' and "
if ulke<>"" then sql=sql & "Üyeler.[Ülkesi] like '%" & ulke & "%' and "
if foto<>"" then sql=sql & "(Üyeler.[resim1]<>'resimyok.jpg' or Üyeler.[resim2]<>'resimyok.jpg' or Üyeler.[resim3]<>'resimyok.jpg' or Üyeler.[resim4]<>'resimyok.jpg' or Üyeler.[resim5]<>'resimyok.jpg') and resim1onay=true and "
if boy<>"" then sql=sql & "Üyeler.[Boyu] like '%" & boy & "%' and "
if vucut<>"" then sql=sql & "Üyeler.[Vücudu] like '%" & vucut & "%' and "
if sac<>"" then sql=sql & "Üyeler.[Saçı] like '%" & sac & "%' and "
if goz<>"" then sql=sql & "Üyeler.[Gözü] like '%" & goz & "%' and "
if cift="check" then sql=sql & " Üyeler.eş=true and "
if partner<>"" then sql=" üyeler.[Kullanıcı Adı] like '%" & partner & "%' and "


iliski=request.Form("iliski")
if iliski="" then iliski= request.QueryString("iliski")


if iliski="" then

sohbet=request.Form("iliski1")
if sohbet="" then sohbet= request.QueryString("iliski1")
arkadaslik=request.Form("iliski2")
if arkadaslik="" then arkadaslik= request.QueryString("iliski2")
cinsellik=request.Form("iliski3")
if cinsellik="" then cinsellik= request.QueryString("iliski3")
uzun=request.Form("iliski4")
if uzun="" then uzun= request.QueryString("iliski4")
evlilik=request.Form("iliski5")
if evlilik="" then evlilik= request.QueryString("iliski5")


if sohbet<>"" then sql=sql & "Üyeler.[Sohbet]=" & sohbet & " and "
if arkadaslik<>"" then sql=sql & "Üyeler.[Arkadaşlık]=" & arkadaslik & " and "
if cinsellik<>"" then sql=sql & "Üyeler.[Cinsellik]=" & cinsellik & " and "
if uzun<>"" then sql=sql & "Üyeler.[Uzun Süreli]=" & uzun & " and "
if evlilik<>"" then sql=sql & "Üyeler.[Evlilik]=" & evlilik & " and "

else
sql=sql & "Üyeler.[" & iliski & "]=True and "
end if


if sql<>"" then sql=left(sql,len(sql)-4)
if sql<>"" then

online=request.Form("online")
if online="" then online= request.QueryString("online")

 if online="check" then
  sql = "SELECT Aktif.Online,Üyeler.[Kullanıcı Adı],Üyeler.[id],Üyeler.[paket],Üyeler.[yaşı],Üyeler.[Şehir],Üyeler.[Sohbet],Üyeler.[Arkadaşlık],Üyeler.[Cinsellik],Üyeler.[Uzun Süreli],Üyeler.[Evlilik],Üyeler.[Boyu],Üyeler.[Gözü],Üyeler.[Ülkesi],Üyeler.[Vücudu],Üyeler.[Cinsiyeti] FROM Aktif INNER JOIN Üyeler ON Aktif.uid = Üyeler.id where " & sql & " and aktif.Online=True order by paket desc"
 else
  sql="select * from [Üyeler] where " & sql & " order by [paket] desc"
 end if
else
 sql="select * from [Üyeler] order by [paket] desc"
end if

'response.Write(sql)
'response.End()

set rs =Server.CreateObject("ADODB.recordset")
rs.open sql,bag,3,1

 rs.pagesize=250
 rs.CacheSize=rs.pagesize

   if not rs.pagecount=0 then
   if request.querystring("SN")="" then
      rs.absolutepage = 1
   else
       if  cint(request.querystring("SN")) >  rs.pagecount then
           rs.absolutepage = rs.pagecount
       else
           rs.absolutepage = cint(request.querystring("SN"))
       end if
   end if
   end if


%>
      <table width="716" border="0" cellspacing="1" cellpadding="0" align="center">
  <form name="form1" action="toplumesaj.asp" method="post">
    <tr><td colspan="10" align="center" class="barr">Arama Sonuçları (<%=rs.recordcount & "&nbsp;Üye Bulundu"%>)</td></tr>
<tr><td height="20" colspan="20" bgcolor="F0F3D0" class="black11">&nbsp;&nbsp;Sayfa :
<%
 for i=1 to rs.pagecount
 if i = rs.absolutepage then
 response.write(i & "&nbsp;")
 else
 %>
 <a href="ara.asp?SN=<%=i%>&cinsiyet=<%=cinsiyet%&g t;&yas1=<%=yas1%>&yas2=<%=yas2%>&seh ir=<%=sehir%>&ulke=<%=ulke%>&foto=<%= foto%>&boy=<%=boy%>&vucut=<%=vucut%>& amp;sac=<%=sac%>&goz=<%=goz%>&cift=<% =cift%>&partner=<%=partner%>&iliski=<%=i liski%>&iliski1=<%=iliski1%>&iliski2=<%= iliski2%>&iliski3=<%=iliski3%>&iliski4=< %=iliski4%>&iliski5=<%=iliski5%>&online=< ;%=online%>"><b><%=i%></b></a>
 <%
end if
next 
%>
</td></tr>
     <tr bgcolor="#457089" class="white10b">
<%if session("tip")=1 or session("tip")=2  then%>
<script>
function resetle(me){
var a
var num = document.form1.elements.length
for (var i=0; i<num; i++) {
 if (typeof document.form1.elements != 'submit' || typeof document.form1.elements != 'reset')
 {document.form1.elements.checked=me}
}
return true
}
</script>
        <td width="20" align="center"><input  type="checkbox"   onclick="resetle(this.checked)" name="c"></td>
<%end if%>
   <td width="159">&nbsp;Kullanıcı Adı</td>
   <td width="32" align="center">Tür</td>
   <td width="37" align="center"><img src="images/durum.gif" width="22" height="20" border="0" align="absmiddle" title="Durum"></td>
           <td width="31" align="center">Yaş</td>
   <td width="87" align="center">Şehir</td>
           <td width="46" align="center"><img src="images/zarfy.jpg" width="24" height="15" border="0"></td>
   <td width="295" align="center">Aradığı İlişki Türü</td>
        </tr>
<%do until rs.EOF
if rs("Sohbet")=True then iliski=" -Sohbet- "
if rs("Arkadaşlık")=True then iliski=iliski&" -Arkadaşlık- "
if rs("Cinsellik")=True then iliski=iliski&" -Cinsellik- "
if rs("Uzun Süreli")=True then iliski=iliski&" -Uzun Süreli İlişki- "
if rs("Evlilik")=True then iliski=iliski&" -Evlilik- "
bgcolor="bgcolor=#FFFFFF"
if i mod 2 <>1 then bgcolor="bgcolor=#F0F3F4"
%>
    <tr height="10" <%=(bgcolor)%> class="black11">
<%if session("tip")=1 or session("tip")=2  then%>
       <td align="center"><input name="check" value="<%=rs("id")%>" type="checkbox"></td>
<%end if%>
    <td>&nbsp;<a href='profil.asp?id=<%=rs("id")%>'  title="Bu Üyenin Profilini Görmek  İçin Tıklayınız"><%=rs("Kullanıcı Adı")%></a>
<%if request.Form("cift")="check" then%>
- <a href="profil.asp?id=<%=rs("eşid")%>" title="Bu Üyenin Profilini Görmek İçin Tıklayınız"><%=rs("Eş Adı")%></a>
<%end if%>
<td align="center"><img src="images/<%=rs("paket")%>.gif"></td>
      <td width="37" align="center">
<%
set rs1=bag.execute("select uid from aktif where Online=True and uid="&rs("id"))
if rs1.eof then%>
 <img src=images/out.gif alt='Bu Üye Offline'>
<%else%>
 <img src=images/online.gif alt='Bu Üye Online'>
<%end if%>
   </td>
          <td align="center"><%=rs("Yaşı")%></td>
          <td align="center"><%=rs("Şehir")%></td>
          <td align="center"><a href="mesajgonder.asp?id=<%=rs("id")%>" title="Bu Üyeye Mesaj Bırakmak İçin Tıklayınız"><img src="images/zarfy.jpg" width="24" height="15" border="0"></a></td>
          <td><%=iliski%></td>
        </tr>
<%
iliski=""
i=i+1
rs.movenext
loop
%>
<tr><td height="20" colspan="20" bgcolor="F0F3D0" class="black11">&nbsp;&nbsp;Sayfa :
<%
 for i=1 to rs.pagecount
 if i = rs.absolutepage then
 response.write(i & "&nbsp;")
 else
 %>
 <a href="ara.asp?SN=<%=i%>&cinsiyet=<%=cinsiyet%&g t;&yas1=<%=yas1%>&yas2=<%=yas2%>&seh ir=<%=sehir%>&ulke=<%=ulke%>&foto=<%= foto%>&boy=<%=boy%>&vucut=<%=vucut%>& amp;sac=<%=sac%>&goz=<%=goz%>&cift=<% =cift%>&partner=<%=partner%>&iliski=<%=i liski%>&iliski1=<%=iliski1%>&iliski2=<%= iliski2%>&iliski3=<%=iliski3%>&iliski4=< %=iliski4%>&iliski5=<%=iliski5%>&online=< ;%=online%>"><b><%=i%></b></a>
 <%
end if
next 
%>
</td></tr>
<%if session("tip")=1 or session("tip")=2  then%>
    <tr><td colspan="10" align="center"><input name="Submit3" type="submit" class="input" id="Submit" value="Seçtiklerime Toplu Mesaj Gönder"></td></tr>
<%end if%>
  </form>
<%
set rs=nothing
set bag=nothing 
%>

Yukarı Dön Göster yusufpolat's Özellikler Diğer Mesajlarını Ara: yusufpolat
 
ASPmania
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 17-Temmuz-2005
Ülke: Türkiye
Gönderilenler: 101
Gönderen: 08-Nisan-2010 Saat 01:38 | Kayıtlı IP Alıntı ASPmania

Bu şekilde yardımcı olmam çok zor. Kod tasarımını çözmem sadece 2 saatimi alır. Gönderdiğim kod mantığına göre sayfanı uyarlamalısın.
Yukarı Dön Göster ASPmania's Özellikler Diğer Mesajlarını Ara: ASPmania Ziyaret ASPmania's Ana Sayfa
 

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.