Vasili.zaitseV
🏅Acemi Tasarımcı🏅
ö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:
Şimdi kategoriler.asp diye bir dosya açın ve bunları ekleyin:
alıntıdır..
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:
Kod:
<%
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:
Kod:
<%
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..