Téléchargement asp

En Asp, Il est possible d’emmener un fichier à se télécharger rapidement en agissant sur l’entête envoyé au navigateur. L’objet « stream » se charge d’envoyer le contenu du fichier au navigateur.

Voici le code à utiliser :

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

%>