50分，错在哪里？？

Ccode 2003-08-25 10:56:23

set conn = server.CreateObject("adodb.connection")
conn.Open Application("dsn2")
DIM oFileObject2
set oFileObject2=server.CreateObject("Scripting.FileSystemObject")
dim reportname2
reportname2="autosave.txt"
Set MyTextFile2 = oFileObject2.OpenTextFile("D:\autosave.txt",ForAppending,TRUE,TristateUseDefault)

'Response.Write "here"
'Response.End
set rs = server.CreateObject("adodb.recordset")

sql2 = "select * from temprecontent"
rs.Open sql2,conn
'dim str
while not rs.EOF

MyTextFile2.WriteLine(ltrim(rs("rcontent")))

rs.MoveNext

Wend
' MyTextFile2.close
rs.Close

...全文

41 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

lijunjiejava 2003-08-25

打赏
举报

在window目录下找到const.ini文件用include命令加到你的文件中。是那写参数没有定义

cnhalo 2003-08-25

打赏
举报

Set MyTextFile2 = oFileObject2.OpenTextFile("D:\autosave.txt",ForAppending,TRUE,TristateUseDefault)
Microsoft VBScript 运行时错误错误 '800a0005'
无效的过程调用或参数

加入下面你能用到的语句:
Const ForReading = 1 '以只读模式打开文件。不能对此文件进行写操作。
Const ForWriting = 2 '以只写方式打开文件。不能对此文件进行读操作。
Const ForAppending = 8 '打开文件并在文件末尾进行写操作。

Const TristateUseDefault=-2 '以系统默认格式打开文件。
Const TristateTrue=-1 '以 Unicode 格式打开文件。
Const TristateFalse=0 '以 ASCII 格式打开文件。

Ccode 2003-08-25

打赏
举报

不会是这个问题吧？我用CreateTextFile可以创建文件的，OpenTextFile应该也有权限吧？

szsammy 2003-08-25

打赏
举报

是不是没有操作权限呀？可给文件夹添加"IUSR_机器名"和"IWAM_机器名"两个帐号，并给出相应权限

Ccode 2003-08-25

打赏
举报

正确，我也试过用Server.MapPath()

stefli 2003-08-25

打赏
举报

文件路径是否正确哦！

huiyuehuiyue 2003-08-25

打赏
举报

我也不知道了

Ccode 2003-08-25

打赏
举报

reportname2="autosave.txt"
到这里
用Response.Write "here"
Response.End
可以到达
但是在下一行，就是Set MyTextFile2 = oFileObject2.OpenTextFile("D:\autosave.txt",ForAppending,TRUE,TristateUseDefault)
这里的时候就出错了