Menu ONCLICK

[mauriciocr 0]

Olá pessoal ,

 

eu não to conseguindo fazer o meu menu GERENCIADO com menus filhos encolher .

 

exemplo :

 

--> Disciplinas

- portugues

- matematica

 

Ao clicar em DIsciplina , ele encole

 

--> Disciplinas

 

Ao clicar novamente , ele abre.

 

 

Bom, esse é o codigo , alguém me ajude

 

 

 

 

<!--#include file="../includes/config.asp"-->

<style type="text/css">

.menutitle{

cursor:pointer;

margin-bottom: 5px;

background-color:#ECECFF;

color:#000000;

width:140px;

padding:2px;

text-align:center;

font-weight:bold;

/*/*/border:1px solid #000000;/* */

}

 

.submenu{

margin-bottom: 0.5em;

}

</style>

 

<script type="text/javascript">

 

/***********************************************

* Switch Menu script- by Martial B of http://getElementById.com/

* Modified by Dynamic Drive for format & NS4/IE4 compatibility

* Visit http://www.dynamicdrive.com/ for full source code

***********************************************/

 

var persistmenu="yes" //"yes" or "no". Make sure each SPAN content contains an incrementing ID starting at 1 (id="sub1", id="sub2", etc)

var persisttype="sitewide" //enter "sitewide" for menu to persist across site, "local" for this page only

 

if (document.getElementById){ //DynamicDrive.com change

document.write('<style type="text/css">\n')

document.write('.submenu{display: none;}\n')

document.write('</style>\n')

}

 

function SwitchMenu(obj){

if(document.getElementById){

var el = document.getElementById(obj);

var ar = document.getElementById("masterdiv").getElementsByTagName("span"); //DynamicDrive.com change

if(el.style.display != "block"){ //DynamicDrive.com change

for (var i=0; i<ar.length; i++){

if (ar.className=="submenu") //DynamicDrive.com change

ar.style.display = "none";

}

el.style.display = "block";

}else{

el.style.display = "none";

}

}

}

 

function get_cookie(Name) {

var search = Name + "="

var returnvalue = "";

if (document.cookie.length > 0) {

offset = document.cookie.indexOf(search)

if (offset != -1) {

offset += search.length

end = document.cookie.indexOf(";", offset);

if (end == -1) end = document.cookie.length;

returnvalue=unescape(document.cookie.substring(offset, end))

}

}

return returnvalue;

}

 

function onloadfunction(){

if (persistmenu=="yes"){

var cookiename=(persisttype=="sitewide")? "switchmenu" : window.location.pathname

var cookievalue=get_cookie(cookiename)

if (cookievalue!="")

document.getElementById(cookievalue).style.display="block"

}

}

 

function savemenustate(){

var inc=1, blockid=""

while (document.getElementById("sub"+inc)){

if (document.getElementById("sub"+inc).style.display=="block"){

blockid="sub"+inc

break

}

inc++

}

var cookiename=(persisttype=="sitewide")? "switchmenu" : window.location.pathname

var cookievalue=(persisttype=="sitewide")? blockid+";path=/" : blockid

document.cookie=cookiename+"="+cookievalue

}

 

if (window.addEventListener)

window.addEventListener("load", onloadfunction, false)

else if (window.attachEvent)

window.attachEvent("onload", onloadfunction)

else if (document.getElementById)

window.onload=onloadfunction

 

if (persistmenu=="yes" && document.getElementById)

window.onunload=savemenustate

 

</script>

 

 

<table width="165" border="0" cellspacing="0" cellpadding="0">

<tr>

<td><img src="../img/menuAfaculdade.jpg" width="165" height="31"></td>

</tr>

 

 

<%

 

Function RetornalLinkMenu(Codigo, Conteudo)

 

Select Case Conteudo

 

Case "1"

RetornalLinkMenu = "agenda.asp?codigo=" & Codigo

 

Case "2"

RetornalLinkMenu = "formulario.asp?codigo=" & Codigo

 

Case "3"

RetornalLinkMenu = "noticias.asp?codigo=" & Codigo

 

Case "4"

RetornalLinkMenu = "galeria.asp?codigo=" & Codigo

 

Case "5"

RetornalLinkMenu = "conteudo.asp?codigo=" & Codigo

 

Case Else

RetornalLinkMenu = Empty

 

End Select

 

End Function

 

ComandoSQL = "select * from menu where CodPai is null"

Set RS = Server.CreateObject("ADODB.Recordset")

RS.Open ComandoSQL,Conn, 1, 2

