Pelanggan memerlukan backend untuk menghasilkan sejumlah besar data (puluhan ribu item setiap kali) berupa nomor kartu keanggotaan, kata sandi, jumlah, dll. Nomor kartu anggota dan kata sandi yang dihasilkan harus dicetak pada kartu dan diberikan kepada anggota. Sejumlah besar data dihasilkan dalam database. Apa yang harus dilakukan produsen percetakan kartu jika ingin mendapatkan data untuk dicetak?
Jadi saya berpikir untuk menggunakan kode untuk menghasilkan tabel Excel dan mengekspor data yang diakses. Bukankah cukup dengan mencetaknya saja? Mencari informasi yang relevan di Internet tidak memuaskan, jadi saya menulis sendiri program ini. Sekarang dirilis untuk dibagikan semua orang!
Berikut kodenya:
| Berikut isi kutipannya: <!--#sertakan file=../conn.asp--> <% jika sesi(china_admin)= maka respon.redirect login.asp jalur db=../ dblink redupkan nama file,fs,filesaya,x,m,n,o,link Setel fs = server.CreateObject(scripting.filesystemobject) Setel rs = Server.CreateObject(ADODB.Recordset) sesi(sql) = pilih * dari china_car rs.Buka sesi(sql),sambungan,1,1 n=1 ' ===== = == ' ===== = =============Membuat sistem file excel filename = Server.MapPath(car/CarTable&n&.xls) 'Ini untuk kenyamanan. Buat folder CAR baru. jika fs.FileExists(nama file) maka'Jika file ada, timpa. fs.DeleteFile(nama file) berakhir jika setel file saya = fs.CreateTextFile(nama file,benar) ' ===== ======== redupkan strLine,respontr strGaris= pekerjaan redup,j,i str=nomor seri|nomor kartu|kata sandi|jumlah poin|jumlah' Ini diatur sesuai dengan bidang tabel data akses Anda. kerja=berpisah(str,|) j=ubound(kerja) saya=0 o=0 lakukan selagi tidak i>j strLine= strLine & kerja(i) & chr(9) saya=saya+1 lingkaran file saya.writeline strLine Lakukan selagi Bukan rs.EOF o=o+1 m=20.000 strGaris= untuk setiap x di rs.Fields strLine= strLine & x.nilai & chr(9) jika o>=m*n maka n=n+1 filename = Server.MapPath(car/CarTable&n&.xls) 'Anda dapat mengaturnya sendiri jika fs.FileExists(nama file) maka'Jika file ada, timpa. fs.DeleteFile(nama file) berakhir jika setel file saya = fs.CreateTextFile(nama file,benar) berakhir jika Berikutnya file saya.writeline strLine rs.MoveNext lingkaran rs.Tutup setr=tidak ada samb.tutup setel sambungan = tidak ada atur file saya = tidak ada Tetapkan fs=Tidak ada ExcelPath=mobil/CarTable&n&.xls respon.Tulisan berhasil diekspor respon.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>Unduh</font></a>) %> |