Active Server Pages (ASP) è un linguaggio di scripting lato server creato e prodotto da Microsoft. Esso consente ai programmatori web aggiungere funzionalità di programmazione per pagine web di codice di script in un server di elaborazione e restituzione dinamicamente generato codice HTML al browser web. Utilizzando il File System Object, uno script ASP può accedere a un file di testo sul server e utilizzare il contenuto per popolare un menu a discesa. In questo modo il contenuto di un menu a discesa per modificare facilmente l'aggiornamento del file di testo, piuttosto che modificare il codice ASP all'interno della pagina web.
Istruzioni
1
Aprire un file di testo e immettere il contenuto che si desidera essere visualizzati nel menu a discesa. Salvare il file di testo con un nome significativo e caricarlo nella directory principale del server web utilizzando l'interfaccia fornita dal tuo host web.
2
Creare una pagina web dove si sta andando a posizionare il vostro menu a discesa e salvare la pagina con un nome significativo e un'estensione "ASP". Questa estensione indica al server che la pagina contiene codice ASP.
3
Creare un menu a discesa utilizzando < select >< / selezionare > Tag. Questi tag che indicano al browser di visualizzare ogni opzione contenuta all'interno come una voce nel menu a discesa. La procedura seguente si baserà sull'esempio aggiungendo ogni una o due righe di codice allo script.
< select >
< / selezionare >
4
Creare uno script ASP all'interno dei tag < select > utilizzando < % e % > Tag. Questi tag che indicano al server di elaborare il codice tra di loro come codice ASP. Definire le variabili all'interno di questi tag script.
< select >
< %
Dim fso, file, linea
% >
< / selezionare >
5
Creare un oggetto di sistema di File. Questa riga di codice crea una variabile che consente l'accesso ai metodi contenuti all'interno della classe di oggetto File System.
< select >
< %
Dim fso, file, linea
impostare fso=Server.CreateObject("Scripting.FileSystemObject")
% >
< / selezionare >
6
Utilizzare il metodo OpenTextFile dell'oggetto di sistema di File per aprire il file di testo che caricato sul server nel passaggio 1. Il primo parametro del metodo è il percorso del file (o il nome di file se caricato nella directory principale del server) e il secondo parametro determina se il file può essere scritto o no. Impostare il secondo parametro a "1" perché sei solo lettura dal file.
< select >
< %
Dim fso, file, linea
impostare fso=Server.CreateObject("Scripting.FileSystemObject")
file set = fso. OpenTextFile("myfile.txt",false)
% >
< / selezionare >
7
Scorrere ogni riga del file di testo e scrivere quella linea in un insieme di < opzione >< / option > Tag. Questa operazione inserisce ogni riga del file di testo nel menu a discesa.
< select >
< %
Dim fso, file, linea
impostare fso=Server.CreateObject("Scripting.FileSystemObject")
file set = fso. OpenTextFile("myfile.txt",false)
While Not file. AtEndOfStream
linea = file.readline
Response. Write "< valore opzione =" & Chr (34) & linea & Chr (34) & ">" & linea & "< / option >"
riga = ""
Loop
% >
< / selezionare >