<!--#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 '--創建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" %>
