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>")
%>
关键词:asp,access数据,excel电子表
相关阅读
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 05-05Windows2008 64位IIS7+ACCESS数据库无法打开Asp页面
- 05-05win7 iis7.5 Request 对象 错误 'ASP 0104 : 80004005'
- 10-16"Request 对象 错误 'ASP 0104 : 80004005'”解决办法
- 05-03Win7 IIS7.5配置解决ASP的500错误
- 04-07ASP和PHP的区别所在
- 03-09aspx文件怎么打开,ASPX的文件用什么打开?
- 03-04301转向代码大合集 包括IIS、apache和PHP程序/asp程序的301转向设置
- 02-28asp.net“服务器应用程序不可用"解决方法
- 09-24修改IIS的 ASPMaxRequestEntityAllowed
阅读本文后您有什么感想? 已有 人给出评价!
用户评论
热门评论
最新评论
相关软件
热点图文
- 05-02解决:错误提示:Microsoft OLE DB Provider for ODBC Drivers (0x80004005) ...不能更新
- 05-02解决:ADODB.Stream 错误 '800a0bbc' 写入文件失败
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 04-08对象不支持此属性或方法: 'Response.CharSet'
- 04-13asp是什么文件/asp是什么意思/asp是什么格式
- 05-11asp将access数据导出为excel电子表的方法
- 06-14ASP实例教程:FileSystemObject对象
- 07-14使用NetBox编译asp 完全摆脱iis束缚
- 01-10ASP连接Excel文件的方法
- 07-17Microsoft JET Database Engine 错误 '80004005' 错误解决办法