forçar download

[Fabio Mazzi 0]

Pessoal eu uso o script abaixo para forçar o download, arquivos com até 4mb ou 5mb eu consigo baixar usando este codigo, porem arquivos maiores nao consigo, alguem será que tem alguma ideia para me ajudar a solucionar este problema?

 

grato,

 

<% 
'É necessário passar o nome do arquivo no FORM
Dim Arquivo
subcaminho = request.QueryString("dpt")
Arquivo = Request("arq")
caminho = "e:\home\socer"&subcaminho&"\"&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(caminho)
objStream.LoadFromFile caminho
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
%>

[hargon 64]

Você deve aumentar o limite do buffer. O padrão dos servidores é 4 Mb se não me engano.

 

Faça uma pesquisa aqui no Fórum, pois existem vários tópicos sobre assunto.

 

Qualquer dúvida poste aqui.