Menu e DataBase

[nicolal]

Dovrei organizzare una Tabella del DB per realizzare un Menu con 4 voci di sottolivello tipo

Voce di primo livello con sottomenu
- voce di secondo livello con sottomenu
---- voce di terzo livello con sottomenu
-------- voce di quarto livello con sottomenu

Vorrei fare tutto in 1 tabella e come potrei organizzare questa tabella?

il MAX di livelli è 4

[centoiso]

con questa struttura non hai limiti:

id (contatore)
id_p (num, id padre categoria)
voce (txt voce di menù)

es.

1, 0, "forum"
2, 1, "linguaggi di programmazione e database"
3, 2, "asp"
4, 3, "menu e database"

5, 0, "php"
....

[nicolal]

centoiso

Me la spieghi un poketto? :rollo:

[nicolal]

Ho fatto quella tabella e ora sto provando a pescare le voci, ho fatto una cosa del genere...

<%
Dim IDMenu
set Menu = Server.CreateObject("ADODB.Recordset")
sql = "select * from Menu where ID_Padre = 0"
Menu.ActiveConnection = cn
Menu.Open sql, cn
%>
<%
Do while not Menu.EOF
IDMenu = Menu("IDMenu")
%>
<%=Menu("voce")%>

<%
set Menu = Server.CreateObject("ADODB.Recordset")
sql = "select * from Menu where ID_Padre =" & IDMenu
Menu.ActiveConnection = cn
Menu.Open sql, cn
%>
<%Do while not Menu.EOF%>
-------------------------<%=Menu("voce")%>
<%
Menu.movenext
loop
%>

Ma così ovviamente mi dice che:

Il record corrente corrisponde all'inizio o alla fine del file


come faccio un annidamento di cicli per la stessa tabella del DB?

[nicolal]

Per spiegarmi meglio ...io ho creato questa tabella

IDMenu ID_padre Voce

1 0 VOCE1
2 1 sottomenu
3 1 sottomenu
4 1 sottomenu


come si fa un ciclo di questo tipo...dove stampo la voce con ID PADRE zero (che vuol dire è un menu di primo livello) e poi i sottolivello

[centoiso]

Ciao, devi usare una funzione ricorsiva, cerca su questo forum se non la trovi ti mando un esempio

[nicolal]

Si l'ho trovata ma non ci capisco nulla :P

meglio se mi passi un esempio e grazie mille

[centoiso]

ok, con questa funzione generi una lista puntata con tutte i nodi:

'creo la funzione per listare le categorie
	Function elencafigli(id_p_cat)
		
		Dim rs
		set rs = cn.execute("select * from categorie where id_p_cat = "&id_p_cat&" order by categoria")
		response.Write("<ul>")
		while not rs.eof
			response.Write("[*]")
			if id_p_cat = 0 then response.Write("<font color='#FF0000'>") end if
			response.Write(""&rs("categoria")&"
")
			if id_p_cat = 0 then response.Write("</font>") end if
			response.Write("")
			parametro = rs("id_categoria")
			elencafigli(parametro)
		rs.moveNext
		wend
		response.Write("[/list]")
		rs.close
		set rs = nothing
		
	End Function
	
	
	'inizio il cliclo attribuendo il valore zero 
	id_p_cat = 0
	'chiamo la funzione
	elencafigli(id_p_cat)