No, non è il problema sulle maiuscole.![]()
Proprio non capisco. :master:
Perchè, se è solo una questione di intestazioni, con ASP questo codice non dà problemi?
Anche se siamo nel forum di PHP, credo che si capisca....codice:<% Dim objStream, strFilePath, strFileName strFilePath = request.querystring("file") splitto = split(strFilePath, "/") strFileName = splitto(Ubound(splitto)) strFileName = pulisciInput(strFileName) ' ' cerco il tipo mime del file da salvare tipoFile="application/octet-stream" dim mime set mime=Server.CreateObject("Scripting.Dictionary") mime.Add "AU", "audio/basic" mime.Add "CSS", "text/css" mime.Add "CSV", "text/tab-separated-values" mime.Add "DOC", "application/msword" mime.Add "GIF", "image/gif" mime.Add "HTML", "text/html" mime.Add "HTM", "text/html" mime.Add "JPEG", "image/jpeg" mime.Add "JPG", "image/jpeg" mime.Add "KAR", "audio/mid" mime.Add "M1V", "video/mpeg" mime.Add "MDB", "application/msaccess" mime.Add "MID", "audio/mid" mime.Add "MIDI", "audio/mid" mime.Add "MPE", "video/mpeg" mime.Add "MPG", "video/mpeg" mime.Add "MPG2", "video/mpeg" mime.Add "MPEG", "video/mpeg" mime.Add "MPG4", "video/mpeg" mime.Add "MP4", "video/mpeg" mime.Add "PDF", "application/pdf" mime.Add "RMI", "audio/mid" mime.Add "RTF", "text/enriched" mime.Add "TIF", "image/tif" mime.Add "TIFF", "image/tiff" mime.Add "TXT", "text/plain" mime.Add "WAV", "application/wav" mime.Add "XBM", "image/xbm" mime.Add "XLB", "application/msexcel" mime.Add "XLS", "application/msexcel" mime.Add "ZIP", "application/zip" splitto2=split(strFileName, ".") ' ricavo l'estensione ext=splitto2(1) k=mime.keys v=mime.items for i = 0 To mime.Count -1 if LCASE(ext)=LCASE(k(i)) then: tipoFile=v(i) end if next set mime=nothing ' ' apro uno stream per leggermi il file da salvare Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary objStream.Open objStream.LoadFromFile Server.MapPath(strFilePath) ' Istruiamo il browser sul tipo di file Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName Response.ContentType = tipoFile ' scrivo il file aperto Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing %>
![]()

Rispondi quotando