salva immagine

[christian08]

Ciao a tutti se io metto un link di una immagine e possibile far in modo che al client gli chieda direttamente di salvare il file invece di aprirlo


Grazie mille a tutti


Ciao Ciao

[santino83]

ma che centra sta discussione con asp? non sono cose da gestire in scripting lato client?

[Baol74]

Si. Metti questo codice in una pagina chiama download.asp

<%
Dim Path,FileName
Path = Server.MapPath(Request("FileName"))
FileName = Mid(Path,InStrRev(Path,"\")+1)
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1
Stream.Open()
Stream.LoadFromFile Path
Stream.Position=0
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=" & FileName
Response.BinaryWrite Stream.Read()
Stream.Close()
Set Stream=Nothing
Response.End
%>

Scarica

Puoi aggingere il count dei download. E magari alcuni controlli (Request("FileName") è vuoto, il file non esiste)

[br1]

Originariamente inviato da santino83
ma che centra sta discussione con asp? non sono cose da gestire in scripting lato client?

Direi proprio di no

[christian08]

1. sapevo che si poteva gestire anche da lato server ma non sapevo come ed è per questo che ho postato qui

2. significa che ho bisogno di farlo lato server se ho postato qui

3. prima di dire le cose informatevi meglio



Grazie Baol74 per il codice ora lo provo e vedo se funziona

<%
Dim Path,FileName
Path = Server.MapPath(Request("FileName"))
FileName = Mid(Path,InStrRev(Path,"\")+1)
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1
Stream.Open()
Stream.LoadFromFile Path
Stream.Position=0
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment; filename=" & FileName
Response.BinaryWrite Stream.Read()
Stream.Close()
Set Stream=Nothing
Response.End
%>