<!--#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 
'--創(chuàng)建txt文件 
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="" 
'--將表的列名先寫入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 
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" 
%>

最新評論