Um cliente exige que o backend gere uma grande quantidade de dados (dezenas de milhares de itens de cada vez) de números de cartão de membro, senhas, valores, etc. O número do cartão de associado gerado e a senha devem ser impressos no cartão e emitidos aos associados. Uma grande quantidade de dados é gerada no banco de dados. O que o fabricante de impressão de cartões deve fazer se quiser obter os dados para impressão?
Então pensei em usar código para gerar uma tabela Excel e exportar os dados no acesso. Não basta apenas imprimir? A busca por informações relevantes na Internet não foi satisfatória, então eu mesmo escrevi este programa. Agora liberado para todos compartilharem!
O seguinte é o código:
| A seguir está o conteúdo citado: <!--#include arquivo=../conn.asp--> <% se sessão (china_admin) = então resposta.redirect login.asp caminhodb=../ dblink dim nome do arquivo,fs,meuarquivo,x,m,n,o,link Definir fs = server.CreateObject(scripting.filesystemobject) Definir rs = Server.CreateObject(ADODB.Recordset) sessão(sql) = selecione * de china_car rs.Sessão aberta(sql),conn,1,1 n=1 '================================================ ================== '================================================ = =============Criar sistema de arquivos Excel filename = Server.MapPath(car/CarTable&n&.xls) 'Isso é por conveniência. Crie uma nova pasta CAR. if fs.FileExists(filename) then'Se o arquivo existir, substitua-o. fs.DeleteFile (nome do arquivo) terminar se definir meuarquivo = fs.CreateTextFile (nome do arquivo, verdadeiro) '================================================ ======================== dim strLine,responsestr strLinha= trabalho escuro, j, eu str=número de série|número do cartão|senha|número de pontos|quantidade' Isso é definido de acordo com o campo da sua tabela de dados de acesso. trabalho=dividir(str,|) j = ubound (trabalho) eu=0 o=0 faça enquanto não i>j strLinha= strLinha & trabalho(i) & chr(9) eu=eu+1 laço meuarquivo.writeline strLine Faça enquanto não rs.EOF o=o+1 m = 20.000 strLinha= para cada x em rs.Fields strLinha= strLinha & x.valor & chr(9) se o>=m*n então n=n+1 filename = Server.MapPath(car/CarTable&n&.xls) 'Você pode definir isso sozinho if fs.FileExists(filename) then'Se o arquivo existir, substitua-o. fs.DeleteFile (nome do arquivo) terminar se definir meuarquivo = fs.CreateTextFile (nome do arquivo, verdadeiro) terminar se próximo meuarquivo.writeline strLine rs.MoveNext laço rs.Fechar setrs = nada conexão.fechar definir conn = nada definir meuarquivo = nada Definir fs=Nada ExcelPath=carro/CarTable&n&.xls resposta.Write exportado com sucesso response.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>Baixar</font></a>) %> |