


<html>
<head>
<title>Menu DropDown</title>
</head>
<body>
<table width="100%" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<img src="logo.jpg">
</td>
</tr>
<tr>
<td height="19" background="bar.jpg" style="padding:2px 2px 2px 6px; font:8pt Verdana, Arial; color:#FFFFFF;"><strong>Menu Dinâmico</strong></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="TabelaDoMeio">
<tr>
<td id="Menu" valign="top">
<div class="BordaMenu">
<div class="MenuPai">Menu Pai Aqui !</div>
<div id="MenuFilho" class="Hide">
<div class="MenuFilho">Menu Filho Aqui !</div>
</div>
</div>
</td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html><style>
.TabelaDoMeio {
border-collapse:collapse;
}
.TabelaDoMeio td {
border: 1px Solid #CCCCCC;
padding: 4px;
}
.TabelaDoMeio td#Menu {
border-left: 1px Solid #CCCCCC;
border-right: 1px Solid #CCCCCC;
border-bottom: 1px Solid #CCCCCC;
background: #FEF9ED;
padding: 4px;
width: 180px;
}
.BordaMenu {
border: 1px Solid #CCCCCC;
background: #FFFFFF;
}
.MenuPai {
font:8pt Verdana, Arial, Helvetica;
color:#666666;
padding: 2px 2px 2px 5px;
}
.MenuFilho {
font:8pt Verdana, Arial, Helvetica;
color:#666666;
padding: 2px 2px 2px 5px;
}
.Hide {
visibility:hidden;
position:absolute;
}
.Show {
visibility:visible;
position:static;
}
</style>
<%
'Abrindo a Conexão com o Banco
strPath = Server.MapPath("banco.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&strPath&";"
Set objRec1 = Server.CreateObject("ADODB.RecordSet")
strSql_1 = "SELECT * FROM TMenuPai ORDER BY MenuPaiID"
Set objRec1 = objConn.Execute(strSql_1)
%><div class="BordaMenu">
<%
cont = 0
While Not objRec1.EOF
%>
<div class="MenuPai">
<b><%Response.Write objRec1("NomeMenuPai")%></b>
</div>
<div id="MenuFilho" class="Hide">
<%
Set objRec2 = Server.CreateObject("ADODB.RecordSet")
strSql_2 = "SELECT NomeMenuFilho FROM TMenuFilho WHERE MenuFilhoID="&cont
Set objRec2 = objConn.Execute(strSql_2)
While Not objRec2.EOF
%>
<div class="MenuFilho">
<%Response.Write objRec2("NomeMenuFilho")%>
</div>
<%
objRec2.MoveNext
Wend
objRec2.Close
%>
</div>
<%
cont = cont + 1
objRec1.MoveNext
Wend
objRec1.Close
%>
</div>
<script>
function mostraMenu($mID){
menu = document.getElementById("MenuFilho_"+$mID);
if(menu.className == "Hide"){
menu.className = "Show";
}else{
menu.className = "Hide";
}
}
</script><div class="MenuPai" onClick="mostraMenu('<%=cont%>')"><div id="MenuFilho_<%=cont%>" class="Hide">
Todas as matérias de Rodrigo
O computador terá o tamanho que você quiser. Poderá ser do tamanho da .
Aqui veremos como aplicar uma tatuagem a qualquer pessoa de uma maneir.
Público é um item fundamental para se ter um site. De que adianta você.
Veja como transformar suas imagens em quebra cabeças de uma maneira be.
Olá pessoal, estou aqui para mais uma vídeo aula, desta vez vou mostra.
Nesta coluna aprenderemos montar um Gráfico utilizando o componente Fu.
Podemos definir classes como um objeto, com seus próprios métodos (fun.
Essa matéria não pretende mostrar, nem de longe, todos os problemas e .
O objeto Request se refere a todos os dados requisitados pelo servidor.
© 2005 - 2009 - Oficina da Net - v 4.0 - É proibida a reprodução parcial ou completa do conteúdo deste site sem autorização por escrito. Resolução adequada: 1024x768px.
- Publicado em: 28/03/2007 - 07:38
Parabéns! o código está ótimo e funciona muito bem! Usei ele para outra função (envés de menu, estou usando para uma lista telefonica). Ficou muito legal! Tenho uma dúvida: como faço para adicionar colunas nesse esquema?
- Publicado em: 02/06/2007 - 17:31
gostei da primeira parte, estou esperando o complemento.
Weslene Estevao de Paula
- Publicado em: 30/04/2008 - 11:51
Parabens pelo artigo, ficou show de bola, por acaso nao teria um exemplo desse em Delphi, essa ideia de trabalhar montando o menu com dados de banco de dados é muito bem elaborado, uma ves que montamos o menu de acordo com os acessos de usuarios.