Un cliente requiere que el backend genere una gran cantidad de datos (decenas de miles de elementos cada vez) de números de tarjetas de membresía, contraseñas, montos, etc. El número de tarjeta de membresía y la contraseña generados deben imprimirse en la tarjeta y entregarse a los miembros. Se genera una gran cantidad de datos en la base de datos. ¿Qué debe hacer el fabricante de impresión de tarjetas si desea obtener los datos para imprimir?
Entonces pensé en usar código para generar una tabla de Excel y exportar los datos en acceso. ¿No basta con imprimirlo? La búsqueda de información relevante en Internet no fue satisfactoria, así que escribí este programa yo mismo. ¡Ahora lanzado para que todos lo compartan!
El siguiente es el código:
| El siguiente es el contenido citado: <!--#include file=../conn.asp--> <% si sesión (china_admin) = entonces respuesta.redirect login.asp rutadb=../ enlace db nombre de archivo tenue,fs,miarchivo,x,m,n,o,enlace Establecer fs = servidor.CreateObject(scripting.filesystemobject) Establecer rs = Server.CreateObject(ADODB.Recordset) sesión (sql) = seleccionar * de china_car rs.Abrir sesión (sql), conexión, 1,1 norte=1 '=================================================== =================== '=================================================== = =============Crear sistema de archivos Excel nombre de archivo = Server.MapPath(car/CarTable&n&.xls) 'Esto es por conveniencia. Cree una nueva carpeta CAR. Puede configurarla usted mismo. si fs.FileExists(nombre de archivo) entonces'Si el archivo existe, sobrescríbalo. fs.DeleteFile(nombre de archivo) terminar si establecer miarchivo = fs.CreateTextFile(nombre de archivo,verdadero) '=================================================== = ======================== tenue strLínea,respuestastr strLine= trabajo oscuro, j, i str=número de serie|número de tarjeta|contraseña|número de puntos|monto' Esto se configura de acuerdo con el campo de la tabla de datos de acceso. trabajo=dividir(cadena,|) j=ubound(trabajo) yo=0 o=0 hacer mientras no i>j strLine= strLine & trabajo(i) & chr(9) yo=yo+1 bucle myfile.writeline strLine Hacer mientras no rs.EOF o=o+1 metro=20000 strLine= para cada x en rs.Fields strLine= strLine & x.valor & chr(9) si o>=m*n entonces norte=norte+1 nombre de archivo = Server.MapPath(car/CarTable&n&.xls) 'Puedes configurarlo tú mismo si fs.FileExists(nombre de archivo) entonces'Si el archivo existe, sobrescríbalo. fs.DeleteFile(nombre de archivo) terminar si establecer miarchivo = fs.CreateTextFile(nombre de archivo,verdadero) terminar si próximo myfile.writeline strLine rs.MoverSiguiente bucle rs.Cerrar setrs=nada con.cerrar establecer conexión = nada establecer mi archivo = nada Establecer fs=Nada ExcelPath=coche/CarTable&n&.xls respuesta. Escritura exportada exitosamente respuesta.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>Descargar</font></a>) %> |