Forum
Aktif konular
Üyeler
Kurallar
Arama
""Asp De Sayfalama Beyler"" ""Asp De Sayfalama Beyler""
-
konular.asp?id=1&pg=1 şeklinde sayfalamak istiorum..nasıl yapabilirim cok denedım ama olmadı kodlarda degısıklık yapabilcek yada şöle yap diyebilcek birisi warsa yardımlarını beklıorum
--------------------
<%
id=request.querystring("id")Set rs= Server.CreateObjecT("ADODB.recordSet")
sql = "Select * FROM Konular where forum_id like "&id&" order by id desc"
rs.open sql,Conn,1,3%>
<%if not rs.eof then%>
<div align="center">
<table width="80%" cellpadding="0" cellspacing="0" class="Taslak" id="table1">
<tr bgcolor="#F7F7F7">
<td class="altcizgi3" width="40" align="center" ><b>»</b></font></td>
<td class="altcizgi3" align="left">
</td>
<td class="altcizgi3" width="220"> </td>
<td class="altcizgi3" width="60"> </td>
<td class="altcizgi3" width="60"> </td>
</tr>
<tr>
<td class="altcizgi" width="40"align="center"><b>»</b></font></td>
<td class="altcizgi" align="center">Konu / Konu Yazarı</td>
<td class="altcizgi" width="220" align="center">Son Mesaj</td>
<td class="altcizgi" width="60" align="center">Cevaplar</td>
<td class="altcizgi2" width="60" align="center">Gösterim</td>
</tr>
<%sayi=0%>
<%
set rec = server.createobject("adodb.recordset")
sql="select * from Kategoriler where id=" & Request.QueryString("id")
rec.open sql,conn,1,3
Do while not rs.eof%>
<%sayi=sayi+1%><%if sayi mod 2 = 0 then%>
<tr bgcolor="f9f9f9" onmousemove="this.style.background='#FFF9FF'" onmouseout="this.style.background='#f9f9f9'">
<td width="40"align="center" class="altcizgi4"> </td>
<td align="left" class="altcizgi4"><a href="KonuGoster.asp?id=<%=rs("id")%>"><%=rs("konu_adi")%></a><br><%=rs("yazan")%></td>
<td width="220" align="center" class="altcizgi4"> </td>
<td width="60" align="center" class="altcizgi4"> </td>
<td width="60" align="center" class="altcizgi4"> </td>
</tr>
<%else%>
<tr bgcolor="#f4f4f4" onmousemove="this.style.background='#FFF9FF'" onmouseout="this.style.background='#f4f4f4'">
<td width="40"align="center" class="altcizgi4"> </td>
<td align="left" class="altcizgi4"><a href="KonuGoster.asp?id=<%=rs("id")%>"><%=rs("konu_adi")%></a><br><%=rs("yazan")%></td>
<td width="220" align="center" class="altcizgi4"> </td>
<td width="60" align="center" class="altcizgi4"> </td>
<td width="60" align="center" class="altcizgi4"> </td>
</tr>
<%end if%>
<%rs.movenext
Loop
rs.close
set rs=nothing
Conn.close
set Conn= nothing
%>
<%else%>
<div>
<div align="center">
<table width="80%" cellpadding="0" cellspacing="0" class="Taslak">
<tr>
<td height="60" align="center">
<font face="Tahoma" style="font-size: 8pt">Bu kategoriye ait kayıt
bulunmamaktadır!</font></td>
</tr>
</table>
</div>
</div><%end if%>
</table>
</div>--------------
-
<table cellpadding="0" cellspacing="0" width="482" height="759">
<!-- MSTableType="nolayout" -->
<tr>
<td height="725" valign="top">
<%
rs.Open "Select * From Logolar Order By Sira Asc",baglanti,1,3
rs.PageSize=18
If Request.QueryString("Sayfa")<>"" Then
Sayfa=CInt(Request.QueryString("Sayfa"))
Else
Sayfa=1
End If
Rs.AbsolutePage = Sayfa
i=0
Do While Not rs.EOF And i<rs.PageSize
%>
<div style="float:left; width:159px; height:114px">
<table height="108" width="153" class="resim">
<tr>
<td><a href="logolar/<% =rs("LogoURL") %>" rel="lightboxlogolar" title="<% =rs("LogoAciklamasi") %>"><img border="0" src="logolar/onizleme/<% =rs("Onizleme") %>" width="140" height="90"></a></td>
</tr>
</table>
</div>
<%
i=i+1
rs.MoveNext
Loop
%>
</td>
</tr>
<tr>
<td height="34" valign="middle"><p align="center">
<%
If rs.PageCount Then
For S=1 To rs.PageCount
%>
<% If Sayfa=S Then %>
[<% =S %>]
<% Else %>
<a href="?Sayfa=<% =S %>">[<% =S %>]</a>
<% End If %>
<%
Next
End If
rs.Close
%>
</td>
</tr>
</table>-----------------------------
bi sitemde kullanmıstım düzenlemeden direk verdim. mantıgı basitce kavrayabilrsn zaten. kolay gelsin :) -
benım kodlarla uyarlayıp werebilirmisin yapamadım :S
-
rs.Open "Select * From Logolar Order By Sira Asc",baglanti,1,3 'siralamaya göre olan kayitlari aldık.
rs.PageSize=18 'sayfa başına düşen kayıt sayısı 18
If Request.QueryString("Sayfa")<>"" Then 'eğer querystringden aldıgın sayfa değeri boş değilse
Sayfa=CInt(Request.QueryString("Sayfa")) 'değeri Sayfa değişkenine at.
Else 'eğer boşsa
Sayfa=1 'sayfayı 1 yap
End If
Rs.AbsolutePage = Sayfa '18 lik gruplar halinde gelcek kayıtlar. kacıncı sayfaysa o sayfaya ait kayıtları cekiyoruz burda.
---------------------------------------------
kayıtları listelediğin kısım başladı
---------------------------------------------
i=0
Do While Not rs.EOF And i<rs.PageSize 'kayıtların sonuna gelmediği sürece ve i değeri sayfa başına düşen kayıt sayısından (18) kücük oldugu sürece aşağıdaki kodları çalıştır
%>
sayfa basına düşen kayıtların listeleneceği kısım.
<%
i=i+1 'i değerini 1 arttır.
rs.MoveNext 'sonraki kayda geç.
Loop 'döngüyü tekrarla.
%>
----------------------------------------
kayıtları listelediğin kısım bitti
----------------------------------------
--------------------------------------------------------------
sayfa numaralarının gösterildiği kısım başladı
--------------------------------------------------------------
<%
If rs.PageCount Then 'eğer sayfa varsa
For S=1 To rs.PageCount '1 den sayfa sayısına kadar alttaki işlemi yap.
%>
<% If Sayfa=S Then %> 'eğer bulundugun sayfa ise
[<% =S %>] 'link verme
<% Else %> 'değilse
<a href="?Sayfa=<% =S %>">[<% =S %>]</a> 'hangi sayfaysa ona link ver.
<% End If %>
<%
Next
End If
rs.Close
%>
---------------------------------------------------------
sayfa numaralarının gösterildiği kısım bitti.
---------------------------------------------------------
valla en anlasılır bu sekilde yazdım umarım faydasını görürsün :D -
oldu kardeş cok saol
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla