UTILITAIRE POUR FORCER LE TÉLÉCHARGEMENT D'UN FICHIER SUR UN CLIENT WEB téléchargement, download, contendisposition, header, http, Source N°27799

Information sur la source

Catégorie :Fichiers/Disque Classé sous : téléchargement, download, contendisposition, header, http Niveau : Expert Date de création : 24/11/2004 Vu / téléchargé: 19 346 / 725

Auteur : shaiulud

Site perso

Ecrire un message privé

Note :

5,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

Cette page ASP force un téléchargement binaire du fichier mis en paramètre.
Un popup de confirmation apparait à l'utilisateur pour lui demander s'il veux ouvrir ou sauvegarder le fichier.

Dans l'exemple présent dans le source, j'ai nommé cette page dwdFile.asp; il suffira de corrigé l'appel selon le nom de votre fichier.

Source

<%
' Utilisation dans la pages
' appel direct : /dwdFile.asp?DwdFile=chemin/du/fichier/fichier.ext
' lien hypertexte : <a href="dwdFile.asp?DwdFile=chemin/du/fichier/fichier.ext" target="_self">
Dim sFilePath, sFileName, sFileUrl, iPosStart
sFileUrl = Request("DwdFile")
iPosStart = InStrRev(sFileUrl, "/")
sFileName = Right(sFileUrl, len(sFileUrl)-iPosStart)
'Lecture du fichier
Dim fso, oStream, sFileStream
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(sFileUrl)) Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.LoadFromFile Server.MapPath(sFileUrl)
sFileStream = oStream.ReadText
oStream.Close
Set oStream = Nothing
else
response.write "The file, named <i>"& sFileName &"</i>, doesn't exits!"
response.end
end if
Set fso = Nothing
' Préparation des entêtes HTTP pour l'envoi de fichier
Response.AddHeader "Content-Type", "application/octetstream"
Response.AddHeader "Content-Disposition", "attachment; filename="""& sFileName &""""
Response.AddHeader "Cache-Control", "must-revalidate, post-check=0, pre-check=0"
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Expires", 0
'Transfer du fichier en flux binaire
Response.BinaryWrite sFileStream
%>

<%
' Utilisation dans la pages
'	appel direct : /dwdFile.asp?DwdFile=chemin/du/fichier/fichier.ext
'   lien hypertexte : <a href="dwdFile.asp?DwdFile=chemin/du/fichier/fichier.ext" target="_self">

Dim sFilePath, sFileName, sFileUrl, iPosStart

sFileUrl = Request("DwdFile")
iPosStart = InStrRev(sFileUrl, "/")
sFileName = Right(sFileUrl, len(sFileUrl)-iPosStart)

'Lecture du fichier
Dim fso, oStream, sFileStream
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(sFileUrl)) Then
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Open
	oStream.LoadFromFile Server.MapPath(sFileUrl)
	sFileStream = oStream.ReadText
	oStream.Close
	Set oStream = Nothing

else
	response.write "The file, named <i>"& sFileName &"</i>, doesn't exits!"
	response.end
end if
Set fso = Nothing


' Préparation des entêtes HTTP pour l'envoi de fichier
Response.AddHeader "Content-Type", "application/octetstream"
Response.AddHeader "Content-Disposition", "attachment; filename="""& sFileName &""""
Response.AddHeader "Cache-Control", "must-revalidate, post-check=0, pre-check=0"
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Expires", 0


'Transfer du fichier en flux binaire
Response.BinaryWrite sFileStream
%>

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

dwdFile.asp 1 281 octets

Télécharger le zip

Sources de la même categorie

Toutes les sources de la catégorie Fichiers/Disque

Sources en rapport avec celle ci

Commentaires

Commentaire de fabrice69 le 26/11/2004 09:53:37 administrateur CS

Ce code fonctionne lorsque l'appel ADODB Stream fonctionne. Ce n'est pas évident sur toutes les machines.
Je n'ai personnellement jamais réussi à le faire fonctionner dans mes anciennes expériences.

Bon travail.

C'est une bonne idée qui reprend l'idée des HttpHandler en .NET :
- http://www.asp-php.net/tutorial/asp.net/httphandlers.php

Romelard Fabrice.
Commentaire de visiteurvarois le 21/01/2005 18:11:41

Ca part bien... Mais, le fonctionnement est aléatoire. Parfois, le téléchargement bloque à 99%, puis terminé !

POURQUOI ??? Bonne chance !!!
Commentaire de shaiulud le 23/02/2005 21:43:10

Il est vrai que l'utilisation des composants ADODB sont soumis à l'environnement du serveur, mise à jour de patch de sécurité, montée de version du MDAC ...

Le choix de ce composant a été motivé par la facilité d'implémentation.

Pour ce qui est du téléchargement en lui même, il faut surtout regarder au niveau des headers HTTP, en utilisant les même en J2EE , PHP ou autre, ils seront toujours valable.

pour ce qui est du blocage à 99%, je pense qu'il faut analyser les composants du serveur pour trouver ce qui cloche, ce code fonctionne depuis 3 ans sur un site privé qui a 400 utilisateurs.
Commentaire de fr64 le 28/06/2005 11:48:58

Une précision qui peut être fort utile:
Si on travaille avec des fichiers purement binaires (image jpeg ou autres), il faut faire

    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type=1 ' Type de flux binaire (texte par défaut)
    oStream.LoadFromFile Server.MapPath(sFileUrl)
    sFileStream = oStream.Read ' ReadText pour les flux textes
    oStream.Close
    Set oStream = Nothing

Sinon, le fichier que l'on récupére peut être corrompu.
Dans mon cas, avec des fichiers jpeg, il me manquait 4 fois sur 5 le dernier octet (très important pour qualifier du jpeg). Résultat: impossible d'ouvrir le fichier dans photoshop.

Pour ce qui est du ADODB.Stream, c'est un objet standard de la bibliothéque ADO.
Il me semble que c'est un composant natif de Windows, donc à partir du moment où l'on est capable d'instancier par exemple un adodb.recordset, il ne devrait pas y avoir de problèmes pour un ADODB.Stream.
A moins qu'un administrateur système puisse gérer finement les objets ADO utilisables sur le serveur? Mais je n'ai jamais entendu parler de ça.
Commentaire de Ghost91 le 07/09/2005 20:27:05

Bonjour,

J'ai un soucis concernant ce code. En effet cela ne fonctionne pas quand je me trouve dans un environement HTTPS.

Quelqu'un connait la solution ???

Mille merci d'avance.
Commentaire de domi35 le 21/11/2005 20:13:22

Ce script marche bien et ne nécessite aucune installation.
Mais il n'est utilisable que pour des fichiers ne dépassant pas une certaine taille. J'ai testé avec un fichier de 3,5 Mo et c'est passé. Par contre avec des fichiers de 8 Mo ou plus le fichier téléchargé fait 0 octet... Le téléchargement est évidemment instantané ! Si qqu'un comprend ce qui se passe, et surtout si qqu'un a la solution, je suis preneur ! Ca fait longtemps que je cherche...
Commentaire de genie_vaw le 19/04/2006 04:05:16

utile pour piratage piratage aussi !!! alors c illégale. :)
Commentaire de loic72 le 28/04/2006 12:23:22

salut, j'ai un problème : le fichier ouvert est un fichier de copie! nom_file(1).ext
comment ouvrir le "bon" fichier pour pouvoir le modifier et l'enregistrer SVP?
+
Commentaire de prac le 04/04/2007 10:01:04

Salut à tous

Voila j'ai tester le code ci dessus et j'ai un problème avec la méthode MapPath qui m'affiche cette erreur :

erver.MapPath() error 'ASP 0171 : 80004005'

Chemin manquant

/dev/download.asp, line 27

Le paramètre Path doit être spécifié pour la méthode MapPath.

J'ai donc modifié le contenu de la variable et afficher son contenu j'ai alors cette erreur :

Caractère non valide pour le chemin - Un caractère non valide a été spécifié dans le paramètre Path pour la méthode MapPath.

est-ce quelqu'un aurait une idée...?

Merci d'avance!
Commentaire de fr64 le 04/04/2007 10:20:47

Le message d'erreur est clair non?
Il faut vérifier le chemin que tu passes à la méthode MapPath.