Problema con download usando ADODB.Stream

[dado86ssj]

Ciao, ho creato una pagina ASP che permette di effettuare il download forzato di un file passando il nome tramite querystring.
Purtroppo ho notato che i file di grosse dimensioni non vengono scaricati tramite questa procedura, ma ricevo l'errore: "Impossibile aprire il sito internet, Sito non disponibile o non trovato. Riprovare in un secondo momento".
Ovviamente i file di dimensioni ridotte vengono scaricati tranquillamente.
Vorrei capire se questo è un problema dell'oggetto ADODB.Stream, in questo caso avreste un alternativa da segnalarmi?

Grazie

[legal-x]

Stai usando questo ?


Function BaseName(byVal Path)
Dim Pos
Path = Replace(Path,"/","\")
Pos = InStrRev(Path,"\")
If Pos>0 then
BaseName = Mid(Path,Pos+1)
Else
BaseName = Path
End if
end function

Function ReadFile(FileName)
Dim Stream , Path
On error resume next
Path = Server.MapPath(FileName)
If Err.Number<>0 then Path = FileName
On error goto 0
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.Type=1
Stream.Open()
Stream.LoadFromFile Path
Stream.Position=0
ReadFile = Stream.Read()
Stream.Close()
Set Stream = Nothing
End Function

Server.ScriptTimeout=6000
if Len(Trim(request.querystring("file"))) > 0 then
file = (request.querystring("file"))
else
Response.Write("file non specificato")
Response.end
end if

response.ContentType="application/octet-stream"
response.AddHeader "Content-Disposition", "attachment; filename=" & BaseName(file)
Response.BinaryWrite ReadFile(File)
Response.End

[dado86ssj]

Ciao, grazie per lo script, purtroppo mi da errore durante l'esecuzione...

Execution of the ASP page caused the Response Buffer to exceed its configured limit

Ho provato a impostare anche Server.ScriptTimeout=6000 e Response.Buffer = false / true ma non è cambiato niente...

È possibile che dipenda dalle dimensioni del file?

[legal-x]

prova prima con piccoli file ...max 500Kb per vedere se funziona "a dovere"


...in ogni caso, quant'è grande il tuo file ?

[dado86ssj]

È un area download, quindi c'è di tutto... al momento il file più grande è 45 Mb, ma in futuro potrei anche aggiungere roba piu pesante...
Il fatto è che voglio utilizzare una pagina asp per far partire il download per vari motivi.
Primo posso contare i download fatti.
Secondo posso impedire all'utente di sapere dove si trova il file fisicamente sul server per evitare di linkarlo dal proprio sito (es. passo come valore download.asp?file=prova e lo script mi va a prelevare il file dalla cartella download/quellochevoglio/prova.zip)
Terzo dalla pagina asp posso fare un controllo sul referer per evitare che qualcuno linki i miei file da altre pagine...
Possibile che asp non gestisca file pesanti??
Potrei farlo con PHP ma il mio sito è interamente in asp e preferirei evitare di usare troppi linguaggi diversi...

[optime]

invece di fare uno streaming secco, fai così

	Do While Not objStream.EOS
		Response.BinaryWrite objStream.Read(8192)	'	1024*8
		Response.Flush
	Loop

puoi giocare con le dimensioni del buffer