tvungen download

link med download.asp?file=dittfilnavn

download.asp
-------------
<%
Response.Expires = -1

Dim filename
Dim shortfn

shortfn = request.querystring("file")
filename = server.mappath("downloads/" & shortfn)

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
%>

det virker tildels... det eneste man måske kan klandre scriptet for er at hvis ens fil er at af en given type, men har en anden extension... vil filnavnet man har hentet, have fået en extenstion extra...

fx.. jeg har nogle filer som hedder .lvl af typen txt... som efter en hentning hedder: filnavn.lvl.txt

hvilket er en smule trist... jeg tror dog godt jeg selv kan finde ud af at pille denne funktion ud...

men man tak !