Simplemente guarde el archivo a continuación como Descargar.asp y luego transfiera el archivo para descargarlo según sea necesario. Formato: Download.asp?FileName=El nombre del archivo que se descargará
Copie el código de código de la siguiente manera:
Corriente tenue
Contenido oscuro
Nombre de archivo oscuro
Atenuar extensión de archivo
Tipo de anuncio constanteBinario = 1
Nombre de archivo = Solicitud.QueryString(Nombre de archivo)
si NombreDeArchivo = Entonces
Response.Write Nombre de archivo no válido.
Respuesta.Fin
terminar si
'Los siguientes son archivos que no desea descargar
FileExt = Mid(Nombre de archivo, InStrRev(Nombre de archivo, .) + 1)
Seleccione Caso UCase(FileExt)
Caso ASP, ASA, ASPX, ASAX, MDB
Response.Write es un archivo protegido y no se puede descargar.
Respuesta.Fin
Seleccionar fin
'Descargar este archivo
Respuesta.Borrar
Response.ContentType = aplicación/flujo de octeto
Response.AddHeader disposición de contenido, archivo adjunto = & Nombre de archivo;
Establecer secuencia = servidor.CreateObject(ADODB.Stream)
Stream.Type = adTypeBinary
Stream.Abierto
Stream.LoadFromFile Server.MapPath(Nombre de archivo)
Mientras no se transmite.EOS
Respuesta.BinaryWrite Stream.Read(1024 * 64)
Encaminarse a
Transmitir.Cerrar
Establecer transmisión = Nada
Respuesta.Flush
Respuesta.Fin