[Resolvido] Download de arquivos de pasta não pública

[deleteaccount 0]

.

[CaBo GeL 0]

ASP

<%

 

Dim Arquivo

Dim Caminho

 

Arquivo = Request("arquivo")  

Caminho= "..arquivos"

 

Response.Buffer = True  

Response.AddHeader "Content-Type","application/x-msdownload"

Response.AddHeader "Content-Disposition","attachment; filename=" & Caminho

Response.Flush  

 

Set objStream = Server.CreateObject("ADODB.Stream")  

objStream.Open  

objStream.Type = 1  

 

objStream.LoadFromFile Server.MapPath(Caminho + Arquivo)

 

Response.BinaryWrite objStream.Read  

objStream.Close  

Set objStream = Nothing  

 

Response.Flush  

 

%>

 

você so colocou o arquivo no lugar do caminho!

 

Ate +

[deleteaccount 0]

.