Haga clic para descargar PDF y otros archivos en lugar de abrirse en el navegador

<%

Flujo oscuro

Contenido oscuro

Nombre de archivo Dim

Dim FileExt

Const adTypebinary = 1

FileName = request.QueryString ("nombre de archivo")

Si FileName = "" entonces

Response.WRITE "Nombre del archivo de Invfort".

Respuesta.

Final si

'A continuación se muestra un archivo que no quiero descargar

Filext = mid (nombre de archivo, instrrev (nombre de archivo, ".") 1)

Seleccione Case UCase (FileExt)

Caso "ASP", "ASA", "ASPX", "ASAX", "MDB"

Response.write "Los archivos protegidos, no se pueden descargar".

Respuesta.

Final seleccionar

'Descargue este archivo

Respuesta.

Respuesta.ContentType = "Application/Octet-Stream"

Response.AddHeader "Content-Disposition", "Archivo; FileName =" & FileName

Set stream = server.createObject ("ADODB.Stream")

Stream.type = adtypeBinary

Transmisión. Abre

Stream.LoadFromFile Server.Mappath (nombre de archivo)

Mientras que no se transmite.EOS

Response.BinaryWrite stream.read (1024 * 64)

Encaminarse a

Transmisión. Clara

Establecer stream = nada

Respuesta. Flush

Respuesta.

%>

Use: download.asp?

Coloque su archivo DOC en los archivos del directorio raíz, también puede colocarlo en otro lugar.