asp将数据库的数据转换成excel导出

最新推荐文章于 2020-11-26 13:05:15 发布

原创最新推荐文章于 2020-11-26 13:05:15 发布

· 990 阅读

0 ·

版权

文章标签：

#excel #数据库 #asp #each #path

Asp 专栏收录该内容

22 篇文章

订阅专栏

<% '-------------------------------------------------------------------------------------------------- Set rs9 = Server.CreateObject("ADODB.RecordSet") sqlstr="select * from 客户资料库 order by id desc" rs9.open sqlstr,conn,1,3 %> <%Set fs = server.CreateObject("scripting.filesystemobject") '--生成的EXCEL文件做如下的存放 filename="客户资料.xls" temp=filename filename=Request.ServerVariables("APPL_PHYSICAL_PATH")&"/"+filename '--如果原来的EXCEL文件存在的话删除它 if fs.FileExists(filename) then fs.DeleteFile(filename) end if '--创建EXCEL文件 set myfile = fs.CreateTextFile(filename,true) dim strLine,responsestr strLine="" For each x in rs9.fields strLine= strLine & x.name & chr(9) Next '--将表的列名先写入EXCEL myfile.writeline strLine while not rs9.eof strLine="" for each x in rs9.Fields strLine= strLine & x.value & chr(9) next '--将表的数据写入EXCEL myfile.writeline strLine rs9.movenext wend link="<A HREF="/" mce_HREF="/"" & temp & ">下载excel文件</a>" if Request.Cookies("adminuser")="admin" then Response.write link end if set myfile = nothing Set fs=Nothing rs9.close %>