Gönderen: 07-Nisan-2010 Saat 15:08 | Kayıtlı IP

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 
%>

Gönderen: 07-Nisan-2010 Saat 17:48 | Kayıtlı IP

arkadaşım olmadı

 yine de tşk.ler

Gönderen: 07-Nisan-2010 Saat 23:33 | Kayıtlı IP

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 
%>