错误提示：文件未找到？求助！

[huguolu]

这正面是asp代码：
sub write_all(book_name,str3,tag)
set fs=createobject("scripting.filesystemobject")
if book_name<>"" then
book_name=str+book_name
set f=fs.opentextfile(book_name,1)
end if
call write_book_detail(f)
response.write("<TABLE class= width='100%' border=0><TBODY><TR><TD><FONT color=#'000000>")
if tag=1 then
call write_intro_db(f,str3)
end if
end sub
错误类型：
Microsoft VBScript 运行时错误 (0x800A0035)
文件未找到
/hugl/textfile_conn.asp, 第 10 行
错误在这一行： set f=fs.opentextfile(book_name,1)
请教，请朋友们帮忙解决！谢谢！

[huguolu]

好了，各位！搞定！给分！

[xzzxg]

这种问题应好解决啊
在错误行前面你用
Response.write book_name
Response.End

看看打印出来的路径对不对， 是不是少了"\"之类的东西。

[joachern]

up

[huguolu]

好了，谢谢！我应该给分，还有一个小问题？刚碰到的！下面是代码
response.write(f.readline)
response.write("<br>    ")
str1=f.readline
while str1<"" and strcomp(str1,"目 录:")<>0 and not f.atendofstream
response.write(str1)
str1=f.readline
wend
提示：str1=f.readline 这一行错误！ 错误是：输入超出了文件尾 。
请给予帮助！谢谢！

[jesee]

将显示错误的语句输出看原因。这是程序调试的一个好方法
我想你的这个就是路径的问题