Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Descargar Archivos
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Tuzo
Starting Member


20 Posts
Mensajes - 19 May 2003 :  22:21:37  Ver Perfil  Enviar Email
Buenas tardes:

tengo un archivo de acrobat y quiero tener una liga en mi pagina en donde el usuario pueda descargar el archivo.

Ojala que me puedan ayudar con mi duda. Gracias...

apolo
Junior Member

España
202 Posts
Posted - 20 May 2003 :  09:20:46  Ver perfil  Enviar e-mail  Visit apolo's Homepage
con este codigo puedes bajar cualquier tipo de archivo desde la web.

<%on error resume Next
Response.Buffer = True
Dim strFilePath, strFileSize, strFileName

Const adTypeBinary = 1

'------ lee total de tamaño del archivo
Set fso = CreateObject("Scripting.FileSystemObject")
archivo = Server.MapPath(".\jobs")&"\"&request.querystring("n") ' aqui esta el nombre de archivo que vas a bajar.
Set f = fso.GetFile(archivo)
s = f.size
'------ lee total de tamaño del archivo

strFilePath = Server.MapPath(".\jobs")&"\"&request.querystring("n")
strFileSize = s
strFileName = request("n")

Response.Clear

'8*******************************8
'8*******************************8

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

strFileType = lcase(Right(strFileName, 4))

' esta cosa detecta que tipo de archivo es, zip, exe, pdf, etc. ok, si sabes mas tipo de archivo
' debes agregarlos pero sino no. lo dejas asi nomas

Select Case strFileType
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html"
ContentType = "text/html"
Case ".asp"
ContentType = "text/asp"
Case Else
'Handle All Other Files
ContentType = "application/octet-stream"
End Select

' -> aqui va lo importante le damos el nombre de archivo
' -> y el peso total de éste .
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.AddHeader "Content-Length", strFileSize

Response.Charset = "UTF-8"
Response.ContentType = ContentType

Response.BinaryWrite objStream.Read
Response.Flush

objStream.Close
Set objStream = Nothing

' Manejamos errro por si la moscas.
if err.Number <> 0 then
response.write "error:"& err.description
response.end
end if
response.redirect "errores_7.html"

%>


Gero arteInicio Pagina

iturga
Starting Member


8 Posts
Posted - 02 May 2007 :  18:27:58  Ver perfil  Enviar e-mail
Hola a todos,

He hecho lo que dice Apolo y funciona pero a la hora de abrir el archivo, no me abre. Puede alguien decir el problema?

Es decir, el documento que quiero descargar lo descarga bien a mi ordenador desde el servidor pero si quiero ver la foto o un pdf me dice que el archivo no es correcto. Espero que me puedan ayudar,

Muchas gracias

Iturga

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar