中国第一Ajax站长门户:www.okajax.com   虚拟主机 域名注册 云主机

把access数据导出到excel电子表[asp] - okajax.com - Ajax中国

我要投稿 会员登陆 RSS订阅 本站推荐:
您的位置主页 > 网页编程 > Asp > 把access数据导出到excel电子表[asp]

把access数据导出到excel电子表[asp]

2011-05-10    文章来源:互联网    浏览次数:

有一个客户要求后台生成大数据量(每次生成几万条)的会员卡号及密码,金额等。生成的会员卡号及密码要印制在卡上对会员发放。生成大量数据在access库中,印制卡片的厂家要拿到数据进行印制怎么办呢?于是我想到用代码将access中的数据生成Excel表格导出。打印这样不就可以了吗?

  1. <!--#include file="../conn.asp"-->  
  2. <%  
  3. if session("china_admin")="" then response.redirect "login.asp" 
  4. dbpath="../" 
  5. dblink  
  6. dim filename,fs,myfile,x,m,n,o,link  
  7. Set fs = server.CreateObject("scripting.filesystemobject")  
  8.  
  9. Set rs = Server.CreateObject("ADODB.Recordset")  
  10. session("sql") = "select * from china_car" 
  11. rs.Open session("sql"),conn,1,1  
  12. n=1  
  13.  
  14. '==================================================================  
  15. '==============================================================建立excel文件系统  
  16. filename = Server.MapPath("car/CarTable"&n&".xls"'这个是为了方便,新建一个CAR的文件夹,这个可以自己设啦  
  17. if fs.FileExists(filename) then'如果文件存在,覆盖它。  
  18. fs.DeleteFile(filename)  
  19. end if  
  20. set myfile = fs.CreateTextFile(filename,true)  
  21.  
  22. '========================================================================  
  23.  
  24. dim strLine,responsestr  
  25. strLine="" 
  26.  
  27. dim work,j,i  
  28. str="序号|卡号|密码|积分数|金额"  '这个根据你的access数据表字段设置。  
  29. work=split(str,"|")  
  30. j=ubound(work)  
  31. i=0  
  32. o=0  
  33. do while not i>j  
  34. strLine= strLine & work(i) & chr(9)   
  35. i=i+1  
  36. loop  
  37.  
  38. myfile.writeline strLine  
  39. Do while Not rs.EOF  
  40. o=o+1  
  41. m=20000  
  42.  
  43.  
  44. strLine="" 
  45.  
  46. for each x in rs.Fields  
  47. strLine= strLine & x.value & chr(9)  
  48. if o>=m*n then  
  49. n=n+1  
  50. filename = Server.MapPath("car/CarTable"&n&".xls"'这个可以自己设啦  
  51. if fs.FileExists(filename) then'如果文件存在,覆盖它。  
  52. fs.DeleteFile(filename)  
  53. end if  
  54. set myfile = fs.CreateTextFile(filename,true)  
  55. end if  
  56. next  
  57.  
  58. myfile.writeline strLine  
  59.  
  60. rs.MoveNext  
  61. loop  
  62.  
  63. rs.Close  
  64. set rs = nothing  
  65. conn.close  
  66. set conn = nothing  
  67. set myfile = nothing  
  68. Set fs=Nothing 
  69. ExcelPath="car/CarTable"&n&".xls" 
  70. response.Write "导出成功  " 
  71. response.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下载</font></a>")   
  72.  
  73. %> 

 

  • 上一篇:ASP获取url地址中顶级域名的函数
  • 下一篇:没有了
  • 文章评论(查看全部)

    看不清楚?单击换一张。
    loading.. 评论加载中....
    关于我们 - 广告服务 - 版权隐私 - 免责声明 - RSS地图 - 网站地图 - 使用帮助 - 返回顶部