Sayfalama şekilleri -1-

[turkoder]

Örnek :

Kod:

<font face="Verdana" size="2" color="#0000FF"><b>Listelenen Kayıtlar :</b></font>
 <table border="0" width="100%" style="border-style: solid; border-width: 1" bordercolor="#C0C0C0">
 <%
  liste_sayisi=7
 id=request.querystring("id")
 
   intPage = cInt(Request.QueryString("page"))
 If (intPage = 0) or (intpage="") then
 intPage = 1
 end if 

Set rs=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from topik where id="&id&" "
'On Error Resume Next
rs.Open Sorgu, bag, 1, 3
If rs.EOF Then
Response.write"İlgili Kayıta rastlanamadı"
response.end
Else
 
messagecount = rs.Recordcount
 
rs.PageSize = cint(liste_sayisi)
rs.AbsolutePage = intPage
sayfa1= rs.PageCount
 
%>
<font face="Verdana" size="2"> </font>
 <%
 i=1
 
for j=1 to rs.pagesize
if rs.eof then exit for
baslik= rs("baslik")
%>
<%if i mod 2 then
renk="F2F2F2"
else
renk="ffffff"
end if
%>
  <tr>
    <td width="3%" bgcolor="#<%=renk%>"><%response.write i%></td>
    <td width="97%" bgcolor="#<%=renk%>" colspan="2"><%=baslik%></td>
  </tr>
<% 
  i=i+1
  rs.movenext
  next
     end if 
 rs.close
 set rs=nothing       
               
%> <tr>
    <td width="3%" bgcolor="#<%=renk%>">   
</td>
    <td width="66%" bgcolor="#<%=renk%>"><font face="Verdana" size="2"><b>Devamı </b>->&nbsp;
    <%
            for y=1 to sayfa1
             if intpage=y then
             response.write y
             else
             response.write "<b> <a href=""?page="&y&""">["&y&"]</a></b>"
             end if
             next
             %>&nbsp;&nbsp;&nbsp;<b>Toplam Kayıt:</b>&nbsp;<%=messagecount%> </font></td>
    <td width="31%" bgcolor="#<%=renk%>"><font face="Verdana" size="2"> </font> </td>
  </tr>
</table>