Ver Mensaje Individual
  #12 (permalink)  
Antiguo 03/07/2012, 07:09
fabian23
 
Fecha de Ingreso: abril-2012
Mensajes: 93
Antigüedad: 12 años
Puntos: 0
Respuesta: abrir pdf en asp

Cita:
Iniciado por prod6 Ver Mensaje
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
  1.  
  2. <center><b><font color="black">BUSQUEDA DE CHF'S</b></center>
  3.  <form method="post" action="buscar20.asp">
  4. <center><b><font color="black">No. de Serie:</font>
  5. <input type="text" name="busqueda" /> <p /></b></center>
  6. <center><input type="submit" value="Buscar"></center>
  7.  
  8.  
  9.  </form>

y mi ASP de busqueda este

Código ASP:
Ver original
  1. <%
  2.     Dim fso, dato, archivo
  3.     dato = Request.Form("busqueda")
  4.  
  5.     Set fso = server.CreateObject("Scripting.FileSystemObject")
  6.  
  7.     if dato = "" then
  8.         Response.Write ("<center><b><big>No se ingreso dato a buscar</big></b></center>")
  9.     else
  10.  
  11.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  12.         objStartFolder = "C:\inetpub\wwwroot\cummins\CHFS\"
  13.        
  14.  
  15.         ShowSubfolders objFSO.GetFolder(objStartFolder)
  16.  
  17.         Sub ShowSubFolders(Folder)
  18.             For Each Subfolder in Folder.SubFolders
  19.  
  20.                
  21.                 Set objFolder = objFSO.GetFolder(Subfolder.Path)
  22.                 Set colFiles = objFolder.Files
  23.  
  24.                 For Each objFile in colFiles
  25.  
  26.                     if dato & ".pdf" = objFile.Name then
  27.  
  28.                     archivo =  Subfolder.Path &"\"& objFile.Name
  29.                    
  30.                     'Response.Redirect(Request.QueryString("archivo"))
  31.                     Response.Write (archivo)
  32.                  
  33.                     end if
  34.                
  35.                 Next
  36.                
  37.                 ShowSubFolders Subfolder
  38.            
  39.             Next
  40.  
  41.         End Sub
  42.     end if
  43. %>

espero me puedas ayudar