Téléchargement asp

Il est possible de forcer le téléchargement d' un fichier en agissant sur l' entête envoyé au navigateur. L' objet stream se charge ensuite d' envoyer le contenu du fichier au navigateur.

Source

<%
    Dim Stream
    Dim ContenuFichier
    Dim NomFichier
		
    NomFichier = request("fichier")
    if trim(NomFichier)<>"" then
      Response.ContentType = "application/octet-stream"
      Response.AddHeader "content-disposition", "attachment; filename=" & NomFichier
      Set Stream = server.CreateObject("ADODB.Stream")
      Stream.Open
      Stream.LoadFromFile Server.MapPath(NomFichier)
      ContenuFichier = Stream.ReadText
      Response.BinaryWrite ContenuFichier
      Stream.Close
      Set Stream = Nothing
    end if
%>

Forcer téléchargement du fichier exemple.txt
Forcer téléchargement du fichier telechargement.asp