Download af billede
Hej alle sammenJeg bruger dette script til at downloade ting ned med:
strTitle = "17"
strExt = "jpg"
strSize = 'Her henter den størrelsen på filen fra en tabel, fra en database
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
Const adTypeBinary = 1
objStream.Type = adTypeBinary
objStream.LoadFromFile "c:\mph\downloads\images\" & strTitle & "." & strExt
Select Case strExt
Case "asf"
ContentType = "video/x-ms-asf"
Case "avi"
ContentType = "video/avi"
Case "doc"
ContentType = "application/msword"
Case "zip"
ContentType = "application/zip"
Case "xls"
ContentType = "application/vnd.ms-excel"
Case "gif"
ContentType = "image/gif"
Case "jpg", "jpeg"
ContentType = "image/jpeg"
Case "wav"
ContentType = "audio/wav"
Case "mp3"
ContentType = "audio/mpeg3"
Case "mpg", "mpeg"
ContentType = "video/mpeg"
Case "rtf"
ContentType = "application/rtf"
Case "htm", "html"
ContentType = "text/html"
Case "asp"
ContentType = "text/asp"
Case Else
'Handle All Other Files
ContentType = "application/octet-stream"
End Select
Response.AddHeader "content-disposition","attachment; filename=" & strTitle & "." & strExt
Response.AddHeader "Content-Length", strSize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
Det virker helt fint med .mpg, men det virker ikke helt med .jpg. Den finder filen og downloader den, men billedet er tomt! Der kommer til at stå "Der er ikke noget eksempel".
Nogen der kan hjælpe?
