..salve a tutti....prima di tutto...:-)
....e' possibile effetuare il downlaod di un file via Web, senza che il file medesimo sia nel Web Server...???
Ho già visto l'utilissimo script che permette il download forzato (quello che utilizza la lettura del file in binario e la sua riconversione in stringa)...ma non riesco ad evitare che funzioni se e solo se utilizzando Server.MapPath, faccia il download di un file presente nel mio web server..
..ho provato con path assoluti, tipo http:nomeserver/path/nomefile o \\nomeserver\path\nomefile....ma ricevo in risposta un file così scritto...
<font face="Arial" size=2>
<p>Server object</font> <font face="Arial" size=2>error 'ASP 0177 : 800a0034'</font>
<p>
<font face="Arial" size=2>Server.CreateObject Failed</font>
<p>
<font face="Arial" size=2>/voyager3/asp/prova2.asp</font><font face="Arial" size=2>, line 35</font>
<p>
<font face="Arial" size=2>The operation completed successfully.
...ecco il codice....(ricevo il nome del file ed il path assoluto da una altra pagina asp, avendo anche l'accortezza di utilizzare server.URLEncode per il passaggio delle variabili....
<%
Response.Expires = 0
Response.Buffer = True
NomeFile=Request.QueryString("NomeFile")
PathCompleto=Request.QueryString("PathCompleto")
%>
<%
Function StringToBinary(String)
Dim I, B
For I=1 to len(String)
B = B & ChrB(Asc(Mid(String,I,1)))
Next
StringToBinary = B
End Function
%>
<%
server.ScriptTimeout = 16200
response.buffer = true
response.contentType = "application/octet-stream"
' Aggiunge un header per far scaricare il file
response.AddHeader "content-disposition", "attachment; filename=" & NomeFile
set fs = Server.CreateObject ("Scripting.FileSystemObject")
'set binfile = fs.OpenTextFile(server.mappath(".\" & PathCompleto))
set binfile = fs.OpenTextFile(PathCompleto)
'fileSize = fs.getFile(server.mappath(".\" & PathCompleto)).size
fileSize = fs.getFile(PathCompleto).size
for i = 1 to fileSize
if not Response.IsClientConnected then
binfile.close
set binfile = Nothing
response.clear
response.end
end if
response.binarywrite StringToBinary(binfile.read(1024*16))
response.flush
next
binfile.close
set binfile = Nothing
set fs = nothing
%>
..grazie fin d'ora per chi potrà aiutarmi...
Wintersea
