Script asp: Download file in streaming con ADODB.Stream

   difficoltà:  script script script script script

Script simili
4/8/2006


Lo script permette di far scaricare all'utente il file senza che esso ne conosca la cartella in cui è contenuto e senza che il file venga aperto all'interno del browser (per file quali pdf, word, html, etc).

<%
PathDisco = "c:\domini\sitename\html\public\"
PercorsoFile = PathDisco & "nomefile.ext"

Response.Buffer = True
Response.Clear

Set ADOStream = Server.CreateObject("ADODB.Stream")
ADOStream.Open

ADOStream.Type = 1 ' Set binary stream

Set FS = Server.CreateObject("Scripting.FileSystemObject")
If Not FS.FileExists(PercorsoFile) Then
DownloadFile = False
Else

Set FileStream = FS.GetFile(PercorsoFile)
DimensioneFile = FileStream.Size

ADOStream.LoadFromFile(PercorsoFile)
If Err Then
DownloadFile = False
Else
NomeFile = Mid(PercorsoFile, InStrRev(PercorsoFile, "\")+1)
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=" & NomeFile
Response.AddHeader "Content-Length", DimensioneFile

Response.BinaryWrite ADOStream.Read
Response.Flush

Set FS = Nothing

DownloadFile = True
End If
End If
%>
In Pathdisco bisogna inserire il percorso assoluto della cartella in cui è contenuto il file, che si può anche ottenere con Server.MapPath.

Social:


Donazione:
Se questo script ti è stato utile e ti ho fatto risparmiare tempo e denaro fai una
qualsiasi cifra è ben accetta! 1€, 3€, 5€ ,10€, 50€ ;-) fai te!

Permalink: Tag:
script   asp   file   download   streaming  
Script Simili: Permalink: Link utili:
Tools:
Feed RSS    



Lascia un commento


Codice di controllo*:
Nome*:
Email/Link:
Testo*:
 
I campi contrassegnati con * sono obbligatori.