Contenuto di un file

Un semplice script che permette di leggere il contenuto di un file:

<% 
Dim strLinea, FileObject, Instream, strFile, intTipo 
strFile = Server.MapPath("testo.txt") 
intTipo = 1 ' lettura 
' creo l'oggetto 
Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 
' apro il file 
Set InStream = FileObject.OpenTextFile(strFile, intTipo, true) 
' leggo tutte le linee 
strLinea = InStream.ReadAll() 
Response.Write("<pre>" & strLinea & "</pre>" 
) 
' libero risorse 
InStream.Close 
Set InStream = Nothing 
Set FileObject = Nothing 
%>