Slettet bruger
25. oktober 2007 - 19:39
Der er
4 kommentarer og
1 løsning
Tving til download.
Hey eksperter.
Jeg har tænkt mig at lave et filarkiv, hvor brugeren af sitet henvises til fx linket:
default.asp?pageid=filarkiv&action=download&id=23
Der skal sitet så gå ind og finde filen med id'et 23 i min download tabel.
Her vil jeg så vide, hvordan gør jeg EFTER at den har fundet filen? Så den går hen og laver en "gem som..." ved den angivne fil?
25. oktober 2007 - 22:52
#2
Du kan bruge denne kode:
filename = Server.MapPath("/mappe/fil.avi")
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,4)
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
Slettet bruger
21. november 2007 - 21:47
#3
Beklager ventetiden på næsten måned.
Kanon eksempel du leverer w13, dog var jeg nødt til at smide response.clear foran og response.end bagefter.
Men smid et svar, og få pointsne :)