Es decir, solicita directamente al usuario que descargue en lugar de abrir ciertos archivos por el navegador. Tenga en cuenta que después de copiar el siguiente código al archivo ASP, no agregue algún código no ASP a la página: como HTML y el código del cliente JavaScript.
La copia del código es la siguiente:
<%
'--------------------------------------------
Respuesta.Buffer = True
Dimstrfilepath, strfilesize, strfilename
Constadtypebinary = 1
strfilepath = "filepath"
strfilesize = ... tamaño de archivo, opcional
strfileName = "Nombre del archivo"
Respuesta.
'8 ********************************************
'Requiere que MDAC2.6 o MDAC2.7 se instalen en su servidor
'8 ********************************************
Setobjstream = server.createObject ("ADODB.Stream")
objstream.
objstream.type = adtypeBinar
objstream.loadFromFilestrFilepath
strfileType = lcase (derecha (strfilename, 4)) 'Estación de extensión de archivo. Long. estación
'Juzgar tipos de contenido por extensión de archivo
SelectCasStrfileType
Caso ".asf"
ContentType = "video/x-ms-asf"
Caso ".Avi"
ContentType = "Video/Avi"
Caso ".doc"
ContentType = "Application/MSword"
Caso ".zip"
ContentType = "Application/Zip"
Caso ".xls"
ContentType = "Application/VND.MS-Excel"
Caso ".gif"
ContentType = "Image/GIF"
Caso ".jpg", "jpeg"
ContentType = "Image/JPEG"
Caso ".wav"
ContentType = "audio/wav"
Caso ".mp3"
ContentType = "audio/mpeg3"
Caso ".mpg", "mpeg"
ContentType = "video/mpeg"
Caso ".rtf"
ContentType = "Application/RTF"
Caso ".htm", "html"
ContentType = "Text/Html"
Caso ".asp"
ContentType = "Text/ASP"
Casualidad
'HandleallTotherFiles
ContentType = "Application/Octet-stream"
EndSelectar
Response.AddHeader "Content-Disposition", "Attachment; FileName = strFileName
Response.AddHeader "Content-longitud", strfilesize
Response.Charset = "UTF-8" 'El conjunto de caracteres del navegador de clientes UTF-8
Respuesta.ContentType = ContentType
Respuesta.BinaryWriteObJStream.Read
Respuesta. Flush
objstream.close
Setobjstream = nada
%>