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

最新推荐文章于 2014-11-20 16:04:53 发布

原创最新推荐文章于 2014-11-20 16:04:53 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

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

Asp 专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一种使用ASP结合ADO技术从数据库中获取客户资料并将其导出为Excel文件的方法。通过Server对象创建RecordSet实例读取数据，并利用FileSystemObject检查及创建文件，最终实现动态生成Excel文件供用户下载。

<% '-------------------------------------------------------------------------------------------------- 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 %>