VERİLER VE SAYFALAR
 
Sayfalama

Veri tabanımızdaki verilerimiz belli başlıklar altında veya belli veri gçekişinden sonra sayfalara bölmektir...

1 2 3 4 5 6 .... vs Gibi...

Gözde Büyütlcek kadar olmasada yeni başlayanlar için zorluğu var tabiki...

Döngüleri çok iyi öğrenmeniz lazım..
KODLARIN YANINDA AÇIKLAMALARI YAZMIŞ DURUMDAYIM...

db.mdb miz in içeriği

fullasp adında tablomuz ve

id = otomatik sayı
ad = not
url= not

adlarında sütunlarımız var...

db mizi oluşturdukran sonra dosyamızla aynı klasörde olacak veya değiştirebilirsiniz...
Çalışacaktır..Onaylanmıştır...


 
Kod Alanı:

 
<%

// Coded & Drawing By Magnet
//İzinsiz Yayınlanamaz Kullanılamaz
//Mail destek hattı : magentic_t@hotmail.com

// Evet arkadaşlar 14 Temmuz Cuma 2006 saat 14:00
// Sayfalamayı anlatmış bulunuyoruz aslında büyütülecek birşey yok 3-5 kod cambazlığı ve mantık okadar: )

%>




<%
//Db Bağlantımızı Yapıyoruz

Set Bag = Server.CreateObject("ADODB.Connection" )
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=" & Server.MapPath("db.mdb" )


%>

<%

set rs = Server.Createobject("ADODB.Recordset" )
Sql = "select * from fullasp url order by url asc" fullasp tablomuzu açtık ve ad a göre sıralattık
rs.open Sql, Bag, 1, 3

sayfa = request.Querystring("sayfa" ) sayfamızı stringle çağırdık

if sayfa="" then sayfa değerimiz boş ise
sayfa=1 sayfa değerimize 1 diyoruzki 1. safada lsun : )
end if


rs.pagesize = 5 1 sayfada kaç adet veri olacağını seçiyoruz ben 5 dedim
rs.absolutepage = sayfa absolutepage sayfa bölme demektir

Sayfa_top = rs.pagecount toplam sayfamızı aldık

for i=1 to rs.pagesize 1 den pagesize değeri kadar verimizi sayfada gösereceğimiz döngümüz...

if rs.eof then exit for eğerkayıt yoksa sayfalamayı durdur dedik: )

a=a+1 ben kayıtları numaralandırcam ondan a değişkeni atadım ve her kayıt için 1 arttırdım
%>


<font size=1 face=verdana><b><%=a%> -</b> <%=rs("ad" )%>   <%=rs("url" )%></FONT><br><br>

<%

rs.movenext
next for döngümüzü sonlandırdık

response.write "<font size=1 face=verdana>Sayfa :</font>"
for y=1 to sayfa_top y değişkeni atadık 1 den toplam sayfaya kadar sayfaları yazdıracak

if sayfa=y then sayfamız y ye yani bulunduğumuz sayfaya eşitse sadece sayfa adını yazdırıyoruz
                     bulunduğumuz sayfada link olmuyor yani

response.write y y değerimizi yazdııyoruz

else değilse
response.write "<font size=1 face=verdana>"

response.write "<a href=""?sayfa="& y &" ""> "& y &"</a> " diğer sayfaları yazdırıyoruz

response.write "</font>"

end if ifi kapat

next for döngüsünü sonlandır


%>



 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol