用asp实现读取文件的最后一行的代码
来源:asp之家 时间:2011-03-08 10:55:00
代码如下:
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
标签:文件,最后一行
0
投稿
猜你喜欢
完全卸载MYSQL
2011-02-23 12:11:00
实例学习call、apply、callee用法
2009-03-27 17:56:00
ASP所有的Session变量获取实现代码
2011-03-11 10:44:00
微软建议的ASP性能优化28条守则(1)
2008-02-22 16:54:00
asp中格式化HTML函数代码 SDCMS加强版
2011-02-20 11:18:00
CSS模块化设计
2009-01-05 12:10:00
网页栅格系统研究(3):粒度问题
2008-10-28 19:46:00
让你的空间支持域名绑定子目录的解决办法
2010-09-15 10:03:00
MySQL中XML数据的XPath支持
2009-12-15 21:57:00
ASP显示当前在线人数统计代码
2010-04-24 15:47:00
解决Dreamweaver不支持中文文件名
2008-06-04 09:37:00
css布局查看器
2008-10-29 11:22:00
一个不错的网页拾色器
2007-09-30 19:45:00
php ZipArchive解压缩实现后台管理升级问题详解
2023-05-25 11:58:10
asp如何判断一个电子信箱格式是否有效?
2010-01-12 20:18:00
ASP网站程序自动升级实现的方法
2008-10-15 14:28:00
JavaScript版的DateAdd、DateDiff、IsDate函数
2008-01-30 15:35:00
MySQL Server 5.0安装教程(图解)
2010-10-14 14:26:00
IE6终极备忘单——策略
2010-01-13 13:05:00
asp如何让服务器延时执行更改后的数据?
2010-05-13 16:35:00