Ein Kunde benötigt vom Backend die Generierung großer Datenmengen (jeweils Zehntausende Artikel) an Mitgliedskartennummern, Passwörtern, Beträgen usw. Die generierte Mitgliedskartennummer und das Passwort müssen auf die Karte gedruckt und den Mitgliedern ausgehändigt werden. In der Datenbank werden große Datenmengen generiert. Was sollte der Kartendruckhersteller tun, wenn er die Daten zum Drucken erhalten möchte?
Also dachte ich darüber nach, mithilfe von Code eine Excel-Tabelle zu erstellen und die Daten in Access zu exportieren. Reicht es nicht, es einfach auszudrucken? Die Suche nach relevanten Informationen im Internet war nicht zufriedenstellend, daher habe ich dieses Programm selbst geschrieben. Jetzt veröffentlicht, damit jeder es teilen kann!
Das Folgende ist der Code:
| Nachfolgend der zitierte Inhalt: <!--#include file=../conn.asp--> <% if session(china_admin)= then Response.redirect login.asp dbpath=../ dblink dim filename,fs,myfile,x,m,n,o,link Setze fs = server.CreateObject(scripting.filesystemobject) Setze rs = Server.CreateObject(ADODB.Recordset) session(sql) = select * from china_car rs.Open session(sql),conn,1,1 n=1 '============================================== = ================= '============================================== = =============Excel-Dateisystem erstellen filename = Server.MapPath(car/CarTable&n&.xls) 'Dies dient der Bequemlichkeit. Sie können dies selbst festlegen. if fs.FileExists(filename) then'Wenn die Datei existiert, überschreiben Sie sie. fs.DeleteFile(Dateiname) Ende wenn set myfile = fs.CreateTextFile(filename,true) '============================================== = ======================= dim strLine,responsestr strLine= dunkle Arbeit,j,i str=Seriennummer|Kartennummer|Passwort|Anzahl der Punkte|Betrag' Dies wird entsprechend Ihrem Zugangsdatentabellenfeld festgelegt. work=split(str,|) j=ubound(Arbeit) i=0 o=0 tun, während nicht i>j strLine= strLine & work(i) & chr(9) i=i+1 Schleife myfile.writeline strLine Tun Sie dies, während nicht rs.EOF o=o+1 m=20000 strLine= für jedes x in rs.Fields strLine= strLine & x.value & chr(9) wenn o>=m*n dann n=n+1 filename = Server.MapPath(car/CarTable&n&.xls) 'Sie können dies selbst festlegen if fs.FileExists(filename) then'Wenn die Datei existiert, überschreiben Sie sie. fs.DeleteFile(Dateiname) Ende wenn set myfile = fs.CreateTextFile(filename,true) Ende wenn nächste myfile.writeline strLine rs.MoveNext Schleife rs.Schließen setrs=nichts Verbindung schließen setze conn = nichts setze myfile = nichts Setze fs=Nothing ExcelPath=car/CarTable&n&.xls Response.Write wurde erfolgreich exportiert Response.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>Download</font></a>) %> |