No, non è il problema sulle maiuscole.
Proprio non capisco. :master:
Perchè, se è solo una questione di intestazioni, con ASP questo codice non dà problemi?
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
%>
Anche se siamo nel forum di PHP, credo che si capisca....