如何将数据信息批量写入到文本文件中

[sml_2008]

大家好，请问谁能帮我解决一下这个问题呀，我现在特别着急。我想把数据表中的所有数据写入到文本文件中以实现数据备份。

[昔梦无痕]

FSO+while循环不行吗？

[Anlige]

<%
'删除文件
Function delfile(path)
Set fso=server.createobject("scripting.filesystemobject")
 if fso.fileexists(path) then
    fso.deletefile path
 end if
Set fso=nothing
End function

'创建文件
Function createfile(path)
Set fso=server.createobject("scripting.filesystemobject")
 if not fso.fileexists(path) then
    fso.createtextfile path
 end if
Set fso=nothing
End function

'写入文件并保存
Function writefile(path,str)
Set mystream=server.createobject("adodb.stream")
    mystream.type=2 '文本模式
    mystream.mode=3 '读写模式
    mystream.charset="gb2312" '字符集
    mystream.open '打开
    createfile(path) '创建文件
    mystream.loadfromfile(path) '从文件加载
    mystream.position=mystream.size
    mystream.writetext str,1 '把数据以"行"模式写入流
    mystream.savetofile path,2 '覆盖原文件保存
    mystream.position=0
    writefile=mystream.readtext() 
    mystream.close
Set mystream=nothing
End function

filename=server.mappath("a.txt")
temp=writefile(filename,"测试文本")
Response.write "成功写入文件！<br /><font color=green>"&filename&"</font>，文件内容为:<br /><pre><font color=red>"&temp&"</font></pre>"
%>

----------------------------^_^大家一起学习^_^------------------------------
艾恩ASP学习博客 http://blog.ii-home.cn

Email:[e-mail] QQ:417833272
免费提供各种ASP学习资源，组件、源代码、学习手册、技术文章...
ASP无组件上传(支持多文件+表单数据)
ASP无组件上传(保存表单到数据库)
Asp生成IP个性标签

[sml_2008]

谢谢你们的回复，不过不行啊。应用FSO对象，只可以在服务器端动态创建文本文件并写入数据，但是遗憾的是不能在客户端进行动态创建文本文件并写入数据。所以我的功能白做了。好伤心呀。
还有别的办法吗？谢谢各位了。

[Anlige]

你想备份到客户端？？？

[sml_2008]

是的，不过好像不行呀。