Corsi di Cultura - ASP e PHP ed. 2002

	Corsi di Cultura Informatica (edizione 2002) CICAIA Centro Interdipartimentale di Calcolo Automatico e Informatica Applicata dell'Università di Modena e Reggio Emilia CEDOC Centro Documentazione della Provincia di Modena
ASP e PHP

argomenti ASP

presentazione

Inclusione lato server

Bibliografia e siti web

Oggetti file system

L'oggetto File System si utilizza per accedere a file e cartelle sul server.
Si utilizza l'oggetto FileSystemObject come segue:


 Set objFS=Server.CreateObject("Scripting.FileSystemObject")

Esempio

Verifichiamo le proprietà di un file che si trova sul server: ES40

nome del file: es40.asp

<html>
<head> <title> La mia pagina ASP 40 </title>
</head>
<body>
Questa è la mia pagina ASP 40
<br>
<pre>
<% 
'
'connessione a un file sul server
'
nomefile= "d:/marghe.jpg"
Dim objFS
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Dim unfile
Set unfile=objFS.Getfile (nomefile)
'
Response.write "Proprietà del file: <b>" & nomefile & "</b>"
Response.write "<br>Tipo: " & unfile.Type
Response.write "<br>Dimensione: " & unfile.Size
Response.write "<br>Ultima modifica: " & unfile.DateLastModified
Response.write "<br>Drive: " & unfile.Drive
Response.write "<br>Percorso : " & unfile.Path
'
' elimina oggetti 
'
set unfile = nothing
set objFS = nothing
%> 
</pre>
</body>
</html>

Visualizza l'esempio

Non confondere l'oggetto File System con l'oggetto file:
objFS=Server.CreateObject("Scripting.FileSystemObject") è l'oggetto FileSystem che contiene le definizioni degli oggetti file: unfile=objFS.Getfile (nomefile)

Leggere il contenuto di un file

Sempre utilizzando l'oggetto File System Object è possibile leggere il contenuto di un file di testo memorizzato sul server.

Esempio

ES41

nome del file: es41.asp

<html>
<head> <title> La mia pagina ASP 41 </title>
</head>
<body>
Questa è la mia pagina ASP 41
<br>
<pre>
<% 
'
'connessione a un file sul server
'
nomefile= "d:/marghe.txt"
Dim objFS
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Dim unfile
Set unfile=objFS.OpenTextFile (nomefile, 1)

Do while not unfile.AtEndOfStream 
   Response.write unfile.readline & <br>
loop

' elimina oggetti 

set unfile = nothing
set objFS = nothing  
%> 
</pre>
</body>
</html>

Visualizza l'esempio

Scrivere un file sul server

Sempre utilizzando l'oggetto File System Object è possibile scrivere un file sul server.

Esempio

ES42

nome del file: es42.asp

<html>
<head> <title> La mia pagina ASP 42 </title>
</head>
<body>
Questa è la mia pagina ASP 42
<br>
<pre>
<% 
'
'connessione a un file sul server
'
nomefile= "d:/scrivo.txt"
Dim objFS
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Dim unfile
Set unfile=objFS.OpenTextFile (nomefile, 2, True)

unfile.writeline ". - . - . - . - . - . - ."
unfile.writeline "scrivo un testo nel file "
unfile.writeline "  una riga per volta     "
unfile.writeline ". - . - . - . - . - . - ."
unfile.writeline "         THE END         "

unfile.close
'
' elimina oggetti 
'
set unfile = nothing
set objFS = nothing
%> 
</pre>
</body>
</html>

Visualizza l'esempio