Şub
19Veritabanındaki verilerin sayfada kategorilemenin mantığı. Son derece önemli bir konuyu basit algoritma halinde işleyeceğiz.
En basitinden bir örnek vereyim. Bir satırda response.write komutuyla bir değişken birde normal yazı yazacağız. Yazının içine değişken koyarsak normal yazı gibi gözüdür. Değişken yazdırmak için tırnak kullanmamalıyız. Ama yazı yazdırmak için kullanmamız gerekir. Bir yol izleyelim. İlk olarak değişkenimizi yazalım. Sonra & (ve) işareti koyara iki tane tırnak açıp arasına yazımızı yazalım.
Bu basit bir örnekti.
şimdi kategorileme mantığına geçelim. Mantığını kurmaya çalışalım. Pek çok yöntemle kategorileme yapılır ama en kolayını ve en pratiğini bulmamız gerek.
Kategoriler adında tablomuz olsun. (id: otomatiksayı, kategoriadi: metin)
Bu tabloya kategorilerimizi yazalım;
1. Temel Konular
2. İçerikler
3. Nesne Kütüphanesi
şimdilik 3 kategori yeter. şimdi birde makaleler adında tablo açalım (id: otomatik sayı, kategori_id: sayı, makale: sayı)
şimdi bir mantık kuralım. İlk olarak a.asp sayfasında kategorileri listeletelim.
Listelenen kategorilerr b.asp?id=2 şeklinde link verelim. b.asp'de bu adresteki id stringini çekelim. Bu string kategorinin kimliğidir. Ve bir sql cümleciği ile kategori_id sütunu bu string'e eşit olanları gösterelim. Bu şekilde kategoriya ait olan makaleleri listeletebiliriz. Birde kod olarak yazalım;
a.asp için aşağıdaki kodları sayfanıza yazınız;
Set baglanti=server.createobject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.Oledb.4.0; data source=" & server.mappath("veritabani.mdb")
Set rs=baglanti.execute("select * from kategoriler")
While Not rs.eof
Response.write " <a href=""b.asp?id="&rs("id")&""">"&rs("kategoriadi")&"</a>"
Rs.movenext
Wend
Rs.Close
baglanti.close
%>
b.asp için ise aşağıdaki kodları kullanabilirsiniz;
Set baglanti=server.createobject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.Oledb.4.0; data source=" & server.mappath("veritabani.mdb")
id=request.querystring("id")
Set rs=baglanti.execute("select * from makaleler where kategori_id="&id&"")
While Not rs.eof
Response.write " "&rs("makale")&" <br>"
Rs.movenext
Wend
Rs.Close
baglanti.close
%>
6 yorum var
#27.-SrcnCkr-19 Şubat 2007 Pazartesi
Bu konuyu anlatmak için açmıştım bu kategoriyi dün gece, sen benden erken davranmışsın. Güzel olmuş fatih yazın. Ama çok fazla enter kullanmandan dolayı beyaz alan çok fazla su üstüne çıktığından bazen gözlerim başka yere kayıyor. Enter'ı azaltırsan daha da odaklarsın kişiyi.
#205.-Osman şafak-01 Haziran 2007 Cuma
Merhaba kategorileme algoritması başlığını görünce aklıma ilk olarak sınırsız sayıda kategori mantığı geldi. Fakat yanlış okumamışsam sadece ana kategorilere bağlı yazıları görüntüleyen bir sistem.
Sınırsız alt kategori eklemeyi kısaca açıklayayım.
kategori isimli bir tablo id (otomatik sayı) , kat_id (sayı) , ad (text) isimli alanlar olsun.
Ana Kategorilerimizin kat_id si 0 olacak. Alt Kategorilerin kat_id si ise bir üst kategorinin id si olacak şekilde ayarlayın.
Kategori listelemek için
if Not Request.Querystring("KatId")="" And IsNumeric(Request.Querystring("KatId")) Then
KatId=Request.Querystring("KatId")
Else
KatId=0
End If
sql="Select id,ad,kat_id From kategori Where kat_id="& KatId &" Order By ad Asc;"
Do Loop dögüsüyle diğer sayfaya id sini göndererek kategorileri listeleyebilirsiniz.
İyi çalışmalar.
#302.-Mert-29 Temmuz 2007 Pazar
Ben denedim ve olmadı kodlarda bir yanlışlık var gibi geldi bana ...
#493.-kaan kutay-12 Şubat 2008 Salı
bu ne bıcım algorıtma ya
#590.-alican-01 Mayıs 2008 Perşembe
yararlı bir ders olmuş bende hatalarımı öprendim 
teşekkürler
