Costruire una barra di navigazione dinamica
Con questo script è possibile creare un menu testuale dinamico.
Per pima cosa bisogna creare un database con una tabella dove verranno inserite le voci del menu che si vuole visualizzare. Questo script non fa altro che caricare le voci ad una ad una e separarle col simbolo "|".
E' possibile assegnare ad ogni voce un link.
<%
Dim adoCon
Dim adoRst
'Creo un oggetto per la connessione
Set adoCon = Server.CreateObject("ADODB.Connection")
'Creo un oggetto per il recordset
Set adoRst = Server.CreateObject("ADODB.Recordset")
'Apro la connessione al DB
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\menu.mdb")
'Eseguo la query recuperando tutti i campi dal DB e ordinandoli per indice
adoRst.Open "SELECT * FROM Menu ORDER BY Indice;", adoCon
'Finchè non siamo arrivati alla fine dei dati
While Not adoRst.EOF
Response.Write("<A HREF='" & adoRst("Link") & "'>" & adoRst("Titolo") & "</A>") 'Stampo il menu
'mi muovo sul record successivo
adoRst.MoveNext
if not adoRst.Eof Then
'Stampo il carattere divisorio
Response.Write " | "
End If
Wend
'chiudo il recordset
adoRst.Close
'chiudo il DB
adoCon.Close
'Elimino i riferimenti
Set adoCon = Nothing
Set adoRst = Nothing
%>Il risultato finale potrebbe essere questo:
Home | Chi Siamo | Contatti | Links
con ad ogni voce associato un link diverso.
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
