ASP将access数据导出为excel电子表的方法

ASP将access数据导出为excel电子表的方法

　　有一个客户要求后台生成大数据量（每次生成几万条）的会员卡号及明码，金额等。生成的会员卡号及明码要印制在卡上对会员发放。生成大量数据在库中，印制卡片的厂家要拿到数据停止印制怎样办呢？
　　
　　于是我想到用代码将access中的数据生成Excel表格导出。打印这样不就可能了吗？在网上查找相干材料可都不尽如我意，就本人入手写了这个程序。现放进去供大家分享！大家知道写代码很辛劳，所以要用或许转贴时肯定注明出处：
　　
　　下面为代码：
　　
　　以下为引用的内容：
　　
　　<!--#include file="../conn.asp"-->
　　<%
　　if session("china_admin")="" then response.redirect "login.asp"
　　dbpath="../"
　　dblink
　　dim filename,fs,myfile,x,m,n,o,link
　　Set fs = server.CreateObject("scripting.filesystemobject")
　　
　　Set rs = Server.CreateObject("ADODB.Recordset")
　　session("sql") = "select * from china_car"
　　rs.Open session("sql"),conn,1,1
　　n=1
　　
　　'==================================================================
　　'==============================================================建设excel文件系统
　　filename = Server.MapPath("car/CarTable"&n&".xls") '这个是为了方便，新建一个CAR的文件夹，这个可能本人设啦
　　if fs.FileExists(filename) then'假设文件存在，笼罩它。
　　fs.DeleteFile(filename)
　　end if
　　set myfile = fs.CreateTextFile(filename,true)
　　
　　'========================================================================
　　
　　dim strLine,responsestr
　　strLine=""
　　
　　dim work,j,i
　　str="序号|卡号|明码|积分数|金额"'这个依据你的access数据表字段设置。
　　work=split(str,"|")
　　j=ubound(work)
　　i=0
　　o=0
　　do while not i>j
　　strLine= strLine & work(i) & chr(9)
　　i=i+1
　　loop
　　
　　myfile.writeline strLine
　　Do while Not rs.EOF
　　o=o+1
　　m=20000
　　
　　
　　strLine=""
　　
　　for each x in rs.Fields
　　strLine= strLine & x.value & chr(9)
　　if o>=m*n then
　　n=n+1
　　filename = Server.MapPath("car/CarTable"&n&".xls") '这个可能本人设啦
　　if fs.FileExists(filename) then'假设文件存在，笼罩它。
　　fs.DeleteFile(filename)
　　end if
　　set myfile = fs.CreateTextFile(filename,true)
　　end if
　　next
　　
　　myfile.writeline strLine
　　
　　rs.MoveNext
　　loop
　　
　　rs.Close
　　set rs = nothing
　　conn.close
　　set conn = nothing
　　set myfile = nothing
　　Set fs=Nothing
　　ExcelPath="car/CarTable"&n&".xls"
　　response.Write "导出胜利"
　　response.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下载</font></a>")
　　
　　%>