Visualizar ficheros

Me autorespondo ;) debía cambiar la última línea por:

Response.AddHeader "content-disposition", "attachment;filename=" & nombre &
";"

Gracias


"JLF" escribió en el mensaje
news:u#

Hace tiempo lei un post en el que se comentaba como visualizar ficheros en
el navegador. ¿Cómo puedo cargar una página en la que se vea el fichero
indicado (doc, pdf, xls) sin que se muestre la ruta física del archivo?
He probado con el siguiente código pero lo único que consigo es que

aparezca

la ventana de descarga del fichero:

'Tras obtener la extensión... (ext)
Select Case ext
Case "doc"
Response.ContentType = "application/vnd.ms-word"
Case "xls"
Response.ContentType = "application/vnd.ms-word"
Case "pdf"
Response.ContentType = "application/vnd.pdf"
Case "htm","html", "jpg", "jpeg", "gif", "bmp", "tif", "tiff"
Response.ContentType = "txt/html"
End Select
Response.AddHeader "content-disposition", "attachment;filename=" & nombre

&

";"

Una pregunta, JLF... (y al resto de foreros)

Te funciona correctamente en Netscape (>6.0) ?

Llevo algunos dias en algo parecido y no encuentro forma de que el Netscape
rescate adecuadamente el nombre del archivo cuando es un ejecutable o su
"mime type", digamos, no encaja en lo "standáricamente" correcto (vamos,
que en el cuadro de descarga me pone algo parecido a "programa.exe.asp" o
"pagina.asp")

El código que utilizo es el siguiente:

<%
Response.AddHeader "content-disposition", "attachment; filename=" &
rs.Fields("archivoName").Value & ";"
Response.ContentType = rs.Fields("archivoType").Value
Response.BinaryWrite(rs.Fields("archivoFile").Value)
%>

Saludos!
Miguel


"JLF" escribió en el mensaje
news:

Me autorespondo ;) debía cambiar la última línea por:

Response.AddHeader "content-disposition", "attachment;filename=" & nombre

&

";"

Gracias


"JLF" escribió en el mensaje
news:u#
> Hace tiempo lei un post en el que se comentaba como visualizar ficheros

en

> el navegador. ¿Cómo puedo cargar una página en la que se vea el fichero
> indicado (doc, pdf, xls) sin que se muestre la ruta física del archivo?
> He probado con el siguiente código pero lo único que consigo es que
aparezca
> la ventana de descarga del fichero:
>
> 'Tras obtener la extensión... (ext)
> Select Case ext
> Case "doc"
> Response.ContentType = "application/vnd.ms-word"
> Case "xls"
> Response.ContentType = "application/vnd.ms-word"
> Case "pdf"
> Response.ContentType = "application/vnd.pdf"
> Case "htm","html", "jpg", "jpeg", "gif", "bmp", "tif", "tiff"
> Response.ContentType = "txt/html"
> End Select
> Response.AddHeader "content-disposition", "attachment;filename=" &

nombre

&
> ";"
>
>

Si lo que quieres es visualizar el contenido del archivo con el visor
predeterminado del equipo cliente debes cambiar la linea a la que hago
referencia en el post anterior de este mismo hilo.
Si por el contrario quieres que se descargue el archivo prueba con este
codigo que se posteo hace unas semanas, debes sustituir NOMBRE%ARCHIVO y
RUTA por la que desees:


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

response.BinaryWrite getBinaryFile(RUTA)

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

Espero que te sirva.

"Miguel González" escribió en el mensaje
news:#

Una pregunta, JLF... (y al resto de foreros)

Te funciona correctamente en Netscape (>6.0) ?

Llevo algunos dias en algo parecido y no encuentro forma de que el

Netscape

rescate adecuadamente el nombre del archivo cuando es un ejecutable o su
"mime type", digamos, no encaja en lo "standáricamente" correcto

(vamos,

que en el cuadro de descarga me pone algo parecido a "programa.exe.asp" o
"pagina.asp")

El código que utilizo es el siguiente:

<%
Response.AddHeader "content-disposition", "attachment; filename=" &
rs.Fields("archivoName").Value & ";"
Response.ContentType = rs.Fields("archivoType").Value
Response.BinaryWrite(rs.Fields("archivoFile").Value)
%>

