I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Rivettazzo
Rivettazzo
il 19 luglio 2007 alle 15:15
751 messaggi dal 03 maggio 2002
www.albain.com
Utilizzo questo codice per forzare il download di file da server... In Interne explorer funziona tutto benissimo, ma in firefox, il download che parte, si chiama "download.asp", il file contiene realmente il vero file (se è uno zip e lo rinomino in .zip, funziona). Ma un utente, questo non lo sa! LOL

Qualcuno si è mai trovato davanti a questo problema? Magari, semplicemente, non avevte mai provato la vostra pagina di download con firefox...

Ecco il codice:

<%
sFile = request.querystring("file")
sPath = session("A")
sName = session("nomegiusto")
ContentType = "application/x-msdownload"
Response.Buffer = True
Const adTypeBinary = 1
Response.Clear
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile sPath
ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=""" & sName & """"
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
%>
Tutto si può fare, quando si stà per affogare si impara a nuotare
RispondiQuoting
Rivettazzo
Rivettazzo
il 19 luglio 2007 alle 15:16
751 messaggi dal 03 maggio 2002
www.albain.com
Prima utilizzavo questo codice... Il secondo, credevo mi avrebbe risolto il problema, ma così non è stato...

<%
path = session("A")
nomegiusto = session("nomegiusto")

Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open()

set file = Server.CreateObject("Scripting.FileSystemObject")
adReadAll = -1

if file.FileExists(path) then
objStream.LoadFromFile (path)
Response.Buffer = true
Response.Expires = 0

strFileType = "."
strFileType = strFileType & session("ext")

Select Case strFileType
Case ".doc"
ContentType = "application/msword"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".pdf"
ContentType = "application/pdf"
Case ".ppt"
ContentType = "application/vnd.ms-powerpoint"
Case ".gif"
ContentType = "image/gif"
Case ".jpg"
Case ".jpe"
Case ".jpeg"
ContentType = "image/jpeg"
Case ".bmp"
ContentType = "image/bmp"
Case ".zip"
ContentType = "application/zip"
Case ".htm"
Case ".html"
ContentType = "text/html"
Case Else
ContentType = "application/octet-stream"
End Select

Response.ContentType = ContentType
Response.Addheader "Content-Disposition", "attachment; filename=" & nomegiusto
Response.Addheader "Content-Length", objStream.size
Response.BinaryWrite(objStream.Read(adReadAll))
Response.Flush
end if

objStream.Close
Set objStream = Nothing
%>
Tutto si può fare, quando si stà per affogare si impara a nuotare
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.