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

```asp

Function ReadLastLineFromFile(filename)

' 创建一个文件系统对象实例

Dim fso, fileStream, tempArray, tempCount

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

If Not fso.fileExists(server.mappath(filename)) Then Exit Function '检查文件是否存在，不存在则退出函数

Set fileStream = fso.opentextfile(server.mappath(filename), 1) ' 打开文件以供读取

If Not fileStream.AtEndofStream Then ' 如果文件不是位于末尾位置，则进行读取操作

tempCount = fileStream.ReadAll ' 读取整个文件内容到临时变量中

fileStream.Close ' 关闭文件流以释放资源

Set fileStream = Nothing '清理对象引用，避免内存泄漏

tempArray = Split(tempCount, vbCrLf) ' 使用回车换行符分割字符串，得到数组

ReadLastLineFromFile = tempArray(UBound(tempArray)) ' 取得数组最后一个元素，即文件的最后一行内容

End If

End Function

```