02/03/2015, 07:16
|
| | | Fecha de Ingreso: enero-2004 Ubicación: Toledo
Mensajes: 2
Antigüedad: 21 años, 2 meses Puntos: 0 | |
| Respuesta: Problema con forzar descarga
' DE ESTA FORMA FUNCIONA PARA TODO TIPO DE ARCHIVOS, PEQUEÑOS Y GRANDES
Dim objStream, strFileName , archivo , carpeta
archivo = Request.QueryString("file")
strFileName = archivo
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile Server.MapPath(strFileName)
Response.AddHeader "Content-Disposition", "attachment; filename=" & archivo
Response.ContentType = "application/octet-stream"
' ESTO ES LO REALMENTE IMPORTANTE
while not objStream.EOS
Response.BinaryWrite(objStream.Read(1024*256))
response.flush
wend
objStream.Close
Set objStream = Nothing |