Lo scopo principale di queste pagine ASP è quello della visualizzazione del contenuto di una qualsiasi directory del disco fisso del server su cui queste pagine risiedono.

In questa prima parte verrà descritto come realizzare delle semplici pagine ASP che visualizzeranno solamente il nome delle directory ed i relativi file, nella seconda parte (ancora in fase di realizzo) sarà possibile vedere anche il contenuto del singolo file.

Struttura dell'applicazione

L'applicazione è strutturata su tre frame in cui vengono mostrati tutti i dati essenziali ovvero:

• Il percorso corrente
• Le directory in esso contenute
• I file presenti sul percorso e la loro struttura

Costituiti da tre file:

• percorso.asp
• directory.asp
• file.asp
• visualizza.asp

Ed il file "portante": index.asp

I file percorso.asp , directory.asp , file.asp e visualizza.asp , con qualche piccola modifica, sono dei file indipendenti l'uno dall'altro uniti tra loro dal file index.asp che si preoccupa di inviare a tutti e tre lo stesso paramentro " percorso ".

Diversamente da come si potrebbe presupporre, l'applicazione viene avviata richiamando il file directory.asp e non index.asp .

Vediamo quindi la struttura di ogni singolo file .asp partendo proprio da directory.asp :

La prima operazione che viene eseguita è la richiesta del valore assegnato al parametro percorso :

<%

Percorso = Trim(LCase(Request.QueryString("percorso")))

Quindi viene analizzato questo valore. Se quest'ultimo è uguale a "" (stringa vuota), l'applicazione è stata appena avviata, quindi viene richiamato il file index.asp inserendoci anche il parametro di default percorso=c:\ .

If Percorso = "" then

 Response.redirect "index.asp?percorso=c:\"

Else

Diversamente, se percorso è valorizzato, controlla che sia presente come carattere finale \ (la slash), viene quindi inserito anche un semplice form per consentire il cambio di unità. Le istruzioni Right e Left consentono di analizzare i caratteri a destra e a sinistra di una stringa per un numero pari di caratteri a quelli specificati:

 If Right(Percorso,1) <> "\" then Percorso = Percorso & "\"

 %>

 <FORM METHOD=GET ACTION="directory.asp">

 <INPUT TYPE=TEXT NAME="percorso" VALUE="<%=Left(Percorso,2)%>">


 <INPUT TYPE=SUBMIT VALUE="Cambia unità">

 </FORM>

 <%

Viene quindi richiamata la function che, in semplice testo, inserisce tutti i nomi delle cartelle presenti sul percorso corrente:

 Mostra_Directory Percorso

End If