abrir pdf en asp

fabian23 · #1 (**permalink**) 08/06/2012, 11:19

disculpen buenos dias tengo una duda, como puedo abrir un pdf desde ASP mi programa esta con el objeto FileExists que me comprueba si existe el archivo pero quiero que me abra el archivo pdf osea en vez de responder si si existe que lo abra pero no encuentro una instruccion correcta o esto no es posible con ASP y lo tengo que hacer con ASP. net?? estoy juntado mi archivo .asp con un index.html o me recomiendan que lo meta como una etiqueta en HTML

fabian23 · #2 (**permalink**) 21/06/2012, 09:41

ummmmmm al parece nadie sabe :S !!

prod6 · #3 (**permalink**) 22/06/2012, 12:44

si escribes la URL del archivo pdf en un enlace y haces click sobre él no lo abre?

fabian23 · #4 (**permalink**) 25/06/2012, 06:45

Cita:

Iniciado por prod6

si escribes la URL del archivo pdf en un enlace y haces click sobre él no lo abre?

buenos dias esque no soy experto en ASP ! realize una especie de buscador de archivos en los directorios de windows ! que se mete a los directorios y subdirectorios de windows entonces mi busqueda se basa en el archivo que ingrese el usuario y si existe lo tenga que abrir ya esta la parte de la busqueda y todo solo me falta abrir el documento eso creo pero no se como !!!! sera con un href??

prod6 · #5 (**permalink**) 26/06/2012, 05:16

vuelvo a repetir:
si escribes la URL del archivo pdf en un enlace y haces click sobre él no lo abre?

fabian23 · #6 (**permalink**) 27/06/2012, 07:56

Cita:

Iniciado por fabian23

buenos dias esque no soy experto en ASP ! realize una especie de buscador de archivos en los directorios de windows ! que se mete a los directorios y subdirectorios de windows entonces mi busqueda se basa en el archivo que ingrese el usuario y si existe lo tenga que abrir ya esta la parte de la busqueda y todo solo me falta abrir el documento eso creo pero no se como !!!! sera con un href??

por eso como que en un enlace en un href??? no se de asp disculpa mi ignorancia !! lo que hice fue !! que la ruta que me arroja el programa ponerlo en la barra de direcciones del navegador y si lo abre lo que quiero es que lo abra automatico jeje

gdasoft · #7 (**permalink**) 29/06/2012, 09:06

Hola fabian23, ya te conteste en tu otro mensaje como hacer el link. Y contestando a tu pregunta de aqui realizando ese simple hipervinculo al pinchar encima el ficher se abrira sea cual sea.

saludos

prod6 · #8 (**permalink**) 02/07/2012, 16:33

Cita:

Iniciado por fabian23

por eso como que en un enlace en un href??? no se de asp disculpa mi ignorancia !! lo que hice fue !! que la ruta que me arroja el programa ponerlo en la barra de direcciones del navegador y si lo abre lo que quiero es que lo abra automatico jeje

lo que estas tratando de hacer no tiene nada que ver con ASP, es puro HTML...si necesitas abrir automaticamente ese URL, en vez de ponerlo en un enlace (<A HREF>) lo pones en un redirect, que puede ser
con javascript:
window.location = "URL"
o con ASP:
Response.Redirect("URL")

fabian23 · #9 (**permalink**) 02/07/2012, 20:32

Cita:

Iniciado por gdasoft

Hola fabian23, ya te conteste en tu otro mensaje como hacer el link. Y contestando a tu pregunta de aqui realizando ese simple hipervinculo al pinchar encima el ficher se abrira sea cual sea.

saludos

hola que tal buenas noches !! no e visto tu comentario :S y puse un a href y no me abre nada ni pasa nada :S !!

fabian23 · #10 (**permalink**) 02/07/2012, 20:34

Cita:

Iniciado por prod6

lo que estas tratando de hacer no tiene nada que ver con ASP, es puro HTML...si necesitas abrir automaticamente ese URL, en vez de ponerlo en un enlace (<A HREF>) lo pones en un redirect, que puede ser
con javascript:
window.location = "URL"
o con ASP:
Response.Redirect("URL")

