يطلب العميل من الواجهة الخلفية إنشاء كمية كبيرة من البيانات (عشرات الآلاف من العناصر في كل مرة) لأرقام بطاقات العضوية وكلمات المرور والمبالغ وما إلى ذلك. يجب طباعة رقم بطاقة العضوية وكلمة المرور التي تم إنشاؤها على البطاقة وإصدارها للأعضاء. يتم إنشاء كمية كبيرة من البيانات في قاعدة البيانات. ما الذي يجب على الشركة المصنعة لطباعة البطاقة فعله إذا أرادت الحصول على البيانات للطباعة؟
لذلك فكرت في استخدام التعليمات البرمجية لإنشاء جدول Excel وتصدير البيانات الموجودة في Access. ألا يكفي مجرد طباعته؟ لم يكن البحث عن المعلومات ذات الصلة على الإنترنت مرضيًا، لذلك كتبت هذا البرنامج بنفسي. تم إصداره الآن ليشاركه الجميع!
وفيما يلي الكود:
| وفيما يلي المحتوى المقتبس: <!--#include file=../conn.asp--> <% إذا كانت الجلسة (china_admin) =، فقم بإعادة توجيه تسجيل الدخول.asp dbpath=../ com.dblink اسم الملف خافت،fs،myfile،x،m،n،o،link تعيين خ = server.CreateObject(scripting.filesystemobject) تعيين rs = Server.CreateObject(ADODB.Recordset) جلسة (sql) = حدد * من china_car جلسة rs.Open(sql)،كون،1،1 ن = 1 '======================================================================== ============================================================= '======================================================================== =============إنشاء نظام ملفات إكسل filename = Server.MapPath(car/CarTable&n&.xls) 'هذا من أجل الراحة. قم بإنشاء مجلد CAR جديد. يمكنك تعيين هذا بنفسك. إذا كان fs.FileExists (اسم الملف) ثم "إذا كان الملف موجودًا، فاستبدله". fs.DeleteFile(اسم الملف) نهاية إذا تعيين ملفي = fs.CreateTextFile (اسم الملف، صحيح) '======================================================================== ================================================================================ خط خافت، استجابة strLine= العمل الخافت،ي،ط str=الرقم التسلسلي|رقم البطاقة|كلمة المرور|عدد النقاط|المبلغ' يتم تعيين هذا وفقًا لحقل جدول بيانات الوصول الخاص بك. العمل = تقسيم (شارع، |) ي = ubound (العمل) أنا = 0 س=0 افعل بينما لا i>j strLine = strLine & العمل (ط) & مركز حقوق الإنسان (9) ط=ط+1 حلقة myfile.writeline strLine افعل بينما لا rs.EOF س=س+1 م = 20000 strLine= لكل x في rs.Fields strLine= strLine & x.value & chr(9) إذا o>=m*n إذن ن=ن+1 filename = Server.MapPath(car/CarTable&n&.xls) 'يمكنك ضبط هذا بنفسك إذا كان fs.FileExists (اسم الملف) ثم "إذا كان الملف موجودًا، فاستبدله". fs.DeleteFile(اسم الملف) نهاية إذا تعيين ملفي = fs.CreateTextFile (اسم الملف، صحيح) نهاية إذا التالي myfile.writeline strLine rs.MoveNext حلقة إغلاق setrs=لا شيء conn. Close مجموعة كون = لا شيء تعيين ملفي = لا شيء تعيين خ = لا شيء ExcelPath=car/CarTable&n&.xls تم تصدير الاستجابة.الكتابة بنجاح Response.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>تنزيل</font></a>) %> |