Maxwebportal v2.11 Üst Menü Düzenlemesi

[AdmiN]

Maxwebportal v2.11 Üst Menü Düzenlemesi

Üst menüyü düzenlemek için ilk önce dosyaların içinden menu_com.asp dosyasını bulunuz. Daha sonra bu dosyayı bir editör veya not defteri ile açınız. Bu menüye şiir menüsü nasıl eklenir aşağıda adım adım gösterelim.

ADIM 1:
29-58 Satırlar arasını bulunuz.

ADIM 2:
(Eğer ilan menüsünden sonra şiir menüsü gelecekse) Aşağıdaki satırı bulun.
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("classifieds","USERS") then
Response.Write("<a class=""menuButton"" href=""classified.asp"" onclick=""return buttonClick(event, 'menu9');"" onmouseover=""buttonMouseover(event, 'menu9');"">Ylan Panosu[/url]")
end if

ADIM 3:
Bu yukarıdaki ilan menüsünün alına aşağıdaki kodu ekleyiniz.
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("siirs","USERS") then
Response.Write("<a class=""menuButton"" href=""siir.asp"" onclick=""return buttonClick(event, 'menu10');"" onmouseover=""buttonMouseover(event, 'menu10');"">Şiirler[/url]")
end if

Not: Burada dikkat etmeniz gereken Ylan Panosunda menu9, Şiirlerde menu10 var. Diğer menülerdeki değerler ile aynı olmamasına dikkat ediniz.

ADIM 4:
Yukarıdaki adımları doğru yaptığımıza göre sıra geldi menü içlerine… Bu nedenle 187-200 satırlar arasını bulun. Bu satırlar arasında ilan panosunun menü kodları yer almaktadır. Ylk baştaki adımlarda ilan panosundan sonra şiir menüsünü ekleyeceğimizi söylemiştik. Bu yüzden ilan panosu menüsünü buluyoruz ve aşağısına şiir menüsünün kodlarını yerleştiriyoruz.
<!-- Sub menus Siirs. --><%
if mlev >= 0 and instr(strModules,":8:") then
Response.Write("<div id=""menu10"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""siir.asp"">Kategoriler[/url]")
Response.Write("<a class=""nav_menuItem"" href=""siir_new.asp"">Yeni Eklenenler[/url]")
Response.Write("<a class=""nav_menuItem"" href=""siir_popular.asp"">Popüler Şiirler[/url]")
Response.Write("<a class=""nav_menuItem"" href=""siir_toprated.asp"">En Çok Okunanlar[/url]")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""siir_add_form.asp"">Şiir Gönder[/url]")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_siir.asp');"">Şiir SSS[/url]")
Response.Write("</div>" & vbcrlf)
end if

%>

Not: Bu adımda dikkat edeceğiniz konu ise if mlev >= 0 and instr(strModules,":8:") then
Yazan 8 değeridir. Bu değerde diğer menülerin değerinden farklı olması gerekmektedir. Bir önceki menünün yani ilan panosunun o değeri 7 dir. Bu yüzden devamı olan 8 yazıyoruz.

Kısacası işlemleri bitirmiş olduk. Şimdi aşağıda ilan ve şiir menülerini birleştirerek yazalım ve kontrol edelim.

KONTROL 1:
29 – 58 satırlar arası:
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("classifieds","USERS") then
Response.Write("<a class=""menuButton"" href=""classified.asp"" onclick=""return buttonClick(event, 'menu9');"" onmouseover=""buttonMouseover(event, 'menu9');"">Ylan Panosu[/url]")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("siirs","USERS") then
Response.Write("<a class=""menuButton"" href=""siir.asp"" onclick=""return buttonClick(event, 'menu10');"" onmouseover=""buttonMouseover(event, 'menu10');"">Şiirler[/url]")
end if

KONTROL 2:
187 – 200 satırlar arası:
<!-- Sub menus Classifieds. --><%
if mlev >= 0 and instr(strModules,":7:") then
Response.Write("<div id=""menu9"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""Classified.asp"">Kategoriler[/url]")
Response.Write("<a class=""nav_menuItem"" href=""Classified_new.asp"">Yeni Eklenenler[/url]")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""Classified_add_form.asp"">Ylan Ekle[/url]")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_classifieds.asp');"">Ylan Panosu SSS[/url]")
Response.Write("</div>")
end if

