.asp怎么导入mysql_asp中怎么将sql数据库中数据导出为*.txt文件(急)

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"

%>

取消

评论