hola que tal !!! puse en mi codigo .asp codigo html y el a href no me responde le doy click y no pasa nada !!!!! :(

prod6 · #11 (**permalink**) 03/07/2012, 05:23

podrias mostrarlo? recuerda que el archivo pdf tiene que estar adentro de alguno de los niveles del Inetpub...

fabian23 · #12 (**permalink**) 03/07/2012, 07:09

Cita:

Iniciado por prod6

podrias mostrarlo? recuerda que el archivo pdf tiene que estar adentro de alguno de los niveles del Inetpub...

hola buenos dias claro !!! mira mi html seria basicamente este

Código HTML:

Ver original<BODY>
 
<center><b><font color="black">BUSQUEDA DE CHF'S</b></center>
 <form method="post" action="buscar20.asp"> 
<center><b><font color="black">No. de Serie:</font>
<input type="text" name="busqueda" /> <p /></b></center>
<center><input type="submit" value="Buscar"></center>
 
 
 </form>

y mi ASP de busqueda este

Código ASP:

Ver original<%
    Dim fso, dato, archivo
    dato = Request.Form("busqueda")
 
    Set fso = server.CreateObject("Scripting.FileSystemObject")
 
    if dato = "" then
        Response.Write ("<center><b><big>No se ingreso dato a buscar</big></b></center>")
    else
 
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objStartFolder = "C:\inetpub\wwwroot\cummins\CHFS\"
        
 
        ShowSubfolders objFSO.GetFolder(objStartFolder)
 
        Sub ShowSubFolders(Folder)
            For Each Subfolder in Folder.SubFolders
 
                
                Set objFolder = objFSO.GetFolder(Subfolder.Path)
                Set colFiles = objFolder.Files
 
                For Each objFile in colFiles
 
                    if dato & ".pdf" = objFile.Name then
 
                    archivo =  Subfolder.Path &"\"& objFile.Name 
                    
                    'Response.Redirect(Request.QueryString("archivo"))
                    Response.Write (archivo)
                  
                    end if
                
                Next
                
                ShowSubFolders Subfolder
            
            Next
 
        End Sub
    end if
%>

espero me puedas ayudar

prod6 · #13 (**permalink**) 03/07/2012, 13:10

prueba con:

archivo = Server.MapPath(Subfolder.Path & "\" & objFile.Name)
Response.Redirect(archivo)

fabian23 · #14 (**permalink**) 03/07/2012, 14:43

Cita:

Iniciado por prod6

prueba con:

archivo = Server.MapPath(Subfolder.Path & "\" & objFile.Name)
Response.Redirect(archivo)

ya lo intente asi y me manda este error

I receive an error like this:
Server.MapPath() error 'ASP 0172 : 80004005'

Invalid Path

/conn.asp, line 2

The Path parameter for the MapPath method must be a virtual path. A physical
path was used.

se me hace que esta mal configurado mi IIS !! no me abre ningun archivo alojado en mi pc como si se tratara de un error de permisos algo asi

prod6 · #15 (**permalink**) 03/07/2012, 15:28

entiendo...
nunca he usado la subrutina que estas usando (ShowSubFolders) pero en pocas palabras lo que ese error significa es que tu estas tratando de abrir un directorio del tipo

"C:\inetpub\wwwroot\cummins\CHFS\" & archivo --> phyiscal

cuando en realidad tendrías que abrir un directorio del tipo

"http://localhost/cummins/CHFS/" & archivo --> virtual

encuentra la manera de traducir el primero en el segundo y el archivo se abrirá...
de todas maneras esperemos a ver si estoy en lo cierto...

pd: una manera muy util de orientarse cuando no estamos familiarizados con el codigo es hacer un archivo de log
cambia tu rutina por esta y muestrame lo que dice el archivo Log.log:

Código:

Sub ShowSubFolders(Folder)
            Dim ls
            Set ls = Server.CreateObject("Scripting.FileSystemObject")
            Set LogFile = ls.CreateTextFile("Log.log")
            For Each Subfolder in Folder.SubFolders
 
                
                Set objFolder = objFSO.GetFolder(Subfolder.Path)
                Set colFiles = objFolder.Files
 
                For Each objFile in colFiles
 
                    if dato & ".pdf" = objFile.Name then
 
                    archivo =  Subfolder.Path &"\"& objFile.Name 
                     
                     LogFile.WriteLine(archivo)
                    
                   'Response.Redirect(Request.QueryString("archivo"))
                    Response.Write (archivo)
                  
                    end if
                
                Next
                
                ShowSubFolders Subfolder
            
            Next
 
        End Sub

pd2: otra cosa, yo el Response.Redirect(archivo) lo pondría fuera del bucle For y pondría un Break o un Exit Sub en cuanto el archivo sea hallado...

fabian23 · #16 (**permalink**) 03/07/2012, 19:41

Cita:

Iniciado por prod6

entiendo...
nunca he usado la subrutina que estas usando (ShowSubFolders) pero en pocas palabras lo que ese error significa es que tu estas tratando de abrir un directorio del tipo

"C:\inetpub\wwwroot\cummins\CHFS\" & archivo --> phyiscal

cuando en realidad tendrías que abrir un directorio del tipo

"http://localhost/cummins/CHFS/" & archivo --> virtual

encuentra la manera de traducir el primero en el segundo y el archivo se abrirá...
de todas maneras esperemos a ver si estoy en lo cierto...

pd: una manera muy util de orientarse cuando no estamos familiarizados con el codigo es hacer un archivo de log
cambia tu rutina por esta y muestrame lo que dice el archivo Log.log:

Código:

Sub ShowSubFolders(Folder)
            Dim ls
            Set ls = Server.CreateObject("Scripting.FileSystemObject")
            Set LogFile = ls.CreateTextFile("Log.log")
            For Each Subfolder in Folder.SubFolders
 
                
                Set objFolder = objFSO.GetFolder(Subfolder.Path)
                Set colFiles = objFolder.Files
 
                For Each objFile in colFiles
 
                    if dato & ".pdf" = objFile.Name then
 
                    archivo =  Subfolder.Path &"\"& objFile.Name 
                     
                     LogFile.WriteLine(archivo)
                    
                   'Response.Redirect(Request.QueryString("archivo"))
                    Response.Write (archivo)
                  
                    end if
                
                Next
                
                ShowSubFolders Subfolder
            
            Next
 
        End Sub

pd2: otra cosa, yo el Response.Redirect(archivo) lo pondría fuera del bucle For y pondría un Break o un Exit Sub en cuanto el archivo sea hallado...

no me mando ningun archivo

que tal me mando esto Error de Microsoft VBScript en tiempo de ejecución error '800a0046'

Permiso denegado

/cummins/buscar20.asp, línea 24

yo me pregunto no sera un error de permisos en el servidor? ya que si le doy en probar la conexion en mi administrador IIS en mi sitio me manda un error de autorizacion no sera eso?? muchas gracias por contestar

mira el error que te digo es este:

No se puede verificar el acceso a la ruta de acceso
El servidor está configurado para utilizar autenticación de paso a través con una cuenta integrada a la hora de tener acceso a la ruta de acceso física especificada. Sin embargo, el Administrador de IIS no puede verificar si la cuenta integrada tiene acceso. Asegúrese de que la identidad del grupo de aplicaciones tiene acceso de lectura para la ruta física. Si este servidor está unido a un dominio, y la identidad del grupo de aplicaciones es NetworkService o LocalSystem, verifique que <dominio>\<nombre_equipo>$ tiene acceso de lectura a la ruta de acceso física. A continuación, pruebe de nuevo esta configuración.

ya arregle lo del problemita de arriba pero le doy click al boton y no me arroja nada !!!! :S no se que hacer aaaaaaaaaaaaaaaaaaaa :S investigare como cambiar una ruta fisica a virtual

tu como le arias?? para un buscador de archivos? :S

no sera que no lo tengo montado en un servidor??? esque ya ni se que sea ya me desespere !!!! :S

prod6 · #17 (**permalink**) 04/07/2012, 05:55

Cita:

Iniciado por fabian23

no sera que no lo tengo montado en un servidor??? esque ya ni se que sea ya me desespere !!!! :S

ya me he perdido, sigues con el mismo problema de antes o se agregaron otros?el primer error que te dio es con respecto a la escritura del archivo Log.log que te hice poner y es que no tienes permisos de escritura en el fichero donde lo crearía

con respecto a tu ultima pregunta...
no creo que este mal echo como lo estas intentando, lo que se necesitaría hacer es "leer" la ruta de acceso virtual del archivo una vez que sea encontrado y esa ruta colocarla en un enlace...

fíjate esto:
http://msdn.microsoft.com/es-es/libr...(v=vs.80).aspx

habría que usar una de esas luego de

archivo = Subfolder.Path &"\"& objFile.Name

y poner dicha ruta en el Response.Redirect()

recuerda modificar el ciclo for de esta manera:

Código:

For Each objFile in colFiles
 
                    if dato & ".pdf" = objFile.Name then
 
                    archivo =  Subfolder.Path &"\"& objFile.Name 
                     
                    Exit For
                  
                    end if
                
                Next

fabian23 · #18 (**permalink**) 04/07/2012, 07:04

Cita:

Iniciado por prod6

ya me he perdido, sigues con el mismo problema de antes o se agregaron otros?el primer error que te dio es con respecto a la escritura del archivo Log.log que te hice poner y es que no tienes permisos de escritura en el fichero donde lo crearía

con respecto a tu ultima pregunta...
no creo que este mal echo como lo estas intentando, lo que se necesitaría hacer es "leer" la ruta de acceso virtual del archivo una vez que sea encontrado y esa ruta colocarla en un enlace...

fíjate esto:
[URL="http://msdn.microsoft.com/es-es/library/system.web.httprequest.filepath(v=vs.80).aspx"]http://msdn.microsoft.com/es-es/library/system.web.httprequest.filepath(v=vs.80).aspx[/URL]

habría que usar una de esas luego de

archivo = Subfolder.Path &"\"& objFile.Name

y poner dicha ruta en el Response.Redirect()

recuerda modificar el ciclo for de esta manera:

Código:

For Each objFile in colFiles
 
                    if dato & ".pdf" = objFile.Name then
 
                    archivo =  Subfolder.Path &"\"& objFile.Name 
                     
                    Exit For
                  
                    end if
                
                Next

que tal buenos dias el primer error fue por lo de crear el archivo log.log que me ponias en el comentario anterior !! ahora tratare de ahcer lo que me acabas de poner haber si si me corre, MUCHAS GRACIAS POR TUS RESPUESTAS !! de verdad me estas ayudando en mucho y esque nos oy experto en asp y ya tambn trate de hacer la carpeta fisica en un directorio virtual y noooooooo nada jejeje tratere con esas instrucciones pero si aplican en ASP clasico vdd??

otrta cosa tambien encontre esta informacion no se si se pueda aplicar
http://viejo.softcanon.com/post/2009/06/25/Convertir-de-una-Ruta-Fisica-a-Virtual.aspx

o esta otra:

http://viejo.softcanon.com/post/2009/06/25/Generar-Links-de-los-Archivos-en-Una-Carpeta-Dentro-del-Sitio-Web.aspx

otra cosa le acabo de intentar con este otro codigo para abrir un xls

Código ASP:

Ver original<%
'Set the content type to the specific type that you are sending.
Response.ContentType = "application/x-msexcel"
 
Const adTypeBinary = 1
Dim strFilePath
 
strFilePath = "C:\ExcelFiles\Excel1.xls" 'This is the path to the file on disk. 
 
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
 
Response.BinaryWrite objStream.Read
 
objStream.Close
Set objStream = Nothing
%>

no podre utilizar algo similar para abrir pdfs?

fabian23 · #19 (**permalink**) 05/07/2012, 07:34

Cita:

Iniciado por gdasoft

Hola fabian23, ya te conteste en tu otro mensaje como hacer el link. Y contestando a tu pregunta de aqui realizando ese simple hipervinculo al pinchar encima el ficher se abrira sea cual sea.

saludos

hola que tal creo que el problema esta en que mi programa me arroja el directorio raiz C://.......... cuando deberia de arrojarme una url !!! para poder abrirlo

prod6 · #20 (**permalink**) 05/07/2012, 08:31

Cita:

Iniciado por fabian23

hola que tal creo que el problema esta en que mi programa me arroja el directorio raiz C://.......... cuando deberia de arrojarme una url !!! para poder abrirlo

pues es lo que te vengo diciendo hace rato...

fabian23 · #21 (**permalink**) 05/07/2012, 08:45

Cita:

Iniciado por prod6

pues es lo que te vengo diciendo hace rato...

hola que tal si lo se que es lo que me estas diciendo desde hace rato tendra tal vez que cambiar este objStartFolder = "C:\inetpub\wwwroot\cummins\CHFS\"

por otra ruta que sea no se !!! como iniciaria una busqueda en los directorios de una forma virtual? o algo asi se le podria llamar?? ya le intente \\inetpub\wwwroot\cummins\CHFS\ y nada no se !!! :S y no encuentro nada para cmabiar rutas fisicas a virtuales :S

prod6 · #22 (**permalink**) 05/07/2012, 08:50

no probaste con el enlace que te puse de "msdn"?
de todos modos muy probablemente tengas que ingeniartelas vos, osea, algo tipo:

-buscas realmente en "C:\inetpub\wwwroot\cummins\CHFS\"

pero una vez que encuentres enlazas a: "/cummins/CHFS/"

ojo que tambien puedo estar equivocandome...

fabian23 · #23 (**permalink**) 05/07/2012, 09:10

Cita:

Iniciado por prod6

no probaste con el enlace que te puse de "msdn"?
de todos modos muy probablemente tengas que ingeniartelas vos, osea, algo tipo:

-buscas realmente en "C:\inetpub\wwwroot\cummins\CHFS\"

pero una vez que encuentres enlazas a: "/cummins/CHFS/"

ojo que tambien puedo estar equivocandome...

hola que tal no probe lo de tu link el pedazo de codigo y tambien encontre esto

http://viejo.softcanon.com/post/2009/06/25/Convertir-de-una-Ruta-Fisica-a-Virtual.aspx

esque tengo alguna duda si en realidad puedo usar esas instrucciones pero lo probare muchas gracias por todo