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

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

<%@H_502_1@

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

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

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

if fso.FileExists(filename) then@H_502_1@

fso.DeleteFile(filename)@H_502_1@

end if@H_502_1@

'--创建baitxt文件@H_502_1@

set myfile = fso.CreateTextFile(filename,true)@H_502_1@

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

sql = "select * from userfile"@H_502_1@

rs.Open sql,conn,1,1@H_502_1@

if rs.EOF and rs.BOF then@H_502_1@

response.write "无数据"@H_502_1@

else@H_502_1@

dim strLine,responsestr@H_502_1@

strLine=""@H_502_1@

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

For each x in rs.fields@H_502_1@

strLine = strLine & x.name & chr(9)@H_502_1@

Next@H_502_1@

myfile.writeline strLine@H_502_1@

do while Not rs.EOF@H_502_1@

strLine=""@H_502_1@

for each x in rs.Fields@H_502_1@

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

next@H_502_1@

'--将表的数据写入txt@H_502_1@

myfile.writeline strLine@H_502_1@

rs.MoveNext@H_502_1@

loop@H_502_1@

end if@H_502_1@

rs.Close@H_502_1@

set rs = nothing@H_502_1@

Response.ContentType="application/x-msdownload"@H_502_1@

Response.Redirect "download.txt"@H_502_1@

%>@H_502_1@