asp 导出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" %>
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 清华大学推出第四讲使用 DeepSeek + DeepResearch 让科研像聊天一样简单!
· 实操Deepseek接入个人知识库
· 易语言 —— 开山篇
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 【全网最全教程】使用最强DeepSeekR1+联网的火山引擎,没有生成长度限制,DeepSeek本体