Menu ad Albero

**nicolal** · 31-03-2005, 22:42

Vorei fare un "semplice" menu con voci di primo livello e voci di secondo livello...il mio problema è abbinare le voci di secondo livello a quelle di primo livello...
ovvero...tutte le voci di sottolivello si aprono sempre nella prima voce...
questo è il codice da me partorito:
<%Do while not Menu.EOF%>
<tr>
<td>?IDMenu=<%=Menu("IDMenu")%>">[img]images/<%=Menu([/img]" border="0"></td>
</tr>
<%Do while not Sottomenu.EOF%>
<tr>
<td><%=Sottomenu("Voce")%></td>
</tr>
<%
Sottomenu.movenext
loop
%>
<tr>
<td>[img]images/pixel.gif[/img]</td>
</tr>
<%
Menu.movenext
loop
%>

...qualcuno sa come abbinare le voci di secondo livello alla propria voce di primo livello ...per identificare passo l'ID IN QUERYSTRING

**lukeonweb** · 31-03-2005, 23:14

Come hai strutturato le query?

**nicolal** · 31-03-2005, 23:22

<%
Dim IDMenu
set Menu = Server.CreateObject("ADODB.Recordset")
sql = "select * from Menu Order by IDMenu Asc"
Menu.ActiveConnection = cn
Menu.Open sql, cn
IDMenu = request.QueryString("IDMenu")

set Sottomenu = Server.CreateObject("ADODB.Recordset")
sql = "select * from Sottomenu where IDMenu =" &IDMenu
Sottomenu.ActiveConnection = cn
Sottomenu.Open sql, cn
%>

**stabi** · 01-04-2005, 09:35

questo

codice:

sql = "select * from Sottomenu where IDMenu =" &IDMenu 
Sottomenu.ActiveConnection = cn 
Sottomenu.Open sql, cn

lo fai dopo aver scritto i dati del recordset menu
poi lo looppi come ora e chiudi il recordset prima del loop del menu.

**nicolal** · 01-04-2005, 12:38

Si l'ho fatto ...mi stampa il sottomenu per tutte le voci di primo livello :
awww ti posto l'intero codice della pagina
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>[img]images/universaltac_plastica_english.jpg[/img]</td>
</tr>
<%
Dim IDMenu
set Menu = Server.CreateObject("ADODB.Recordset")
sql = "select * from Menu Order by IDMenu Asc"
Menu.ActiveConnection = cn
Menu.Open sql, cn
IDMenu = request.QueryString("IDMenu")
%>
<tr>
<td>[img]images/pixel.gif[/img]</td>
</tr>
<%
Do while not Menu.EOF
set Sottomenu = Server.CreateObject("ADODB.Recordset")
sql = "select * from Sottomenu where IDMenu =" &IDMenu
Sottomenu.ActiveConnection = cn
Sottomenu.Open sql, cn

%>

<tr>
<td>?IDMenu=<%=Menu("IDMenu")%>">[img]images/<%=Menu([/img]" border="0"></td>
</tr>
<%
Do while not Sottomenu.EOF
%>
<tr>
<td><%=Sottomenu("Voce")%></td>
</tr>
<%
Sottomenu.movenext
loop

Sottomenu.close()
Set Sottomenu = nothing
%>
<tr>
<td>[img]images/pixel.gif[/img]</td>
</tr>
<%
Menu.movenext
loop
%>
<%
Menu.close()
Set Menu = nothing
%>
<tr>
<td>[img]images/UNIVERSALTAC.JPG[/img]</td>
</tr>
</table>

**nicolal** · 02-04-2005, 09:46

Non è che per caso sto completmente sbagliando la logica ? ovvero non uso il codice che dovrei usare :P .....

**nicolal** · 04-04-2005, 10:53

Non mi risponde + nessuno?

**diegoctn** · 04-04-2005, 14:38

Io una cosa del genere l'ho fatat tempo fa ma era quasi esclusivamente in Jscript. In asp non so se si può fare.

**nicolal** · 04-04-2005, 14:43

allora protrei usare JS + ASP ... non è che per caso posso avere il codice del menu che hai fatto ...

**michele.santoro** · 04-04-2005, 14:50

Prova a vedere se questo script può esserti d'aiuto.

codice:

<%@Language = JScript%>
<%
    var id = parseInt(Request.QueryString("id"));
%>
<html>
<body>



Menu</p>

<ul>[*]Voce # 1
        <%if (id == 1) {%>
        <ul>[*]Sotto Menu # 1 di 1[*]Sotto Menu # 2 di 1[*]Sotto Menu # 3 di 1[/list]
        <%}%>[*]Voce # 2
        <%if (id == 2) {%>
        <ul>[*]Sotto Menu # 1 di 2[*]Sotto Menu # 2 di 2[*]Sotto Menu # 3 di 2[/list]
        <%}%>[*]Voce # 3
        <%if (id == 3) {%>
        <ul>[*]Sotto Menu # 1 di 3[*]Sotto Menu # 2 di 3[*]Sotto Menu # 3 di 3[/list]
        <%}%>[/list]



Chiudi Menu</p>

</body>
</html>

Puoi già vedere così se è adatto ai tuoi scopi.
Ah! dimenticavo, chiamalo menu.asp

Discussione: Menu ad Albero

Strumenti discussione

Ricerca discussione

Visualizza

Menu ad Albero

Permessi di invio