Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Forzar descarga de archivos

36 views
Skip to first unread message

Juan Carlos Quintanilla

unread,
Oct 1, 2004, 11:03:38 AM10/1/04
to
Hola foro,
 
Quizas no tenga mucho que ver con ASP, pero ahi va mi question.
 
Tengo en mi página unos links que dirigen a archivos JPEG, PDF, etc. Pero en lugar de mostrarlos en otra página, me gustaria que se muestre la ventana de Descarga de archivos. Como puedo hacer esto.
 
Muchas gracias.
Saludos desde Perú!!!
 

Karmico

unread,
Oct 1, 2004, 12:48:33 PM10/1/04
to
Hola,

Así lo hago yo:

<%
'on error resume next
fichero = "nombredelfichero.pdf" 'por ejemplo
strPath = "../carpetadondeseubica/"

response.contentType = "application/x-unknown"
response.addHeader "Content-Disposition","attachment; filename=" & chr(34) &
fichero & chr(34)

response.BinaryWrite getBinaryFile( Server.Mappath(strPath & "/" &
fichero) )

function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile = oStream.read
set oStream = Nothing
end function
%>

Un saludo!

Karmico.


Juan Carlos Quintanilla

unread,
Oct 1, 2004, 1:24:01 PM10/1/04
to
Hola Karmico,
 
Gracias por responder.
 
Tengo la aplicacion corriendo, dime una cosa, si la aplicación ASP la cambio a PHP como seria.
 
Gracias!!!
 
0 new messages