INCREDIBILE !! Sembra proprio che funzioni!
Ho provato a far scaricare dal mio sito un file pdf preso a caso dal web e funziona!
E' proprio quello che volevi fare tu, no?
Non ho provato con altri tipi di file... ecco il codice.
<%
' percorso del file sul web
strurl = "http://www-s.ti.com/sc/ds/op07c.pdf"
set objXMLHttp = Server.CreateObject("MSXML2.ServerXMLHttp")
objXMLHttp.Open "GET", strurl, False
objXMLHttp.Send
' recupero da strurl il nome del file (stringa dopo l'ultima slash)
lastslash = InStrRev(strurl,"/")
filename = right(strurl,lastslash)
' setto il contenuto della risposta per il download del file
Response.Expires = 0
Response.Buffer = true
Response.ContentType = "application/octet-stream"
Response.Addheader "Content-Disposition", "attachment; filename=" & filename
Response.Addheader "Content-Length", objXMLHttp.GetResponseHeader("Content-Length")
Response.BinaryWrite(objXMLHttp.ResponseBody)
' pulizia e invio della risposta
set objXMLHttp = nothing
Response.End
%>
Per farlo andare devi avere il parser XML installato sul tuo server.
Guarda quante cose si imparano!
Questa e' davvero interessante... l'unico dubbio che ho e' una questione di etica e riguarda il fatto che i gestori dei siti da cui prendi i file potrebbero non essere contenti se lo fai a loro insaputa... questo perche' con il codice che ti ho scritto sopra il sito da cui il file proviene non verrebbe assolutamente visualizzato.
Sembrerebbe che il file venga dal tuo sito, e credo che questo (se fatto senza autorizzazione) sia scorretto!
