menu gerarchico data stringa

**alspam** · 01-07-2004, 14:41

Come posso riprodurre un menu tipo gestione risorse se nel mio db ho le seguenti stringhe che definiscono la gerarchia

nomeita
Design - oggetto
Design - gioco didattico
Editoria - libro - libro teorico didattico
Editoria - libro - libro per bambini
Editoria - libro - libro d'artista
Editoria - libro - cura grafica ed editoriale
Editoria - interventi su pubblicazioni periodiche o libri - interventi grafici
Editoria - interventi su pubblicazioni periodiche o libri - interventi scritti
Editoria - interventi su pubblicazioni periodiche o libri - interventi scritto/grafici
Editoria - pubblicità e comunicazione
Editoria - pubblicità e comunicazione - manifesto
Editoria - copertina - libro
Editoria - copertina - periodico
Editoria - copertina - editoria musicale
Multiplo d'arte - serigrafia
Multiplo d'arte - opera plastica
Opera unica

**lukeonweb** · 01-07-2004, 14:43

http://www.constile.org/DHTML/menu_ad_albero/

**alspam** · 01-07-2004, 15:07

buono il codice che mi hai passato ma ora il problema rimane quello passare dalle stringhe alle sequenze di LI e UL !

Io avevo pensato a splittare le stringhe sul carattere -

**lukeonweb** · 01-07-2004, 15:08

e perchè no, provaci

**alspam** · 01-07-2004, 17:15

<%
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.Open "SELECT DISTINCT livello1 from livelli_categorie", conn
%>

<style type="text/css">

</style>
<script type="text/javascript">

</script>
</head>
<body>

<ul>

<% i = 1 %>
<% do while not rs1.EOF %>
<%
Set Rs2 = Server.CreateObject("ADODB.Recordset")
str= "SELECT DISTINCT livello2 from livelli_categorie WHERE livello1='" & rs1("livello1") &"'"
Rs2.Open str , conn
%>

<% if Rs2("livello2")<>"" then %>
<li class="menu" >
<% else %>
<li >
<%end if%>
<% response.write rs1("livello1") %>

<ul class="submenu" id="submenu-<% =i %>">

<% j = 1 %>
<% do while not rs2.EOF %>

<%
Set Rs3 = Server.CreateObject("ADODB.Recordset")
str= "SELECT DISTINCT livello3 from livelli_categorie WHERE livello1='" & rs1("livello1") &"' AND livello2='"& rs2("livello2") &"'"
Rs3.Open str , conn
%>

<% if Rs3("livello3")<>"" then %>
<li class="menu" >
<% else %>
<li >
<%end if%>

<% response.write rs2("livello2") %>

<ul class="submenu" id="submenu-<% =i %>-<% =j %>">

<% do while not rs3.EOF %>
<%if rs3("livello3")<>"" then %>

[*]<% response.write rs3("livello3") %>
<% end if%>

<%
rs3.MoveNext
loop
%>
[/list]

<%
j = j + 1
%>
<%
rs2.MoveNext
loop
%>

[/list]

<%

i = i + 1

%>

<%
rs1.MoveNext
loop
%>

[/list]

</body>
</html>

Discussione: menu gerarchico data stringa

Strumenti discussione

Ricerca discussione

Visualizza

menu gerarchico data stringa

Permessi di invio