Kategorileme ve sayfalama

Php, Asp, Perl, Html - Kategorileme ve sayfalama Sponsorlu Bağlantılar önce veritabanımızı oluşturalım Tablo adı: Kategoriler alanlar: id otomatik sayı kategori_ismi not Tablo adı: programlar alanlar: id otomatik sayı adi not kid sayı (bu alan özellikle sayı olmalı ...

Cevapla
Kategorileme ve sayfalama
Vasili.zaitseV isimli Üye şimdilik offline konumundadır

Vasili.zaitseV(29)

Grafiker / Adana

Standart

Kategorileme ve sayfalama

Alt 04-06-2007 #1
Sponsorlu Bağlantılar

önce veritabanımızı oluşturalım

Tablo adı: Kategoriler

alanlar:

id otomatik sayı
kategori_ismi not


Tablo adı: programlar

alanlar:

id otomatik sayı
adi not
kid sayı (bu alan özellikle sayı olmalı )



şimdi menu.asp diye bir dosya açın


bu kodları ekleyin:

<%
Oku="DBQ="& Server.Mappath("OLUŞTURUDUĞUNUZ VT YOLUNU BURAYA YAZIN" ) &";Driver={Microsoft Access Driver (*.mdb )}"
Set Baglan=Server.CreateObject("Adodb.Connection" )
Baglan.Open Oku
Set Rs=Server.CreateObject("Adodb.Recordset" )
sorgu = "Select * from kategoriler"
Rs. Open Sorgu, Baglan, 1, 3
do while not rs.eof
%>


<a href="kategoriler.asp?kid=<%=rs("id" )%>"><%=rs("kategori_adi" )%></a>

<%
rs.movenext
loop
rs.close
set rs=nothing
%>
Şimdi kategoriler.asp diye bir dosya açın ve bunları ekleyin:

<%
Set Sur = Server.CreateObject("ADODB.Connection" )
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=" & Server.MapPath("OLUŞTURUDUĞUNUZ VT YOLUNU BURAYA YAZIN" )

id= request.QUERYSTRING("id" )
Set rs = Server.CreateObject("ADODB.Recordset" )
sor = "Select * from programlar WHERE kid="&id&""
rs.Open sor,Sur,1,3

git = Request.QueryString("git" )
if git="" then
git=1
else
git = CInt(Request.QueryString("git" ) )
end if
%>




<%
rs.pagesize = 10
rs.absolutepage = git
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<%=rs("adi" )%>

<b>Sayfa :<font color="#FF9933"> <%
for y=1 to sayfa
if git=y then
response.write y
else
response.write "<b> <a href=""kategoriler.asp?kid="&kid&"&git="&y&""">"&y&"</a></b>"
end if
next
%>
alıntıdır..
Bu mesajdan alıntı yap
Sponsor Links

Grafikerler.net Reklamları

herdem isimli Üye şimdilik offline konumundadır

herdem

Webmaster / Osmaniye

Standart
Alt 12-12-2008 #2
                             Sponsorlu Bağlantılar
Devamı olsa daha makbule geçerdi. ):
Bu mesajdan alıntı yap
Cevapla

Tags
kategori, kategorileme, sayfalama

Kapat
Şifremi Unuttum?