用ASP将SQL搜索出来的内容导出为TXT的代码

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

　　%>