Код функции для чтения последней строки файла asp выглядит следующим образом:
функция FSOlastline(имя файла)
dim fso,f,temparray,tempcnt
установите fso = server.CreateObject(scripting.filesystemobject)
если не fso.fileExists(server.mappath(имя файла)) то выйдите из функции
set f = fso.opentextfile(server.mappath(имя файла),1)
если не f.AtEndofStream, то
tempcnt = f.readall
е.закрыть
установить f = ничего
temparray = Split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
конец, если
конечная функция