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