While Not RS.EOF

%>

 

<tr>

<td>

<table width="165" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="22" class="fundoMenu2">   <a href="noticias.asp" class="linkBranco"><%=rs("titulo")%> </a>

</td>

<%

Set RS_titulo = Server.CreateObject("ADODB.Recordset")

sqlmenu = "select * from menu where CodPai = '" & RS("Codigo") & "'"

RS_titulo.Open sqlmenu,Conn, 1, 2

While not RS_titulo.EOF

%>

<tr>

<%

Link = RetornalLinkMenu(RS_titulo("CodSecao"), RS_titulo("CodConteudo"))

 

If Not isEmpty(Link) Then

%>

<td height="22">  - <a class="texto" href="<%=Link%>"><%=RS_titulo("Titulo")%></a></td>

<%

Else

%>

<td height="22">    - <span class="texto"><%=RS_titulo("Titulo")%></span></td>

<%

End If

%>

 

<td>

<%

Set RS_filho = Server.CreateObject("ADODB.Recordset")

sqlfilho = "select * from menu where CodPai = '" & RS_titulo("Codigo") & "'"

RS_filho.Open sqlfilho,Conn, 1, 2

While not RS_filho.EOF

%>

<tr>

<%

Link = RetornalLinkMenu(rs_filho("CodSecao"), rs_filho("CodConteudo"))

 

If Not isEmpty(Link) Then

%>

<td height="22">  - <a class="texto" href="<%=Link%>"><%=rs_filho("Titulo")%></a></td>

<%

Else

%>

<td height="22">  - <span class="texto"><%=rs_filho("Titulo")%></span></td>

<%

End If

%>

<td>

<%

RS_filho.MoveNext

Wend

 

RS_titulo.MoveNext

wend

%>

</tr>

</table></td>

</tr>

<%

rs.movenext

Wend

rs.Close

Set rs = Nothing

%>

<tr>

<td><img src="../img/menuBiblioteca.jpg" width="165" height="50" border="0"></td>

</tr>

<tr>

<td><a href="agenda.asp"><img src="../img/menuEventos.jpg" width="165" height="50" border="0"></td>

</tr>

<tr>

<td><img src="../img/menuCentro.jpg" width="165" height="50" border="0"></td>

</tr>

<tr>

<td><a href="faleconosco.asp"><img src="../img/menuFaleconosco.jpg" width="165" height="51" border="0"></td>

</tr>

<tr>

<td><img src="../img/menuAlunoonline.jpg" width="165" height="52" border="0"></td>

</tr>

<tr>

<td><img src="../img/menuFinal.jpg" width="165" height="82"></td>

</tr>

</table>

 

 

 

[Tiago Cardoso 1]

Cara eu não recomendo fazer menus em JavaScript, faça com CSS, pois imagine se o JavaScript estiver desativado, o que vai acontecer? isso mesmo nada, seus submenus não vão ser ativados...

 

Agora se realmente quer fazer com JavaScript, a lógica é essa:

 

http://forum.imasters.com.br/index.php?showtopic=214034

 

No código que eu postei, pense que os links são seus submenus...

[mauriciocr 0]

Amigo , nao to conseguindo fazer em JavaScript ,O menu é gerenciado com CODIGO PAI E CODIGO FILHOe nao to acertando fazer com que o SQL entre nos campos ,se puder , me ajuda ., por favor

[Tiago Cardoso 1]

Cara mas o que eu tenho a ver com o SQL que não está entrando nos campo?Resolva isso primeiro no fórum adequado, e outra sua dúvida está respondida no post acima...Por isso te digo para resolver primeiro o SQL ok?Qualquer dúvida posta ai...

[Megadeth 2]

Cara segue o conselho do PKTIAGO e faz com CSS.

 

veja isso: http://www.maujor.com/tutorial/ddownmenu.php

[mauriciocr 0]

Amigo , desculpa , eu me expessei errado .O SQL está certo , o que acontece é que o MENU É GERENCIADO pelo banco de dados .então tudo do botão vem do banco de dados , o nome e o link vem do banco de dados .Como é um MENU com PAI e filhos , eu nao to sabendo colocar todo esse conteudo para que funcione com o javascript .Bom amigos , ta dificil de eu explicar , nao sei se vcs me entenderam .Mas obrigado pela ajuda , eu estou tentando aquiabraço

[Tiago Cardoso 1]

Mas ainda não entendo o por que de não querer usar um menu em CSS, não importa que seus dados do menu veem de um BD...Para ficar mais fácil de te ajudar posta um link para a gente...