Avatar billede 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?
Avatar billede aspguf Nybegynder
25. oktober 2007 - 21:28 #1
Avatar billede w13 Novice
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
Avatar billede 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 :)
Avatar billede w13 Novice
21. november 2007 - 21:47 #4
Ok! =)
Avatar billede w13 Novice
21. november 2007 - 22:19 #5
Takker!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester