<>

<%

dimrs,sql,filename,fso,myfile,x

Setfso=server.CreateObject("scripting.filesystemobject")

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

iffso.FileExists(filename)then

fso.DeleteFile(filename)

endif

'--创建txt文件

setmyfile=fso.CreateTextFile(filename,true)

Setrs=Server.CreateObject("ADODB.Recordset")

sql="select*fromuserfile"

rs.Opensql,conn,1,1

ifrs.EOFandrs.BOFthen

response.write"无数据"

else

dimstrLine,responsestr

strLine=""

'--将表的列名先写入txt

Foreachxinrs.fields

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

Next

myfile.writelinestrLine

DowhileNotrs.EOF

strLine=""

foreachxinrs.Fields

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

next

'--将表的数据写入txt

myfile.writelinestrLine

rs.MoveNext

loop

endif

rs.Close

setrs=nothing

Response.ContentType="application/x-msdownload"

Response.Redirect"download.txt"

%>