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.


Permalink:
Script asp: Download file in streaming con ADODB.Stream
Tag:
script   asp   file   download   streaming  
Script Simili:
Script php: Download file in streaming
Script php: Impedire accesso diretto ai file tramite htaccess
Script php: Caricare e Scaricare file via ftp con php
Script php: Elencare file contenuti in cartella
Script php: Eliminare file e cartelle
Link utili:
Script php
Tools:
Feed RSS    
Vota:



Lascia un commento


Inserire il codice visualizzato nell'immagine*:
codice
Nome*:
Email/Link:
Testo*:
 
I campi contrassegnati con * sono obbligatori.