25 de maiode 2008

Força Download com ASP

Developer | 3 Comments »
por Ricardo José Corrêa

Alguns arquivos colocados para download são um suplício, pricipalmente aqueles que abrem diretamente no navegador com outros programas monstros por trás, exemplo: PDF e DOC.

Mas o que fazer? Deixar o arquivo compactado para download? Isso não é solução, é quebra galho.

Que tal um script em ASP que força o download de todos os arquivos?

É esse ai:

download.asp?arquivo=nomedoarquivo

<%
arquivo = request("arquivo")
Response.Buffer=true
On Error Resume Next
Dim tfm_downloadStream
Set tfm_downloadStream = Server.CreateObject("ADODB.Stream")
tfm_downloadStream.Type = 1
tfm_downloadStream.Open
tfm_downloadStream.LoadFromFile Server.Mappath(arquivo)
If Err.number = 0 Then
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename="+arquivo
Response.AddHeader "Content-Transfer-Encoding","binary"
Response.BinaryWrite tfm_downloadStream.Read
tfm_downloadStream.Close
Set tfm_downloadStream = Nothing
Response.End()
Else
tfm_downloadStream.Close
Set tfm_downloadStream = Nothing
Response.write("Arquivo não encontrado")
End If
%>
You can leave a response, or trackback from your own site.

3 Responses to “Força Download com ASP”

  1. Gil Says:
    janeiro 20th, 2010 at 23:52

    Para onde o arquivo forçado e baixado?

  2. Douglas Says:
    janeiro 24th, 2010 at 15:43

    Parabens!! Nota 10!
    Eu estava tentando desenvolver algo parecido mais não funcionava!!
    muiito obrigado!

  3. Ricardo José Corrêa Says:
    janeiro 24th, 2010 at 20:18

    O arquivo vai para onde o usuário salvar, normal.

Leave a Reply