> " & objName & "" ) Response.Write (" " ) End If rsSelect.Close End Sub Function GetCatID() Current = Request("ID" ) If Current = "" Then Current = 0 End If GetCatID = Current End Function %> ---------">Agaç kategorileme sistemi
08 Mar 2008 22:34:18Agaç kategorileme sistemi hakkinda Kod: --------- DB.mdb veritaban?: ---------------------- ID: Otomatik Say? ParentID: Say? Kategori: Metin Kategorilerin Listelenece?i Sayfa: (default.asp) -------------------------------------- Alt Kategorilerin Listelenece?i Sayfa: (kategori.asp) ------------------------------------------ 0 Then strSQL = "Select ParentID from Tablo where ID = " & Cat rsSelect.Open strSQL, baglanti Set ObjPt = rsSelect("ParentID" ) Pt = ObjPt rsSelect.Close PrintParents(Pt) Else Response.Write ("Anasayfa " ) End If strSQL = "Select * from Tablo Where ID = " & Cat strSQL = strSQL & "" 'Debuggin of SQL 'Response.Write("Get Parent Info" & strSQL & "" ) rsSelect.Open strSQL, baglanti If Not rsSelect.Eof Then Set objName = rsSelect("Kategori" ) Set objID = rsSelect("ID" ) 'Response.Write ( "" & objID & "-" & objName & "" ) Response.Write ( " >> " & objName & "" ) Response.Write (" " ) End If rsSelect.Close End Sub Function GetCatID() Current = Request("ID" ) If Current = "" Then Current = 0 End If GetCatID = Current End Function %> ---------
Kaynak ve Devamı: Webmaster ForumuBu Kategorideki Diğer Haberler
- Şartsız kredi:D04 Sep 2008 18:13:01
- Gelin ve Damat arasındaki konuşma04 Sep 2008 18:18:42
- Sarışın fıkralarıxD04 Sep 2008 18:27:15
- Hamile Kadın04 Sep 2008 18:36:16
- kadın kocası ve kaynana :)04 Aug 2008 22:06:58
- Aslan ve Tilki02 Aug 2008 15:19:02
- Büyük Yumurta02 Aug 2008 15:19:23
- Delikanlı Maymun02 Aug 2008 15:19:46
- Roman yazmiŞ02 Aug 2008 15:20:22
- Işıgı Gören Geliyor02 Aug 2008 15:27:37
- Mantıklı yasal veya tersi süper ötesi08 Jul 2008 15:25:03
- Alinin sınıfı okumayan kaçırır08 Jul 2008 15:28:53
- Subaylar calıyor08 Jul 2008 15:31:03
- Cesaret budur08 Jul 2008 15:32:50
- sütçü08 Jul 2008 15:34:37
- 3 saniyelik balik diyaloglari07 Jul 2008 14:09:38
- Öğretmen Tehditleri07 Jul 2008 14:10:37
- Osmanlıca Film İsimleri07 Jul 2008 14:11:32
- Okula Ne İçin Gidiyoruz07 Jul 2008 14:12:25
- temelin askerlik anıları 107 Jul 2008 14:14:00
- Türk sen oku :D06 Jul 2008 12:48:20
- Temel Counter Strike Oynarsa...06 Jul 2008 12:49:47
- saatler geri alınıyo06 Jul 2008 12:50:42
- 50 yıl daha06 Jul 2008 12:53:00
- Dev Fıkra Arşivi05 Jul 2008 13:03:44
- Temel Amerikaya savaş açarsa05 Jul 2008 17:07:39
- Affedersiniz Lazmısınız ?05 Jul 2008 17:08:42
- meraklı şöför05 Jul 2008 17:10:35
- Titanikte Türkler Olsaydi...05 Jul 2008 17:11:55
- rizeyle kayseri savaş yaparlarsa05 Jul 2008 17:12:53