Tving download script
Hej, jeg har dette script som tvinger til download af fil.Det virker fint, bort set fra når der er tale om avi,psd,mp4 filer, så fejler det.
Nogen som kan hjælpe med hvorfor?
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
Const adTypeBinary = 1
objStream.Type = adTypeBinary
objStream.LoadFromFile Replace(filename,"/","\")
Response.AddHeader "Content-Disposition", "attachment;filename=" & shortfn
Select Case right(filename,3)
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.ContentType = ContentType
Response.BinaryWrite objStream.Read
Fejlen:
Fil ikke fundet
Firefox kan ikke finde filen http://(domain)/downloadfile.asp?file=slider.psd&folder=3
Undersøg filnavnet for store bogstaver eller andre tastefejl.
Undersøg om filen er blevet flyttet, omdøbt eller slettet