#252 - 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.
Approfondimenti

Commenti

Esprimi il tuo giudizio su questo script:

Per procedere devi essere autenticato.

toresco scrive:
#252 - Costruire una barra di navigazione dinamica

non è ben chiara la spiegazione, non si capisce quali campi bisogna inserire nela tabella

Continua »»» | Rispondi »»»
lunedì 8 maggio 2006 | 1 risposta

Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.

Hai trovato un errore di formattazione o battitura? Segnalacelo!

Feedback
2,772,772,772,772,77 Utilità 
Autore: Andrea Palmatè
Data: 11 maggio 2001

Categorie: Classic ASP, Database, Tips
Tags: , , ,

Stampa Stampa Download

MEDIA

Tutti i media



IN EVIDENZA
MISC