Utilitaire pour forcer le téléchargement d'un fichier sur un client web

Soyez le premier à donner votre avis sur cette source.

Vue 31 569 fois - Téléchargée 1 035 fois

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 / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
32
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
4 avril 2007

Le message d'erreur est clair non?
Il faut vérifier le chemin que tu passes à la méthode MapPath.
Messages postés
6
Date d'inscription
vendredi 30 mars 2007
Statut
Membre
Dernière intervention
24 avril 2007

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!
Messages postés
18
Date d'inscription
vendredi 4 novembre 2005
Statut
Membre
Dernière intervention
1 août 2007
1
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?
+
Messages postés
12
Date d'inscription
samedi 10 septembre 2005
Statut
Membre
Dernière intervention
22 novembre 2005

utile pour piratage piratage aussi !!! alors c illégale. :)
Messages postés
1
Date d'inscription
vendredi 18 novembre 2005
Statut
Membre
Dernière intervention
21 novembre 2005

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...
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.