Download con ADODB.Stream - ASPCode.it - ASP

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>

Vota questa tip >>

AspIn.com

Utilità

Segnala questa pagina ad un amico

Versione stampabile di questa pagina

Link

software ecommerce


	Utenti connessi: 6091		Home \| Forum \| Tutorials \| Articoli \| Tips&Tricks \| Scripts \| Store \| Hosting \| E-Corsi \| Libri