Deixando resquícios duvidosos para arqueólogos do futuro.
Especiais
Força Download com ASP
25 de maio, 2008 por Ricardo José Corrêa
( Não há classificações ainda)
Loading ...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 %>
