用asp实现读取文件的最后一行的代码

　　function FSOlastline(filename)

　　dim fso,f,temparray,tempcnt

　　set fso = server.CreateObject("scripting.filesystemobject")

　　if not fso.fileExists(server.mappath(filename)) then exit function

　　set f = fso.opentextfile(server.mappath(filename),1)

　　if not f.AtEndofStream then

　　tempcnt = f.readall

　　f.close

　　set f = nothing

　　temparray = split(tempcnt,chr(13)&chr(10))

　　FSOlastline = temparray(ubound(temparray))

　　end if

　　end function