Autrement dit, il invite directement l'utilisateur à télécharger plutôt que d'ouvrir certains fichiers par le navigateur. Notez qu'après la copie du code suivant dans le fichier ASP, n'ajoutez pas de code non-ASP à la page: tels que le code client HTML et JavaScript.
La copie de code est la suivante:
<%
'--------------------------------------------
Réponse.buffer = true
Dimstrfilepath, strfilesize, strfilename
Constadtypebinary = 1
strfilepath = "filepath"
strfileSize = ... taille de fichier, facultatif
strfilename = "nom de fichier"
Réponse.
'8 ************************************************** 8
'Exige que MDAC2.6 ou MDAC2.7 soient installés sur votre serveur
'8 ************************************************** 8
SetObjstream = server.createObject ("adodb.stream")
objstream.open
objstream.type = adtypebiny
objstream.loadfromfilestrFilepath
strFileType = lCase (à droite (strFilename, 4)) 'File Extension Station.long. gare
'Juger les types de contenu par extension de fichier
SelectCasestrFileType
Cas ".asf"
ContentType = "vidéo / x-ms-asf"
Cas ".avi"
ContentType = "vidéo / avi"
Cas ".doc"
ContentType = "application / msword"
Cas ".zip"
ContentType = "Application / Zip"
Cas ".xls"
ContentType = "Application / vnd.ms-excel"
Cas ".gif"
ContentType = "image / gif"
Cas ".jpg", "jpeg"
ContentType = "image / jpeg"
Cas ".wav"
ContentType = "Audio / wav"
Cas ".mp3"
ContentType = "Audio / MPEG3"
Cas ".mpg", "mpeg"
ContentType = "vidéo / mpeg"
Cas ".rtf"
ContentType = "Application / RTF"
Cas ".htm", "html"
ContentType = "text / html"
Cas ".asp"
ContentType = "text / asp"
Caseelse
'Handleallotherfiles
ContentType = "Application / Octet-Stream"
Se licez
Response.Addheader "Content-Disposition", "attachement; filename = strFilename
Response.Addheader "Content-Length", strfilesize
Response.Charset = "UTF-8" 'Set de caractères du navigateur de client UTF-8
Response.ContentType = ContentType
Réponse.binarywriteobjstream.read
Réponse.flush
objstream.close
SetObjstream = rien
%>