Enregistrez simplement le fichier ci-dessous sous Download.asp, puis transférez le fichier à télécharger si nécessaire. Format : Download.asp?FileName=Le nom du fichier à télécharger
Copiez le code comme suit :
Flux faible
Dim Contenu
Dim Nom du fichier
Faible FichierExt
Const adTypeBinary = 1
NomFichier = Request.QueryString(NomFichier)
si NomFichier = Alors
Response.Write Nom de fichier invalide.
Réponse.Fin
Terminer si
'Voici les fichiers que vous ne souhaitez pas télécharger
FileExt = Mid(FileName, InStrRev(FileName, .) + 1)
Sélectionnez le cas UCase (FileExt)
Cas ASP, ASA, ASPX, ASAX, MDB
Response.Write est un fichier protégé et ne peut pas être téléchargé.
Réponse.Fin
Fin de la sélection
'Télécharger ce fichier
Réponse.Effacer
Response.ContentType = application/octet-stream
Response.AddHeader content-disposition, pièce jointe = & FileName
Définir Stream = server.CreateObject (ADODB.Stream)
Stream.Type = adTypeBinary
Flux.Ouvrir
Stream.LoadFromFile Server.MapPath(FileName)
Bien que vous ne soyez pas Stream.EOS
Réponse.BinaryWrite Stream.Read(1024 * 64)
Wende
Stream.Fermer
Définir le flux = Rien
Réponse.Flush
Réponse.Fin