Saludos!
Miguel


"JLF" escribió en el mensaje
news:
> Me autorespondo ;) debía cambiar la última línea por:
>
> Response.AddHeader "content-disposition", "attachment;filename=" &

nombre

&
> ";"
>
> Gracias
>
>
> "JLF" escribió en el mensaje
> news:u#
> > Hace tiempo lei un post en el que se comentaba como visualizar

ficheros

en
> > el navegador. ¿Cómo puedo cargar una página en la que se vea el

fichero

> > indicado (doc, pdf, xls) sin que se muestre la ruta física del

archivo?

> > He probado con el siguiente código pero lo único que consigo es que
> aparezca
> > la ventana de descarga del fichero:
> >
> > 'Tras obtener la extensión... (ext)
> > Select Case ext
> > Case "doc"
> > Response.ContentType = "application/vnd.ms-word"
> > Case "xls"
> > Response.ContentType = "application/vnd.ms-word"
> > Case "pdf"
> > Response.ContentType = "application/vnd.pdf"
> > Case "htm","html", "jpg", "jpeg", "gif", "bmp", "tif", "tiff"
> > Response.ContentType = "txt/html"
> > End Select
> > Response.AddHeader "content-disposition", "attachment;filename=" &
nombre
> &
> > ";"
> >
> >
>
>

Lo probaré (contentType=application/x-unknown), gracias!!

Saludos!
Miguel


"JLF" escribió en el mensaje
news:

Si lo que quieres es visualizar el contenido del archivo con el visor
predeterminado del equipo cliente debes cambiar la linea a la que hago
referencia en el post anterior de este mismo hilo.
Si por el contrario quieres que se descargue el archivo prueba con este
codigo que se posteo hace unas semanas, debes sustituir NOMBRE%ARCHIVO y
RUTA por la que desees:


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

&

NOMBRE_ARCHIVO & chr(34)

response.BinaryWrite getBinaryFile(RUTA)

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

Espero que te sirva.

"Miguel González" escribió en el mensaje
news:#
> Una pregunta, JLF... (y al resto de foreros)
>
> Te funciona correctamente en Netscape (>6.0) ?
>
> Llevo algunos dias en algo parecido y no encuentro forma de que el
Netscape
> rescate adecuadamente el nombre del archivo cuando es un ejecutable o su
> "mime type", digamos, no encaja en lo "standáricamente" correcto
(vamos,
> que en el cuadro de descarga me pone algo parecido a "programa.exe.asp"

o

> "pagina.asp")
>
> El código que utilizo es el siguiente:
>
> <%
> Response.AddHeader "content-disposition", "attachment; filename=" &
> rs.Fields("archivoName").Value & ";"
> Response.ContentType = rs.Fields("archivoType").Value
> Response.BinaryWrite(rs.Fields("archivoFile").Value)
> %>
>
> Saludos!
> Miguel
>
>
> "JLF" escribió en el mensaje
> news:
> > Me autorespondo ;) debía cambiar la última línea por:
> >
> > Response.AddHeader "content-disposition", "attachment;filename=" &
nombre
> &
> > ";"
> >
> > Gracias
> >
> >
> > "JLF" escribió en el mensaje
> > news:u#
> > > Hace tiempo lei un post en el que se comentaba como visualizar
ficheros
> en
> > > el navegador. ¿Cómo puedo cargar una página en la que se vea el
fichero
> > > indicado (doc, pdf, xls) sin que se muestre la ruta física del
archivo?
> > > He probado con el siguiente código pero lo único que consigo es que
> > aparezca
> > > la ventana de descarga del fichero:
> > >
> > > 'Tras obtener la extensión... (ext)
> > > Select Case ext
> > > Case "doc"
> > > Response.ContentType = "application/vnd.ms-word"
> > > Case "xls"
> > > Response.ContentType = "application/vnd.ms-word"
> > > Case "pdf"
> > > Response.ContentType = "application/vnd.pdf"
> > > Case "htm","html", "jpg", "jpeg", "gif", "bmp", "tif", "tiff"
> > > Response.ContentType = "txt/html"
> > > End Select
> > > Response.AddHeader "content-disposition", "attachment;filename=" &
> nombre
> > &
> > > ";"
> > >
> > >
> >
> >
>