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

　　推荐阅读

　　非常不错的javascript 图片慢慢下层效果

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]>>>详细阅读

本文标题：用ASP将SQL搜索出来的内容导出为TXT的代码

地址：http://www.17bianji.com/kaifa2/JS/30252.html

 1/2    1