ลูกค้าต้องการให้แบ็กเอนด์สร้างข้อมูลจำนวนมาก (นับหมื่นรายการในแต่ละครั้ง) ของหมายเลขบัตรสมาชิก รหัสผ่าน จำนวนเงิน ฯลฯ ต้องพิมพ์หมายเลขบัตรสมาชิกและรหัสผ่านที่สร้างขึ้นบนบัตรและออกให้กับสมาชิก ข้อมูลจำนวนมากถูกสร้างขึ้นในฐานข้อมูล ผู้ผลิตการพิมพ์บัตรควรทำอย่างไรหากต้องการรับข้อมูลสำหรับการพิมพ์?
ดังนั้นฉันจึงคิดว่าจะใช้โค้ดเพื่อสร้างตาราง Excel และส่งออกข้อมูลในการเข้าถึง แค่พิมพ์อย่างเดียวไม่พอเหรอ? การค้นหาข้อมูลที่เกี่ยวข้องบนอินเทอร์เน็ตไม่เป็นที่น่าพอใจ ดังนั้นฉันจึงเขียนโปรแกรมนี้ขึ้นมาเอง เปิดตัวแล้วให้ทุกคนได้แชร์!
ต่อไปนี้เป็นรหัส:
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: <!--#include file=../conn.asp--> - ถ้า session(china_admin)= แล้ว response.redirect login.asp dbpath=../ ดีบีลิงค์ ชื่อไฟล์สลัว,fs,myfile,x,m,n,o,link ตั้งค่า fs = server.CreateObject (scripting.filesystemobject) ตั้ง rs = Server.CreateObject (ADODB.Recordset) session(sql) = เลือก * จาก china_car rs.เปิดเซสชั่น(sql),conn,1,1 n=1 '=================================================' = ================= '=================================================' = =============สร้างระบบไฟล์ Excel filename = Server.MapPath(car/CarTable&n&.xls) 'สร้างโฟลเดอร์ CAR ใหม่ขึ้นมาเองได้' ถ้า fs.FileExists(ชื่อไฟล์) แล้ว 'ถ้ามีไฟล์อยู่ ให้เขียนทับมัน' fs.DeleteFile(ชื่อไฟล์) สิ้นสุดถ้า ตั้งค่า myfile = fs.CreateTextFile (ชื่อไฟล์, จริง) '=================================================' = ======================== = ======================= strLine สลัวตอบกลับ strLine= งานสลัวเจไอ str=หมายเลขซีเรียล|หมายเลขบัตร|รหัสผ่าน|จำนวนคะแนน|จำนวน' สิ่งนี้ถูกกำหนดตามฟิลด์ตารางข้อมูลการเข้าถึงของคุณ งาน=แยก(str,|) j=ubound(ที่ทำงาน) ผม=0 โอ=0 ทำในขณะที่ไม่ใช่ i>j strLine= strLine & งาน (i) & chr (9) ฉัน=ฉัน+1 วนซ้ำ myfile.writeline strLine ทำในขณะที่ไม่ใช่ rs.EOF โอ=โอ+1 ม.=20000 strLine= สำหรับแต่ละ x ใน rs.Fields strLine= strLine & x.value & chr(9) ถ้า o>=m*n แล้ว n=n+1 filename = Server.MapPath(car/CarTable&n&.xls) 'คุณสามารถตั้งค่านี้ได้ด้วยตัวเอง ถ้า fs.FileExists(ชื่อไฟล์) แล้ว 'ถ้ามีไฟล์อยู่ ให้เขียนทับมัน' fs.DeleteFile(ชื่อไฟล์) สิ้นสุดถ้า ตั้งค่า myfile = fs.CreateTextFile (ชื่อไฟล์, จริง) สิ้นสุดถ้า ต่อไป myfile.writeline strLine rs.MoveNext วนซ้ำ rs.ปิด setrs=ไม่มีอะไร เชื่อมต่อปิด ตั้งค่า conn = ไม่มีอะไร ตั้งค่า myfile = ไม่มีอะไร ตั้งค่า fs=ไม่มีอะไร ExcelPath=รถยนต์/CarTable&n&.xls ตอบกลับ เขียนส่งออกเรียบร้อยแล้ว response.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>ดาวน์โหลด</font></a>) - |