<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Yönetim Menüsü Kodları ' Son Düzenleme: 18 Aralık 2007 (v0.5.1) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Sub UstMenu(strGecerliMenu, HepsindenOnce, HepsindenSonra, BasliktanOnce, BasliktanSonra) Dim arrSayfa(11,5) arrSayfa(1,1) = "default.asp" arrSayfa(1,2) = "anasayfa" arrSayfa(1,3) = "Site Anasayfa" arrSayfa(1,4) = "editor" arrSayfa(1,5) = 1 arrSayfa(2,1) = "yonetim_haber.asp" arrSayfa(2,2) = "haber" arrSayfa(2,3) = "Haberler" arrSayfa(2,4) = "editor" arrSayfa(2,5) = 2 arrSayfa(10,1) = "yonetim_sayfa.asp" arrSayfa(10,2) = "sayfa" arrSayfa(10,3) = "Sayfalar" arrSayfa(10,4) = "admin" arrSayfa(10,5) = 3 arrSayfa(3,1) = "yonetim_kategori.asp" arrSayfa(3,2) = "kategori" arrSayfa(3,3) = "Kategoriler" arrSayfa(3,4) = "admin" arrSayfa(3,5) = 4 arrSayfa(4,1) = "yonetim_editor.asp" arrSayfa(4,2) = "editor" arrSayfa(4,3) = "Editörler" arrSayfa(4,4) = "admin" arrSayfa(4,5) = 5 arrSayfa(5,1) = "yonetim_yorumlar.asp" arrSayfa(5,2) = "yorumlar" arrSayfa(5,3) = "Yorumlar" arrSayfa(5,4) = "admin" arrSayfa(5,5) = 6 arrSayfa(6,1) = "yonetim_anket.asp" arrSayfa(6,2) = "anket" arrSayfa(6,3) = "Anketler" arrSayfa(6,4) = "admin" arrSayfa(6,5) = 7 arrSayfa(7,1) = "yonetim_ayarlar.asp" arrSayfa(7,2) = "ayarlar" arrSayfa(7,3) = "Site Ayarları" arrSayfa(7,4) = "admin" arrSayfa(7,5) = 9 arrSayfa(8,1) = "yonetim_profil.asp" arrSayfa(8,2) = "profil" arrSayfa(8,3) = "Profil Düzenle" arrSayfa(8,4) = "editor" arrSayfa(8,5) = 10 arrSayfa(9,1) = "yonetim_profil.asp?islem=cikis" arrSayfa(9,2) = "cikis" arrSayfa(9,3) = "Çıkış" arrSayfa(9,4) = "editor" arrSayfa(9,5) = 11 arrSayfa(11,1) = "yonetim_reklam.asp" arrSayfa(11,2) = "reklam" arrSayfa(11,3) = "Reklamlar" arrSayfa(11,4) = "admin" arrSayfa(11,5) = 8 With kdMenu .Fields.Append "ID", 3 .Fields.Append "Adres", 200, 50 .Fields.Append "Ad", 200, 50 .Fields.Append "Baslik", 200, 50 .Fields.Append "Yetki", 200, 10 .Fields.Append "Sira", 3 .Open End With For intLooper = 1 To UBound(arrSayfa) If blnAdmin = True OR (blnEditor = True AND arrSayfa(intLooper,4) = "editor") Then With kdMenu .Addnew .Fields("ID") = intLooper .Fields("Adres") = arrSayfa(intLooper,1) .Fields("Ad") = arrSayfa(intLooper,2) .Fields("Baslik") = arrSayfa(intLooper,3) .Fields("Yetki") = arrSayfa(intLooper,4) .Fields("Sira") = arrSayfa(intLooper,5) .Update End With End If Next kdMenu.Sort = "Sira ASC" If Not kdMenu.Eof Then Response.Write(HepsindenOnce) Do While Not kdMenu.Eof Response.Write(BasliktanOnce &""& kdMenu("Baslik") &""& BasliktanSonra) kdMenu.Movenext Loop Response.Write(HepsindenSonra) End If kdMenu.Close End Sub Sub AltMenu(strGecerliMenu, HepsindenOnce, HepsindenSonra, BasliktanOnce, BasliktanSonra) Dim arrAltSayfa(24,5) arrAltSayfa(1,1) = "haber" arrAltSayfa(1,2) = "editor" arrAltSayfa(1,3) = "yeni_haber" arrAltSayfa(1,4) = "Yeni Haber Ekle" arrAltSayfa(2,1) = "haber" arrAltSayfa(2,2) = "editor" arrAltSayfa(2,3) = "haberler&mod=editor" arrAltSayfa(2,4) = "Haberlerim" arrAltSayfa(3,1) = "haber" arrAltSayfa(3,2) = "admin" arrAltSayfa(3,3) = "haberler&mod=hepsi" arrAltSayfa(3,4) = "Tüm Haberler" arrAltSayfa(4,1) = "kategori" arrAltSayfa(4,2) = "admin" arrAltSayfa(4,3) = "kategoriler" arrAltSayfa(4,4) = "Kategoriler" arrAltSayfa(5,1) = "kategori" arrAltSayfa(5,2) = "admin" arrAltSayfa(5,3) = "yeni_kategori" arrAltSayfa(5,4) = "Yeni Kategori" arrAltSayfa(6,1) = "kategori" arrAltSayfa(6,3) = "yeni_alt_kategori" arrAltSayfa(6,4) = "Yeni Alt Kategori" arrAltSayfa(7,1) = "kategori" arrAltSayfa(7,2) = "admin" arrAltSayfa(7,3) = "alt_kategori_tasi" arrAltSayfa(7,4) = "Alt Kategori Taşı" arrAltSayfa(8,1) = "kategori" arrAltSayfa(8,2) = "admin" arrAltSayfa(8,3) = "haber_tasi" arrAltSayfa(8,4) = "Haber Taşı" arrAltSayfa(9,1) = "profil" arrAltSayfa(9,2) = "editor" arrAltSayfa(9,3) = "goruntule" arrAltSayfa(9,4) = "Profil Düzenle" arrAltSayfa(10,1) = "editor" arrAltSayfa(10,2) = "admin" arrAltSayfa(10,3) = "editorler" arrAltSayfa(10,4) = "Editörler" arrAltSayfa(11,1) = "editor" arrAltSayfa(11,2) = "admin" arrAltSayfa(11,3) = "editor_ekle" arrAltSayfa(11,4) = "Editör Ekle" arrAltSayfa(12,1) = "yorumlar" arrAltSayfa(12,2) = "admin" arrAltSayfa(12,3) = "yorumlar" arrAltSayfa(12,4) = "Yorumlar" arrAltSayfa(13,1) = "yorumlar" arrAltSayfa(13,2) = "admin" arrAltSayfa(13,3) = "yorumlar&mod=onaysiz" arrAltSayfa(13,4) = "Onay Bekleyen Yorumlar" arrAltSayfa(14,1) = "yorumlar" arrAltSayfa(14,2) = "admin" arrAltSayfa(14,3) = "yorum_tasi" arrAltSayfa(14,4) = "Yorum Taşı" arrAltSayfa(15,1) = "ayarlar" arrAltSayfa(15,2) = "admin" arrAltSayfa(15,3) = "ayarlar" arrAltSayfa(15,4) = "Site Ayarları" arrAltSayfa(16,1) = "anket" arrAltSayfa(16,2) = "admin" arrAltSayfa(16,3) = "anketler" arrAltSayfa(16,4) = "Anketler" arrAltSayfa(17,1) = "anket" arrAltSayfa(17,2) = "admin" arrAltSayfa(17,3) = "anket_ekle" arrAltSayfa(17,4) = "Anket Ekle" arrAltSayfa(18,1) = "sayfa" arrAltSayfa(18,2) = "admin" arrAltSayfa(18,3) = "sayfalar" arrAltSayfa(18,4) = "Sayfalar" arrAltSayfa(19,1) = "sayfa" arrAltSayfa(19,2) = "admin" arrAltSayfa(19,3) = "yeni_sayfa" arrAltSayfa(19,4) = "Sayfa Ekle" arrAltSayfa(20,1) = "reklam" arrAltSayfa(20,2) = "admin" arrAltSayfa(20,3) = "alanlar" arrAltSayfa(20,4) = "Reklam Alanları" arrAltSayfa(21,1) = "reklam" arrAltSayfa(21,2) = "admin" arrAltSayfa(21,3) = "alan_ekle" arrAltSayfa(21,4) = "Reklam Alanı Ekle" arrAltSayfa(22,1) = "reklam" arrAltSayfa(22,2) = "admin" arrAltSayfa(22,3) = "reklamlar" arrAltSayfa(22,4) = "Reklamlar" arrAltSayfa(23,1) = "reklam" arrAltSayfa(23,2) = "admin" arrAltSayfa(23,3) = "reklam_ekle" arrAltSayfa(23,4) = "Reklam Ekle" arrAltSayfa(24,1) = "reklam" arrAltSayfa(24,2) = "admin" arrAltSayfa(24,3) = "reklam_ekle&mod=html" arrAltSayfa(24,4) = "Reklam Ekle (HTML)" Response.Write(HepsindenOnce) For intLooper = 1 To UBound(arrAltSayfa) If strGecerliMenu = arrAltSayfa(intLooper,1) AND (blnAdmin = True OR (blnEditor = True AND arrAltSayfa(intLooper,2) = "editor")) Then Response.Write(BasliktanOnce &""& arrAltSayfa(intLooper,4) &""& BasliktanSonra) End If Next Response.Write(HepsindenSonra) End Sub %>