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

herbss

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

于是我想到用代码将access中的数据生成Excel表格导出。打印这样不就可以了吗？在网上查找相关资料可都不尽如我意，就自己动手写了这个程序。现放出来供大家分享！

下面为代码：

1. <!--#include file="../conn.asp"-->
   
2. <%
   
3. if session("china_admin")="" then resp**e.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,resp**estr
    
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. resp**e.Write "导出成功　　"
    
71. resp**e.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下载</font></a>")
    
72. 
    
73. %>
    

复制代码