Bilginin anahtarı bir TIK ötede
Sitemizden tam olarak faydalanmak için Üye Olunuz!

BilgisayarDersleri.NET

Bildiğimizi paylaşıyoruz.

Html

17- Asp sayfalama işlemi

<%vt="DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=" & server.mappath("db/haber.mdb" )
set conn = Server.CreateObject("adodb.connection" )
set rs = Server.CreateObject("adodb.recordset" )%> 

<%conn.open vt
rssql = "Select * from haberler where haber order by id DESC"
rs.open rssql, conn, 1, 3
If rs.eof or rs.bof then
Response.Write "<center> Kayıtlı haber yok.</center>"
Response.end
end if
sayfa = Request.QueryString("sayfa" )
If sayfa="" Then sayfa=1
rs.pagesize = 2 her sayfadaki veri sayısı
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%> 

<%=rs("haber_adi" )%> 
<%rs.movenext
Next%> 
 
Toplam kayıt: <%=rs.recordcount%>
-
<% sayfa numaraları ve link
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then bulunduğumuz sayfaya link yok
response.write g& " " %><% else
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> "
end if
next%>

<<16- Response Nesnesi Yöntemleri

18- If...else ıfadesi>>