Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Gilberto Jr

Fazendo Download do arquivo txt,.

Recommended Posts

Boa tarde.

 

Seguinte, é possível fazer download de um arquivo .txt que eu criei eu fiz?

 

Eu uso um FSO pra criar um arquivo txt mas eu queria que o cliente faça o download do mesmo.

 

Att;

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sim é possível, ao criar o arquivo crie o link para o mesmo e para evitar que o mesmo seja aberto no navegador, poderá forçar o download do mesmo com rotinas específicas, pesquisa na seção de tutoriais que existe essa rotina por lá.

 

Att.

Compartilhar este post


Link para o post
Compartilhar em outros sites

use assim:

 

<%
'É necessário passar o nome do arquivo no FORM
Dim Arquivo
Arquivo = Request("arquivo")

Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & Arquivo
Response.Flush

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath(Arquivo)
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Xan, bom dia.

 

Ficaria mais ou menos assim?

 

formtxt.asp

<html>
<head>
<title>Formulario Txt</title>
</head>
<body>
<form method="post" action="baixartxt.asp">
<input type="text" name="arquivo" value="arquivo.txt" />
</form>
</body>
</html>

 

 

baixartxt.asp

<%
'É necessário passar o nome do arquivo no FORM
Dim Arquivo
'Nome do arquivo que esta no value do input no formulario.
Arquivo = Request.form("arquivo")

Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & Arquivo
Response.Flush

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("c:\dados\arquivotxt\"&Arquivo)
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
%>

 

Seria isso?

 

Att;

Compartilhar este post


Link para o post
Compartilhar em outros sites

isso assim vc força o download do arquivo

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.