Download di file pesantissimi

[fosforo]

Ciao
Uso questo script che riesce a dowlodare dei file di alcuni mega:

<%
Response.ContentType = "application/x-msexcel"
Dim strFilePath
strFilePath = "E:\Media\"&request("nome_file")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFilePath
Response.AddHeader "Content-Disposition", "attachment; filename=" & request("nome_file")
Response.ContentType = "application/octet-stream"
Do While Not objStream.EOS
Response.BinaryWrite objStream.Read(8192) ' 1024*8
Response.Flush
Loop

objStream.Close
Set objStream = Nothing
%>

Ora dovrei scaricare alcuni file di circa 10GB.
Lo script non funziona.
Ci sono dei limiti?
Si possono aggirare?

Grazie

[orcim]

Questa è la limitazione:

Response.BinaryWrite objStream.Read(8192) ' 1024*8

[optime]

Originariamente inviato da orcim
Questa è la limitazione:

Response.BinaryWrite objStream.Read(8192) ' 1024*8

potresti spiegare il motivo?

[orcim]

Originariamente inviato da optime
potresti spiegare il motivo?

A parte il fatto che proprio tu gli avevi già risposto :
http://forum.html.it/forum/showthrea...readid=1128025

Ad ogni modo il suo problema si verifica perché IIS 6 ed anche 7 impongono un valore predefinito di buffer di risposta ASP di 4 MB.

Sicuramente nello script in questione di il buffer ASP è disattivato.

Questo script funziona senza limiti di download:

<%
response.Buffer = true
Response.ContentType = "video/x-flv"

Dim valPos,valFile
valPos = Request("pos")
valFile = Server.Mappath(Request("file"))

If (LCase(Right(valFile,Len(valFile)-InstrRev(valFile,"."))) <> "flv")Then
Response.End
End if


If (valPos = "") Then
valPos = 0
End if

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile(valFile)

If (valPos > 0) Then
Response.BinaryWrite objStream.Read(13)
End if


objStream.Position = valPos

do while Not objStream.EOS

Response.BinaryWrite objStream.Read (163840)  '1024 * 160
'//Response.BinaryWrite objStream.Read (262144) '1024 * 256

Response.Flush
Response.Clear
loop

objStream.Close
Set objStream = Nothing
%>

Poi se il server è tuo puoi seguire questa procedura:
http://support.microsoft.com/kb/944886

[optime]

micro, tu hai detto che questa istruzione

Response.BinaryWrite objStream.Read(8192) ' 1024*8

rappresenta una limitazione.

vorrei sapere perché, tutto qui.

[fosforo]

Ho modificato lo script x adattarlo alle mie esigenze ma continua a rifiutarsi di dowlodare
i file pesanti, mente con uno da 300MB funziona:

<%
response.Buffer = true
Response.ContentType = "video/x-flv"
Dim strFilePath
strFilePath = "E:\Media\"&request("nome_file")
nome_titolo = trim(request.QueryString("titolo"))
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFilePath
Response.AddHeader "Content-Disposition", "attachment; filename=" & (nome_titolo)&(".avi")
'Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read(13)
Do While Not objStream.EOS
Response.BinaryWrite objStream.Read(8192) ' 1024*8
'Response.BinaryWrite objStream.Read (327680) '1024 * 160
Response.Flush
Response.Clear
Loop
objStream.Close
Set objStream = Nothing
%>

[optime]

ma quale è il problema?

[fosforo]

Grazie per la pazienza.
Allora spiego tutto cosi magari ci capiamo meglio.
Ho fatto una script che mi permette di scaricare un file via FTP utilizzando l'FTP di XP.
E qui va tutto bene.
Il problema è che dovrei dare la possibilità di scegliere il Path di destinazione.
E qui mi areno.

[optime]

Originariamente inviato da fosforo
Grazie per la pazienza.
Allora spiego tutto cosi magari ci capiamo meglio.
Ho fatto una script che mi permette di scaricare un file via FTP utilizzando l'FTP di XP.
E qui va tutto bene.
Il problema è che dovrei dare la possibilità di scegliere il Path di destinazione.
E qui mi areno.

VVoVe: ma se fino a cinque minuti fa dicevi che

Originariamente inviato da fosforo
...continua a rifiutarsi di dowlodare i file pesanti...

deciditi

[fosforo]

Purtroppo io sono un mero esegutore.
Certe decisioni non dipendono da me.
La decisone definitiva è scaricare il file via ftp.