Código fuente de 'Lee fichero.asp'
<html>
<head>
<title>Lee fichero - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Lee fichero</font></b></p>
<body style="font-family: Arial; font-size: 11pt">
El fichero 'fichtexto.txt' (localizado en la carpeta actual) contiene estas líneas de texto:
<br><br>
<% 'Codigo ASP
Const ForReading = 1
'Variables
Dim objFSO , objTextStream , strText , strFileName
'Situación fichero de texto
strFileName = server.mappath("fichtexto.txt")
'Instancia de FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Abre fichero de texto
Set objTextStream = objFSO.OpenTextFile(strFileName , ForReading , False)
If not objTextStream.AtEndOfStream Then
Do While not objTextStream.AtEndOfStream
'va mostrando las líneas que va leyendo
strText = objTextStream.ReadLine
Response.Write strText & "<br>"
Loop
End If
objTextStream.Close
'Variables a nulo
Set objFSO = Nothing
Set objTextStream = Nothing
'Fin código ASP%>
<p align=center><b>Archivos a descargar:<br>
</b><a href="LeeFichero.zip">LeeFichero.zip</a><br>
</p>
</body>
</html>