ASP将access数据导出为excel电子表的方法
有一个客户要求后台生成大数据量（每次生成几万条）的会员卡号及密码，金额等。生成的会员卡号及密码要印制在卡上对会员发放。生成大量数据在库中，印制卡片的厂家要拿到数据进行印制怎么办呢？
于是我想到用代码将access中的数据生成Excel表格导出。打印这样不就可以了吗？在网上查找相关资料可都不尽如我意，就自己动手写了这个程序。现放出来供大家分享！大家知道写代码很辛苦，所以要用或者转贴时一定注明出处：http://www.6yee.cn
下面为代码：
| 以下为引用的内容：<!--#include file="../conn.asp"--><%if session("china_admin")="" then response.redirect "login.asp"dbpath="../"dblinkdim filename,fs,myfile,x,m,n,o,linkSet fs = server.CreateObject("scripting.filesystemobject")Set rs = Server.CreateObject("ADODB.Recordset")session("sql") = "select * from china_car"rs.Open session("sql"),conn,1,1n=1'=================================================================='==============================================================建立excel文件系统filename = Server.MapPath("car/CarTable"&n&".xls") '这个是为了方便，新建一个CAR的文件夹，这个可以自己设啦if fs.FileExists(filename) then'如果文件存在，覆盖它。fs.DeleteFile(filename)end ifset myfile = fs.CreateTextFile(filename,true)'========================================================================dim strLine,responsestrstrLine=""dim work,j,istr="序号|卡号|密码|积分数|金额" '这个根据你的access数据表字段设置。work=split(str,"|")j=ubound(work)i=0o=0do while not i>jstrLine= strLine & work(i) & chr(9) i=i+1loopmyfile.writeline strLineDo while Not rs.EOFo=o+1m=20000strLine=""for each x in rs.FieldsstrLine= strLine & x.value & chr(9)if o>=m*n thenn=n+1filename = Server.MapPath("car/CarTable"&n&".xls") '这个可以自己设啦if fs.FileExists(filename) then'如果文件存在，覆盖它。fs.DeleteFile(filename)end ifset myfile = fs.CreateTextFile(filename,true)end ifnextmyfile.writeline strLiners.MoveNextlooprs.Closeset rs = nothingconn.closeset conn = nothingset myfile = nothingSet fs=NothingExcelPath="car/CarTable"&n&".xls"response.Write "导出成功 "response.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下载</font></a>")%> |
qq2013有两个主题可以选择，一个是经典主题另外一个是封面主题，如果是经典主题的话就会显示qq头像，如果是封面模式就不会显示头像，所以大家在安装qq2013时基本默认就是封面模式,QQ2013怎么不显示头像
2012-12-03
欢乐斗地主残局专家60关怎么过?微信欢乐斗地主残局闯关玩法专家模式的第60关手牌为：AAKQQ999744，这一把先把对方三个2拆掉，然后一直不要直到它拆自己的对子的时候再要。下面就让我们一起来看下微信小程序欢乐斗地主专家残局第60关攻略吧。,微信欢乐斗地主残局专家第60关怎么过 欢乐斗地主残局专家第60关攻略
2018-09-14
灵文对决紫背天葵好用吗?在灵文对决中，紫背天葵是一张三耗辅助卡，是基本辅助卡牌之一，抛开属耗来说，触发效果还是很不错的，下面就让我们一起来看下，灵文对决紫背天葵卡牌属性介绍。,灵文对决紫背天葵好用吗 灵文对决紫背天葵卡牌属性介绍
2018-03-21
超能队长手机密码要怎么获得?很多玩家都不知道如何获得手机密码，所以小编今天就为大家带来超能队长手机密码获得方法，还不会解开这个谜题的小伙伴快来看看吧,超能队长手机密码怎么破解 手机密码获得方法
2018-06-27
诺基亚8国行迟迟未至，反而到是诺基亚9开始在网络上频繁曝光。日前，不仅有网友在贴吧再次晒出诺基亚9正面的渲染图，而且还有疑似显示屏面板浮出水面，确认这款新机并未采用全面屏设计，而是双曲面显示屏，将会有黑色，银色，蓝色和金铜色等四种色彩款式可选,诺基亚9什么时候上市 诺基亚9多少钱
2017-09-27
吉粉app下载-吉粉app是一款能够把积分兑换成商品的购物软件，除此之外生活中的吃喝玩乐都可以在吉粉app买到。最主要的是优惠，下单后会有专人送货上门，让您享受更优惠的购物体验，您可以免费下载安卓手机吉粉。
2016-05-27
熊猫人力在线平台-熊猫人力在线app是一款人力管理助手软件，熊猫人力在线苹果可以收集人员信息，采集人员位置，熊猫人力在线app可以帮助人力进行人员管控。，您可以免费下载安卓手机熊猫人力在线。
2020-07-23
vrapp_VR虚拟现实技术的热潮给我们带来很多不错的虚拟现实产品，随着VR虚拟现实的爆发，除了硬件虚拟现实眼镜以外，为之相匹配的手机APP应用也逐步丰富了起来，当下VR软件需求越来越大，为了得到更好的VR虚拟现实体验，小编给大家整理了一些手机VR app。
2023-07-08