Un projet ASP récent que j'ai réalisé nécessite un téléchargement forcé de photos. Je n'ai pas d'autre choix que de le faire moi-même.
L'image n'est pas traitée.
- FunctiondownloadFile (strfile)
- strFileName = server.mappath (strfile)
- Réponse.buffer = true
- Réponse.
- Sets = server.createObject (adodb.stream)
- open
- S.Type = 1
- onerrorresumenext
- Setfso = server.createObject (scripting.fileSystemObject)
- ifnotfso.fileexists (strFilename) puis
- Response.Write (<h1> Erreur: </h1> & strFilename & DoedNotexist <p>)
- Réponse.
- endire
- Setf = fso.getFile (strFilename)
- intFileLength = F.Size
- S.LoadFromfile (strFilename)
- idierrhen
- Response.Write (<h1> Erreur: </h1> & err.description & <p>)
- Réponse.
- endire
- Réponse.AddheadContent-Disposition, attachement; filename = & f.name
- Réponse.AddheadContent-Length, intFileLength
- Réponse.Charset = UTF-8
- Response.ContentType = Application / Octet-Stream
- Réponse.binarywrites.read
- Réponse.flush
- S.Close
- Sets = rien
- Finition de fin
Ce qui précède est la fonction partagée par cet article.