我用write 或writeLine都提示错误,我的代码如下:请各位帮忙诊治:
.....
set rs=server.createObject("adodb.recordset")
rs.open sql,conn
if not rs.eof then
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.CreateTextFile("H:\test.txt",true,false)
Do while Not RS.EOF
for i=0 to rs.fields.count-1
temp=rs.fields(i)
MyTextFile.WriteLine(temp)
next
RS.Movenext
Loop
MytextFile.Close
end if
错误提示为
Microsoft VBScript 运行时错误 错误 '800a000d'