午夜视频在线观看区二区-午夜视频在线观看视频-午夜视频在线观看视频在线观看-午夜视频在线观看完整高清在线-午夜视频在线观看网站-午夜视频在线观看亚洲天堂

有一個客戶要求后臺生成大數據量（每次生成幾萬條）的會員卡號及密碼，金額等。生成的會員卡號及密碼要印制在卡上對會員發放。生成大量數據在庫中，印制卡片的廠家要拿到數據進行印制怎么辦呢？

于是我想到用代碼將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>")

%>

該文章在 2010/8/19 22:25:47 編輯過