Un client a besoin du backend pour générer une grande quantité de données (des dizaines de milliers d'éléments à chaque fois) de numéros de carte de membre, de mots de passe, de montants, etc. Le numéro de carte de membre et le mot de passe générés doivent être imprimés sur la carte et délivrés aux membres. Une grande quantité de données est générée dans la base de données. Que doit faire le fabricant d'imprimantes de cartes s'il souhaite obtenir les données à imprimer ?
J'ai donc pensé à utiliser du code pour générer un tableau Excel et exporter les données en accès. Ne suffit-il pas de l'imprimer ? La recherche d'informations pertinentes sur Internet n'était pas satisfaisante, j'ai donc écrit ce programme moi-même. Maintenant disponible pour que tout le monde puisse le partager !
Voici le code :
| Voici le contenu cité : <!--#include file=../conn.asp--> <% si session (china_admin) = alors réponse.redirect login.asp dbpath=../ clignoter dim nom de fichier, fs, mon fichier, x, m, n, o, lien Définir fs = server.CreateObject (scripting.filesystemobject) Définir rs = Server.CreateObject (ADODB.Recordset) session (sql) = sélectionnez * depuis china_car rs.Open session (sql), conn, 1,1 n=1 '================================================== = ================= '================================================== = =============Créer un système de fichiers Excel filename = Server.MapPath(car/CarTable&n&.xls) 'C'est pour plus de commodité. Créez un nouveau dossier CAR Vous pouvez le définir vous-même. if fs.FileExists(filename) then'Si le fichier existe, écrasez-le. fs.DeleteFile(nom de fichier) finir si set myfile = fs.CreateTextFile(filename,true) '================================================== = ======================= dim strLine, réponse strLigne= travail sombre, j, je str=numéro de série|numéro de carte|mot de passe|nombre de points|montant' Ceci est défini en fonction du champ de votre table de données d'accès. travail=split(str,|) j=ubound(travail) je = 0 o=0 faire pendant que je ne suis pas i>j strLine= strLine & travail(i) & chr(9) je=i+1 boucle monfichier.writeline strLine Faire pendant que Pas rs.EOF o=o+1 m=20000 strLigne= pour chaque x dans rs.Fields strLine= strLine & x.value & chr(9) si o>=m*n alors n=n+1 filename = Server.MapPath(car/CarTable&n&.xls) 'Vous pouvez le définir vous-même if fs.FileExists(filename) then'Si le fichier existe, écrasez-le. fs.DeleteFile(nom de fichier) finir si set myfile = fs.CreateTextFile(filename,true) finir si suivant monfichier.writeline strLine rs.MoveNext boucle rs.Fermer setrs = rien connexion.fermer définir conn = rien définir mon fichier = rien Définir fs=Rien ExcelPath=voiture/CarTable&n&.xls réponse.Write exporté avec succès réponse.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>Télécharger</font></a>) %> |