asp - asp.net - aspcode.it

COMMUNITY - Login
 Username:
 
 Password:
 
Voglio registrarmi!
Password dimenticata?
 Utenti on-line: 0
 Ospiti on-line: 12701
ASPCode.it - Store

  > > Tips

Download con ADODB.Stream
di Antonio Paterno

Data di pubblicazione: 07/02/2003        Voto della community: 4,17 (Votanti: 24)

Lo script seguente permette essenzialmente di:
1. effettuare il download di files senza mostrarne il reale indirizzo.
2. scaricare anche file di tipo DOC, PDF etc. che normalmente si aprirebbero nella finestra del browser.

Per default lo script cerca il file da scaricare nella sua stessa cartella (cioè nella cartella dove risiede lo script, in questo caso la root del sito). Nel caso i files per il download si trovassero invece in una cartella apposita (consigliato) basta cambiare la riga seguente:
- objStream.LoadFromFile Server.MapPath(strFileName)
con quest'altra:
- objStream.LoadFromFile Server.MapPath("nomecartella/" & strFileName)

Ecco il listato dello script:

<%
Dim objStream, strFileName
strFileName = Request.QueryString("file")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile Server.MapPath(strFileName)
' Istruiamo il browser sul tipo di file
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
%>

Ed ecco un esempio di utilizzo (presuppone che lo script stia nel file "download.asp"):

<a href="download.asp?file=pippo.doc">Scarica il file</a>




Utenti connessi: 12701