%> <!-- Sub menus Siirs. --><%
if mlev >= 0 and instr(strModules,":8:") then
Response.Write("<div id=""menu10"" class=""nav_menu"">")
Response.Write("<a class=""nav_menuItem"" href=""siir.asp"">Kategoriler[/url]")
Response.Write("<a class=""nav_menuItem"" href=""siir_new.asp"">Yeni Eklenenler[/url]")
Response.Write("<a class=""nav_menuItem"" href=""siir_popular.asp"">Popüler Şiirler[/url]")
Response.Write("<a class=""nav_menuItem"" href=""siir_toprated.asp"">En Çok Okunanlar[/url]")
if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""siir_add_form.asp"">Şiir Gönder[/url]")
end if
Response.Write("<div class=""menuItemSep""></div>")
Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_siir.asp');"">Şiir SSS[/url]")
Response.Write("</div>" & vbcrlf)
end if

%>

KONTROL SONUÇ:
Denedim ve çalışıyor. Eğer sizde çalışmazsa tekrar kontrol ediniz. Dikkat etmeniz gereken yerleri not olarak belirttim.

Yazan: burajan

[ultraceran]

peki resmi nasıl ekleyebilirim acaba diyelim ben şiirler menusunun basına ufak resim koymak istiyorum nasıl yapabilirim deniyorum olmuyor bütün menüye resim koyucam ama 1 tane örnek gösterebilirsen sanırım bütün menü ye koyabilirim

tşkler   

[burajan]

Şiir menüsü için aşağıdaki örnek kodu:

Kod: [Seç]

Response.Write("<a class=""menuButton"" href=""siir.asp"" Şu şekilde değiştirmelisin.

Kod: [Seç]

Response.Write("<img src=""resimyolu.jpg""><a class=""menuButton"" href=""siir.asp"" Bu şekilde yazınca eklenmesi gerekir.

[ultraceran]

ekledik ama malesef 500 hatası aldık neden acaba 

[burajan]

Mesela az önce ilan panosu menüsü için yaptım. Örnek resmini de ekliyorum. Sendeki ilan panosu menüsüne ait kodları aşağıdaki gibi yaparsan örnek görüntüdeki gibi bir menü elde edersin:

Kod: [Seç]

if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("classifieds","USERS") then
Response.Write("<a class=""menuButton"" href=""classified.asp"" onclick=""return buttonClick(event, 'menu9');"" onmouseover=""buttonMouseover(event, 'menu9');""><img src=""images/ARROW1.gif"" border=""0""> İlan Panosu</a>")
end if

Kod: [Seç]

if mlev >= 0 and instr(strModules,":7:") then
  Response.Write("<div id=""menu9"" class=""nav_menu"">")
  Response.Write("<a class=""nav_menuItem"" href=""Classified.asp""><img src=""images/ARROW1.gif"" border=""0""> Kategoriler</a>")
  Response.Write("<a class=""nav_menuItem"" href=""Classified_new.asp""><img src=""images/ARROW1.gif"" border=""0""> Yeni Eklenenler</a>")
  if mlev >= 1 then
    Response.Write("<a class=""nav_menuItem"" href=""Classified_add_form.asp""><img src=""images/ARROW1.gif"" border=""0""> İlan Ekle</a>")
  end if
  Response.Write("<div class=""menuItemSep""></div>")
  Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_classifieds.asp');"">İlan Panosu SSS</a>")
  Response.Write("</div>")
end if


[ultraceran]

tşekkür ederim oldu birde bu login olunca login resmi var clear.gif  üst tarafta bunun yanına resim eklemek istiyorum nasıl yapabilirim acaba hangi dosya oldugunu söyleserseniz cok sevinirim 

[AdmiN]

inc_nav_bar2.asp dosyasından ekleyebilirsin.

[sofualanli]

MWP_2.12'de Üst menü düzenlem/ekle-sil işlemleri 2,11 ile aynı mı

[AdmiN]

MWP_2.12'de Üst menü düzenlem/ekle-sil işlemleri 2,11 ile aynı mı

Evet menü ve menü ayarları aynı.

[ayaz®]

Merhabalar cok acık bir anlatım olmus denedim gayet düzenli oldu. Fakat Üst ve sol menudeki bir kaç icerigi kaldırmak istiyorum. Yani hazırlayacagım sitenin icerigine pek uymayan bir kaç menu var. mesela fıkralar siirler ilan bölümü yemek tarifleri vb. bunları tamamiyle nasıl kaldırabilirim. Bu konuda bana yardımcı olabilirmisiniz.

Bu arada konuyu dogru yere acmısımdır umarım.

Simdiden tsk ederim...