返回首页
当前位置: 主页 > 网络编程 > Asp实例教程 >

fso.ReadAll提示输入超出了文件尾的解决方案

时间:2013-05-21 23:45来源:知行网www.zhixing123.cn 编辑:麦田守望者

Function getfile(filename)
dim f
if fso.fileExists(server.MapPath(filename)) then
set f = fso.OpenTextFile(server.MapPath(filename))
Response.write f.ReadAll
set f = nothing
end if
End Function

调用时出现:

Microsoft VBScript 运行时错误 错误 '800a003e'

输入超出了文件

/function.asp,行35

第35行就是Response.write f.ReadAll这句。
这是一段读取已经存在的文件,并输出文件内容的函数。但当这个文件没有内容时,就会出这种错误提示。
查了文档,ReadAll不会自己判断是否到文件尾,只好,加了个atendofstream的判断语句,测试OK。

更改后的代码为
Function getfile(filename)
dim f
if fso.fileExists(server.MapPath(filename)) then
set f = fso.OpenTextFile(server.MapPath(filename))
if not f.atendofstream then
Response.write f.ReadAll
end if
set f = nothing
end if
End Function

------分隔线----------------------------
标签(Tag):asp asp技巧 asp实例教程 asp源代码 asp基础教程
------分隔线----------------------------
推荐内容
猜你感兴趣