Assine:
Gerar Um Arquivo Do Word (.doc)
Gerar um arquivo do word (.doc)
Escrito por David Cruvinel em ASP. Data: 24/01/2008
Licença: Alguns direitos reservados. Dar créditos ao autor e linkar este original
Bom galera, aqui vai um exemplo de como gerar um arquivo para o Word (.DOC) usando ASP
Qualquer dúvida, poste.
Até a próxima..
Abraços.
CODE
<%
' Não esqueça de fazer a conexão com seu banco de dados antes ok
' Faz o select dos dados a serem gravados no arquivo DOC
Set rs = conexao.execute("select campos from tabela")
' Cria o arquivo texto no servidor
arquivo_doc = "david.doc"
' Cria o arquivo FSO
set fso = createobject("scripting.filesystemobject")
' Cria o arquivo texto com a opção TRUE (sobrescreve arquivos já existentes com o mesmo nome)
Set act = fso.CreateTextFile(server.mappath(arquivo_doc), true)
' Escrevendo o arquivo DOC
' Titulo da Página
act.WriteLine("<html><title>David Cruvinel</title>")
' Cor de Fundo da página
act.WriteLine("<body bgcolor='#FFFFFF'> " )
' dados trazidos do select
While not rs.eof
act.WriteLine("Nome:" & rs("nome") & "<br>" )
act.WriteLine("Site:" & rs("site") & "<br>" )
act.WriteLine("Fórum:" & rs("forum") & "<br>" )
act.WriteLine("Área:" & rs("area") & "<p>")
Rs.MoveNext
Wend
' fecha as tags
act.WriteLine("</body></html>")
' Fecha o objeto
act.close
rs.close
' Exibe um link do arquivo gerado
response.write "<a href='david.doc'>David Cruvinel</a> (.doc) " & now() & "<br>"
%>
' Não esqueça de fazer a conexão com seu banco de dados antes ok
' Faz o select dos dados a serem gravados no arquivo DOC
Set rs = conexao.execute("select campos from tabela")
' Cria o arquivo texto no servidor
arquivo_doc = "david.doc"
' Cria o arquivo FSO
set fso = createobject("scripting.filesystemobject")
' Cria o arquivo texto com a opção TRUE (sobrescreve arquivos já existentes com o mesmo nome)
Set act = fso.CreateTextFile(server.mappath(arquivo_doc), true)
' Escrevendo o arquivo DOC
' Titulo da Página
act.WriteLine("<html><title>David Cruvinel</title>")
' Cor de Fundo da página
act.WriteLine("<body bgcolor='#FFFFFF'> " )
' dados trazidos do select
While not rs.eof
act.WriteLine("Nome:" & rs("nome") & "<br>" )
act.WriteLine("Site:" & rs("site") & "<br>" )
act.WriteLine("Fórum:" & rs("forum") & "<br>" )
act.WriteLine("Área:" & rs("area") & "<p>")
Rs.MoveNext
Wend
' fecha as tags
act.WriteLine("</body></html>")
' Fecha o objeto
act.close
rs.close
' Exibe um link do arquivo gerado
response.write "<a href='david.doc'>David Cruvinel</a> (.doc) " & now() & "<br>"
%>
Qualquer dúvida, poste.
Até a próxima..
Abraços.
Mais recentes em ASP
- Asp info
- Por Lucasbr - Veja as configurações do seu servidor...
- Criptografia sha-256 em asp
- Por Lucasbr - A família de sha (secure hash algorithm) está relacionada...
- Tabela dinâmnica
- Por RobsonUgoStoso - Montando uma tabela dinâmica com datas...
- Cdosys error '8004020f' - a solução
- Por David Cruvinel - A solução...
- Recuperar stored procedure
- Por Pinguim - No trampo novo, precisei recuperar algumas storedprocedures....
Ver mais Artigos de ASP.
Ver e retirar outras dúvidas no fórum Webly.
Alguns Direitos Reservados | RSS | O Fórum
Webly Portal e Fóruns - Internet + Humana | Design by ArthurHenrique.com