Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Re: forcer un téléchargenment

Envoyé: 13 mai 2006, 11h28 par Oznog


Salut,

Désolé, il faut spécifier l'en-tête mais aussi le code qui attache le fichier à l'en-tête http. Voilà un exemple simple et l'autre avec un « Stream ».

<%
Response.Buffer = true
' un ScriptTimeout peut toujours être utile
Server.ScriptTimeout = 30000
Dim sNomFichier
sNomFichier = "fichier.mp3"
Response.ContentType = "application/x-msdownload"
Response.Addheader "Content-Disposition", "attachment; filename=" & sNomFichier
Response.End
%>

OU Avec un « Stream » et un bon gestionnaire d'erreur.

<%@ Language="VBScript"%>
<%option explicit%>
<%response.buffer=true%>
<%Server.ScriptTimeout = 30000%>
<%
call twForceSauvegarde(request.querystring("f"))

function twForceSauvegarde(sFichier)
Dim sCheminFichier, oFlux, oFso, oFichier
sCheminFichier = server.MapPath(sFichier)

Set oFlux = Server.CreateObject("ADODB.Stream")
oFlux.Open
oFlux.Type = 1
on error resume next
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
if not oFso.FileExists(sCheminFichier) then
Response.Write("<p><b>Erreur</b> : Le fichier " & sCheminFichier & " n'existe pas!<p>")
Response.End
end if
Set oFichier = oFso.GetFile(sCheminFichier)
oFlux.LoadFromFile(sCheminFichier)
if err then
Response.Write("<p><b>Erreur</b> : " & err.Description & "<p>")
Response.End
end if

Response.Clear
Response.ContentType = "application/x-msdownload"
Response.AddHeader "Content-Disposition", "attachment; filename=" & sFichier ' & oFichier.name
Response.AddHeader "Content-Length", oFichier.size
Response.BinaryWrite oFlux.Read
Response.Flush

oFlux.Close
Set oFlux = Nothing
end function
%>

Note qu'il semblerait que certain serveur empêche le MP3 de passer ?? LE fichier arrive mais vide (0 octet).

Ciao
Oznog


Réponses

 Aucune réponse à ce message... 
Aucun médias sociaux
X

Trucsweb.com Connexion

X

Trucsweb.com Mot de passe perdu

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte