Har en data bas med filnamn filerna ligger i en mapp på servern det går bra att ladda ner filer på en pc men i mac så öpnas filen i webläsaren lösningen för pc hittade jag här på forumet. Mac är känsligare på filnamn/url:er som har mellanslag eller åäö i filnamnet. För att skriva en bra url kan du använda server.urlencode Jag provade att lägga in koden men jag tror inte det vart rätt det funkar ej på PCFilhämtning på Mac
Roger ZSv: Filhämtning på Mac
Sv: Filhämtning på Mac
<%@ Language=VBScript %>
<%
Response.Buffer = true
dim fil 'Endast filnamnet
dim path 'hela sökvägen med filnamnet
dim pathtyp 'filendelsen
dim objStream 'ADODB-stream
fil = Session("fil")
Session("fil") = ""
path = Session("strFilePath")
Session("strFilePath") = ""
Response.Clear
' path = server.URLEncode (path)
' Response.Write path
Const adTypeBinary = 1
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile(path)
fil = "attachment;filename=" & fil
pathtyp = lcase(Right(path, 4))
Select Case pathtyp
case ".jpg", "jpeg"
ContentTyp = "image/jpeg"
case ".gif"
ContentTyp = "image/gif"
case else
ContentTyp = "application/octet-stream"
end select
Response.AddHeader "Content-Disposition", fil
Response.CharSet = "UTF-8"
Response.ContentType = ContentTyp
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = nothing
%>