<% set myobj=server.createobject("scripting.filesystemobject") if not myobj.fileexists("f:\myfile.txt") then response.write("f:\myfile.txt文件不存在") else set myts=myobj.opentextfile("f:\myfile.txt",1,false,-2) end if set myobj=nothing dim n,mychars do while not myts.atendofstream mychars=myts.read(n) response.write mychars&"<br>" n=n+1 loop myts.close set myts=nothing %>

上面的代码我在本地预览时如果文件存在，运行正常，可文件不存在时就出现了以下的问题，可我在检查时，好象并没有缺少对象啊？是不是提示有问题？我是我搞错了，望给点指点啊！

错误提示信息：

f:\myfile.txt文件不存在

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

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

缺少对象: 'myts'

/b.asp，行10

。。。

if not myobj.fileexists("f:\myfile.txt") then response.write("f:\myfile.txt文件不存在") '进入这个条件 else set myts=myobj.opentextfile("f:\myfile.txt",1,false,-2) '这行根本没执行 end if

。。。

do while not myts.atendofstream mychars=myts.read(n) 'myts对象根本没创建 response.write mychars&"<br>" n=n+1 loop

set myts=myobj.opentextfile("f:\myfile.txt",1,false,-2) '这行根本没执行 怎么会呢？那如何才能样它执行该语句啊？

拜托了，我是个新手，对于很多错误提示都只能干瞪眼啊！哎，无奈啊！