Cliquez pour télécharger PDF et autres fichiers au lieu d'ouvrir dans le navigateur

<%

Salentueux

Sombre contenu

Nom de fichier DIM

Dim fichier

Const adtypebinary = 1

FileName = request.QueryString ("FileName")

Si filename = "" alors

Response.write "Nom du fichier Inconfort".

Réponse.

Terminer si

Ci-dessous est un fichier que je ne veux pas télécharger

Filext = mid (nom de fichier, instrrère (nom de fichier, ".") 1)

Sélectionnez Case UCase (FileExt)

Cas "asp", "asa", "aspx", "asax", "mdb"

Response.write "Fichiers protégés, ne peut pas être téléchargé".

Réponse.

Fin de sélection

'Téléchargez ce fichier

Réponse.

Response.ContentType = "Application / Octet-Stream"

Réponse.addheader "contenu-disposition", "pièce jointe; filename =" & filename

Set stream = server.createObject ("adodb.stream")

Stream.Type = Adtypebiny

Stream.

Stream.LoadFromFile Server.Mappath (nom de fichier)

Bien que non stream.eos

Réponse.binarywrite stream.read (1024 * 64)

Se promener

Stream.close

Set stream = rien

Réponse.flush

Réponse.

%>

Utilisation: téléchargement.asp?

Mettez votre fichier DOC sur les fichiers du répertoire racine, vous pouvez également le mettre ailleurs.