如何将asp中的sql数据库中数据导出为txt文件

2011-2-28 12:12:11 2220

0 <%Set fso = server.CreateObject("scripting.filesystemobject") filename = Server.MapPath("YushuDB.txt") if fso.FileExists(filename) then fso.DeleteFile(filename) end if '--创建txt文件 set myfile = fso.CreateTextFile(filename,true) 'Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from 基本信息" rs.Open sql,conn,1,1 if rs.EOF and rs.BOF then response.write "无数据" else dim strLine,responsestr strLine="" '--将表的列名先写入txt 'For each x in rs.fields ' strLine = strLine & x.name & chr(9) 'Next 'myfile.writeline strLine Do while Not rs.EOF strLine="" for each x in rs.Fields if x.name<>"id" and x.name<>"照片路径" then '不需要字段id和“照片路径” strLine = strLine & x.value & chr(9) end if next '--将表的数据写入txt myfile.writeline left(strLine,len(strLine)-1) '将最后一个制表符chr(9)去掉，否则会多一个字段。 rs.MoveNext loop end if rs.Close Response.Redirect "YushuDB.txt"%> 0
2011-2-28 12:12:11　　评论淘帖0 举报相关推荐 • 如何将intouch数据插入到SQL数据库 14687 • navicat怎么导出数据库文件 8134 • labview中如何创建SQL数据库mdf文件 3534 • 创建新的数据库和更改SQL Server CE数据库中的数据操作教程免费下载 5 • 数据库数据恢复—Sql Server数据库文件丢失的数据恢复案例 955 • MATLAB如何将串口中的数据存入TXT文件中 40198 • SQL SERVER数据库ndf文件损坏的数据恢复案例 855 • SQL Server数据库文件丢失的数据恢复案例 1040 • Sql Server数据库文件丢失的数据恢复案例 782 • 如何按时间导出数据库中数据？ 4233