üs menü kaldırılması

[byanderson]

ben üst menüdeki anasayfa ve üyeler hariç diğerlerini kaldırmak istiyorum ne yapmalıyım

[burajan]

menu_com.asp dosyasında aşağıdaki kodları silersen sadece ana sayfa ve üyeler menüsü kalacaktır.

Kod: [Seç]

if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("forums","USERS") then
Response.Write("<a class=""menuButton"" href=""fhome.asp"" onclick=""return buttonClick(event, 'menu3');"" onmouseover=""buttonMouseover(event, 'menu3');"">Forumlar</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("events","USERS") then
Response.Write("<a class=""menuButton"" href=""events.asp"" onclick=""return buttonClick(event, 'menu4');"" onmouseover=""buttonMouseover(event, 'menu4');"">Etkinlikler</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("articles","USERS") then
Response.Write("<a class=""menuButton"" href=""article.asp"" onclick=""return buttonClick(event, 'menu5');"" onmouseover=""buttonMouseover(event, 'menu5');"">Makaleler</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("downloads","USERS") then
Response.Write("<a class=""menuButton"" href=""dl.asp"" onclick=""return buttonClick(event, 'menu6');"" onmouseover=""buttonMouseover(event, 'menu6');"">Downloadlar</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("links","USERS") then
Response.Write("<a class=""menuButton"" href=""links.asp"" onclick=""return buttonClick(event, 'menu7');"" onmouseover=""buttonMouseover(event, 'menu7');"">Linkler</a>")
end if
if (mlev >= 0 or (mLev = 0 and strLockDown = 0)) and chkApp("pictures","USERS") then
Response.Write("<a class=""menuButton"" href=""pic.asp"" onclick=""return buttonClick(event, 'menu8');"" onmouseover=""buttonMouseover(event, 'menu8');"">Galeri</a>")
end if
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');"">İlan Panosu</a>")
end if
if mlev >= 0 then
Response.Write("<a class=""menuButton"" href="""" onclick=""return buttonClick(event, 'menu22');"" onmouseover=""buttonMouseover(event, 'menu22');"">Anlatımlar</a>")
end if
Eğer hata verirse aşağıdaki gibi her modülün linklerini de silmelisin. Örnek için article modülünü veriyorum:

Kod: [Seç]

<!-- Sub menus Articles. --><%
if mlev >= 0 and instr(strModules,":4:") then
  Response.Write("<div id=""menu5"" class=""nav_menu"">")
  Response.Write("<a class=""nav_menuItem"" href=""article.asp"">Kategoriler</a>")
  Response.Write("<a class=""nav_menuItem"" href=""article_new.asp"">Yeni Eklenenler</a>")
  Response.Write("<a class=""nav_menuItem"" href=""article_popular.asp"">Popüler Makaleler</a>")
  Response.Write("<a class=""nav_menuItem"" href=""article_toprated.asp"">En Çok Okunanlar</a>")
  if mlev >= 1 then
Response.Write("<a class=""nav_menuItem"" href=""article_add_form.asp"">Makale Gönder</a>")
  end if
  Response.Write("<div class=""menuItemSep""></div>")
  Response.Write("<a class=""nav_menuItem"" href=""javascript:openWindow3('faq_articles.asp');"">Makale SSS</a>")
  Response.Write("</div>" & vbcrlf)
end if

%>