首页 > 语言 > 关键词 > asp最新资讯 > 正文

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

2010-05-06 11:16 · 稿源:www.6yee.cn

有一个客户要求后台生成大数据量(每次生成几万条)的会员卡号及密码,金额等。生成的会员卡号及密码要印制在卡上对会员发放。生成大量数据在库中,印制卡片的厂家要拿到数据进行印制怎么办呢?

于是我想到用代码将access中的数据生成Excel表格导出。打印这样不就可以了吗?在网上查找相关资料可都不尽如我意,就自己动手写了这个程序。现放出来供大家分享!大家知道写代码很辛苦,所以要用或者转贴时一定注明出处:http://www.6yee.cn

下面为代码:

以下为引用的内容:

<!--#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>")

%>

  • 相关推荐
  • 大家在看
  • 怎么导出微信聊天记录?保存数据必会方法!

    小编在清理微信缓存时,总会不小心删除微信中的一些数据,所幸小编找平时有定期备份微信数据的习惯,常常能有效恢复那些误删的数据。微信数据的备份是很重要的,大家知道怎么备份微信聊天记录吗?小编接下来就教大家如何备份删除的聊天记录!一、电脑备份手机文件其实,许多软件都支持手机数据和PC端的同步备份。这里,大家可以在电脑端单独建一个手机备份文件夹,用数据线连接手机和电脑,打开手机的u盘调试,导出重要数据,备份?

  • 引领潮流,耶鲁家居智能生态系统Yale Access守护居家安全

    从 1840 年涉足银行锁开始, 180 年来,耶鲁始终专注于制锁领域。通过坚持不懈地探索奋斗,耶鲁如今已经构建了完善的家居智能安防系统,包括锁芯、保险箱或挂锁,以及智能家庭安全产品,如报警器、室内和室外摄像头、连接和独立智能锁的丰富的产品矩阵,产品组合高达数百万之众,是当下全球毋庸置疑的智能锁巨头。 但耶鲁并没有放下前进的步伐。在互联网时代的浪潮下,耶鲁再度站在时代的前列。即将上市的YaleAccess正是耶鲁在万

  • 电竞圈迎结婚潮!猫皇韦神纷纷宣布结婚,沫子表示已经嫁人?

    斗玩网原创:最近对于国内的电竞圈来说,喜事不断传出,除了在赛场上TES战队拿到季中杯冠军之外,赛场之外的选手们也有不断有好消息公布。就在6月8日前英雄联盟职业选手韦神宣布自己结婚,这一消息也得到了电竞圈内众多名人的祝福。在同一天,LPL的解说Cat猫皇也宣布自己结婚的消息,近日多位电竞圈人士结婚,也让不少网友们表示“酸了”。

  • Python取代Excel?风变编程带你了解如何更好地学Python!

    当前最简单、最流行的编程语言是什么?是Python。最近,谷歌公布的编程语言流行指数显示,Python目前仍然是全球范围内最受欢迎的技术语言。而得益于简洁、易读、易维护等特点,Python可广泛运用于数据分析、人工智能、爬虫、运维、测试、图像识别、机器学习等领域,在日常数据分析方面,甚至已有“Python取代Excel”的说法。那么,Python是否真的有这么牛?接下来,风变编程就带你了解一波。“Python已经取代了Excel”今年3月,日?

  • 微信聊天记录怎么导出?最新备份方法来啦

    微信聊天记录怎么导出?我们在使用微信的过程中,很容易发生误删聊天记录的情况,因此备份是解决问题最有效的方法,那微信聊天记录备份都有哪些方法呢?备份后又该如何导出呢?下面就来了解下。方法一:借助电脑端微信备份并导出电脑版微信中有个“备份与恢复”的功能,可以帮助我们先备份微信聊天记录,需要时再将其导出,具体操作如下:首先将手机和电脑连接同一个WiFi网络,然后登录电脑版微信,依次点击左下方的“备份与恢复”

  • 微信:被删除微信支付记录可找回 微信支付账单可自主导出

    今日,针对网友“如何找到被删除的微信支付记录”一问,微信官方表示,可以找回,通过自主导出微信支付账单即可。

  • 百度世界无烟日搜索大数据:电子烟危害成00后关注焦点

    2020 年 5 月 31 日是第 33 个“世界无烟日”,百度搜索大数据显示,近 7 天,“世界无烟日”搜索热度同比去年上涨了76%。

  • 全国电子无偿献血证在哪领取 电子无偿献血证领取流程

    近日“全国电子无偿献血证”在国务院客户端小程序正式上线,电子无偿献血证与纸质版《无偿献血证》具有同等效力。通过电子无偿献血证,献血者可以更便捷查询献血记录,实现用血费用减免等。这里我们来看下电子版无偿献血证要如何领取。

  • 数科网维OFD电子发票支撑平台,一站解决OFD电子发票当下难题

    自《国家税务总局关于增值税发票综合服务平台等事项的公告》【国家税务总局公告2020年第1号】宣布“增值税电子普通发票版式文件格式为OFD格式”,OFD文档格式便进入大众视野,进入了每个人的生活之中。发票格式改版之后,目前对于新版发票的使用还存在一些问题,很多财务工作者拿到新版发票不知道如何打开以及验证。而且大多企业发票管理系统还只支持过PDF格式,对OFD新版格式比较陌生。新版发票无法自动读取录入,需要将OFD格式发

  • Serverless架构的前世今生

    一、Serverless简介云计算的不断发展,涌现出很多改变传统IT架构和运维方式的新技术,而以虚拟机、容器、微服务为代表的技术更是在各个层面不断提升云服务的技术能力,它们将应用和环境中很多通用能力变成了一种服务。但无论这些技术应用在哪里,帮助企业“降本增效”是技术变革永恒的主题。Serverless架构的出现,带来了跨越式的变革。Serverless下主机管理、操作系统管理、基础软件的部署运维、资源分配和扩缩容能力全部由云厂?

  • 南京钢铁携手上上签电子签约 电子合同助力智能制造智慧升级

    随着新基建大幕的拉开,大型制造企业全面应用电子合同加速。日前,国家重点钢企南京钢铁(下称南钢)与电子签约领跑者上上签(下称上上签)合作升级,引入电子合同科技,通过供应链场景的合同智能签署和管理,赋能南钢产业链上下游运转效率提升。南京钢铁简介南钢始建于 1958 年,是国家战略布局的 18 家重点钢企之一,是中国特大型钢铁联合企业。 1993 年 12 月,南京钢铁厂进行公司制改革,成立南京钢铁集团有限公司,同时组建南京钢

  • 和平精英SS8赛季手册寻宝行动全攻略 SS8赛季手册寻宝行动教程

    ​和平精英SS8赛季手册寻宝行动是新增的玩法,在其中可以获得非常多的奖励,但是一些玩家还不清楚怎么去玩寻宝行动,下面就来为大家分享一下和平精英SS8赛季手册寻宝行动全攻略。

  • 和平精英SS8赛季手册全部奖励汇总 SS8赛季手册皮肤奖励一览

    ​和平精英的SS8赛季手册马上就要上线了,很多玩家还不清楚此次S8的赛季手册有什么内容,所以今天就来为大家分享一下和平精英SS8赛季手册全部奖励汇总。

  • 数据化运营,Smartbi助力商业银行打造“数据王国”

    在国内,银行的信息化一直是走在各个行业的前列,BI在银行也有着悠久和广泛的应用。BI可以辅助银行管理者和业务人员的经营决策,提高银行的科学管理水平,是银行信息化不可或缺的一部分,也是银行实现数字化转型的必要手段。银行的BI建设伴随着业务和技术的发展,是一个逐步摸索、不断成熟的过程。刚开始可能只建设某一个部门的一部分报表,在取得一定的成效后,再逐步推广到更多的部门,建设更多的主题,采用更多的可视化方式,支

  • 罗永浩直播数据在哪看 罗永浩直播数据统计

    罗永浩的直播带货数据一直都被很多网友们关注,尤其是他第一场直播的时候就已经获得了1.68亿的销售额,直播间观看人数更是达到了4800万,在如今的直播带货领域可以说是十分顶流。

  • 天学网丰富电子白板教学活动,让课堂更加生动有趣

    随着教学改革的不断深入,电子白板已成为现代新型的教学工具之一。白板教学也作为一种先进教学手段随着教学改革不断深入到不同类型、不同层次的教育领域,通过多媒体教学将文字、声音、图像、图形和视频等多种媒体有机结合起来。天学网APP除了可以开展个性化训练,也可以帮助老师在校内教室的电子白板上进行精讲和拓展训练。 天学网APP内容充分挖掘了教学的高效性,将内容化繁为简,化难为易,除了手机和机房训练之外,老师们也可?

  • TCL电子向STA收购SEMP TCL40%股权

    DoNews 6月4日消息(记者 丁凡)今日,TCL电子发布公告称,TCL电子向STA收购SEMP TCL的40%股权,最高价格为3.25亿雷亚尔,约合4.85亿港元。公告显示,此前,OCE及STA分别持有SEMP TCL40%及60%股权。TCL NL将于交割日期向OCE收购OCE于SEMP TCL持有的全部股权。因此,交易完成后,TCL电子(透过TCL NL)共计持有SEMP TCL 80%股权。此举是为进一步发展当地市场而铺路,也是实现公司全球化战略的重要部署之一。交易完成后,SEMP TCL将?

  • 云测数据:场景化AI数据 破解智能家居“伪智能”

    据IDC的数据研究报告显示,近5年内智能家居市场将以14.9%的复合增长率增长。得益于物联网、人工智能、5G等新型技术的飞速发展,智能家居在短短数年间就已经相继渡过了“自动化”、单品智能化”、“物联网+家居场景”三个阶段,进入了当前的“人工智能+家居场景”的“智能”阶段,开启了智能家居对人的思维和意识的学习与探索。现阶段的智能家居融合了IoT、人工智能、边缘计算等信息技术,以前影视片段中一声令下就能控制所有家具电器、?

  • 快手回应主播带货数据疑似造假:数据接口调试不到位

    针对快手主播带货数据疑似造假一事,快手回应称,快手对数据做假零容忍,一经查实严肃处理。此前快手平台上的主播小伊伊与寺库的直播带货数据遭到了网友的质疑。

  • 美瑞时(MRISSTIME)发展历程

    美瑞时(MRISSTIME)是世界著名制表品牌之一,隶属于瑞士瑞时集团,瑞士瑞时集团创立于1978年,总部位于洛桑。集团旗下围绕世界名品钟表收藏及高雅格调文化生活方式交流的全球瑞时会俱乐部100余家,服务于全球近500万VIP客户。自19世纪中叶,Ammann家族开始从事钟表制造及收藏,拥有独立的制表企业及顶级腕表收藏艺术廊、钟表博物馆。Ammann家族所坚持的理念,为品牌开创独树一帜的视野,并留下经典隽永的传世作品。直到今天,美瑞时(MRISSTIM

  • 参与评论
文明上网理性发言,请遵守新闻评论服务协议