Der Funktionscode für asp zum Lesen der letzten Zeile der Datei lautet wie folgt:
Funktion FSOlastline(Dateiname)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject(scripting.filesystemobject)
Wenn nicht fso.fileExists(server.mappath(filename)), dann beenden Sie die Funktion
set f = fso.opentextfile(server.mappath(filename),1)
wenn nicht f.AtEndofStream dann
tempcnt = f.readall
f.schließen
setze f = nichts
temparray = split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
Ende wenn
Endfunktion