ASP将mssql/access数据库数据导出为TXT文件

<!--#include file="inc/conn.asp"-->

<%

dim rs,sql,filename,fso,myfile,x

Set fso = server.CreateObject("scripting.filesystemobject")

filename = Server.MapPath("download.txt")

if fso.FileExists(filename) then

fso.DeleteFile(filename)

end if

'--创建baitxt文件

set myfile = fso.CreateTextFile(filename,true)

Set rs = Server.CreateObject("ADODB.Recordset")

sql = "select * from userfile"

rs.Open sql,conn,1,1

if rs.EOF and rs.BOF then

response.write "无数据"

else

dim strLine,responsestr

strLine=""

'--将表的du列名先写入zhidaotxt

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

strLine = strLine & x.value & chr(9)

next

'--将表的数据写入txt

myfile.writeline strLine

rs.MoveNext

loop

end if

rs.Close

set rs = nothing

Response.ContentType="application/x-msdownload"

Response.Redirect "download.txt"

%>