Forçar Download No Browser Com Qualquer Tipo De Arquivo

[gustavovalle]

Com este código inserido no início da página ASP é possível forçar o browser a fazer download do arquivo passado por parâmetro no form. Pode ser qualquer tipo de arquivo, seja ele um .GIF, .JPG, .PDF, .DOC, etc...

<%

'É 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

%>

Editado Junho 9, 2011 por kuroi
Adicionar tag CODE

[hicarocastro]

seria muito legal mas ele corrompe os arquivos

[bareta]

se o arquivo está saindo corrompido o codigo está com erro...

provavelmente no caminho...

[gustavovalle]

Aqui não corrompe nehum arquivo, utilizo em 3 sistemas perfeitamente.

[PhoEniXFirE]

se o arquivo está saindo corrompido o codigo está com erro...

provavelmente no caminho...

O meu esta retornando:

Objeto Response erro 'ASP 0251 : 80004005'

Limite do Buffer de Resposta Ultrapassado

[bareta]

já sofri com isso...

da uma olhada ai

http://www.portalmaracaju.com.br/blog/arti...os_grandes.html

[PhoEniXFirE]

já sofri com isso...

da uma olhada ai

http://www.portalmaracaju.com.br/blog/arti...os_grandes.html

Só mais uma duvidazinha. Funcionou, mas só no servidor, aqui na minha intranet (iis do win7) não funfou, sabe porque ?

Editado Junho 9, 2011 por PhoEniXFirE