Eine nicht seltene Aufgabe ist es eine Datei am Server auszulesen, und dann entweder den ganzen Inhalt oder nur Teile an den Client zu schicken. Bei diesem Unterfangen hilft das
File System Object, eine Komponente die mit den MS Scripting Engines ausgeliefert wird. Diese beeinhaltet Funktionalität um Textdateien manipulieren zu können (lesen/schreiben), sowie generelle Dateimanipulationen auszuführen (löschen, kopieren, etc).
Nun zur konkreten Aufgabenstellung: das Auslesen von Dateien. Um das ganze interessanter zu gestalten, schreibt sich das Script selbst zum Client (also eine Art "ASP Quelltext anzeigen"). Es sind genügend Kommentare im Script um sich zurechtzufinden.
<%
' diese ASP Datei schickt Text an den Client
Response.ContentType = "text/plain"
' ermitteln des Pfades des gerade laufenden Scripts
strScript = Request.ServerVariables("SCRIPT_NAME")
' aus dem Web Site-relativen Pfad (/././) muß man jetzt
' einen physikalischen Pfad machen (c:\.\.\.)
strScript = Server.MapPath(strScript)
' erzeugen des FSO Objekts, öffnen der Datei (Lesezugriff)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(strScript, 1, FALSE)
' Auslesen und senden der Daten - zeilenweise
Do While f.AtEndOfStream <> True
Response.Write f.ReadLine & vbCrLf
Loop
' und jetzt räumen wir noch auf
f.Close
Set f = Nothing
Set fs = Nothing
%>