Visualizar el contenido de un directorio con ASP

[maestro]

Pues eso, me gustaria poder Visualizar el contenido de un directorio.

Este directorio tiene permisos de escritura y es el que utilizo para que otros usuarios envien ficheros usando el componente ASPsmartUpload.

Lo que quiero no es solo que se vean los fichero que se han enviado, sino que tambien esten "vinculados", es decir que si hago un click en uno de ellos comienze una descarga o apertura.

Gracias.

[urjose]

Bueno no cuento con el código pero tienes que investigar acerca del FileSystem Object. Con eso lograrás hacer lo que quieres.


Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

[Owen-Bonilla]

Ya habia dejado un código aqui con anterioridad, aqui lo vuelvo a poner para que no tardes en buscarlo... lo dejo en partes, solo juntalo en una sola página y ponle el nombre que gustes

Saludos

Código:

  

<title>
Información de [ <%=Request.ServerVariables("SERVER_NAME")%>]
</title>

[Owen-Bonilla]

Código:

  <%
If Request.ServerVariables("HTTPS") = "off" then ' off for example only
 Dim MyFSO, MyFiles, MySelf, MySelfTemp
 Dim MyPhysPath, MyRootPath, MyURLPath
 MySelf = Request.ServerVariables("SCRIPT_NAME")
 MyRootPath = Server.MapPath(MySelf)
 MySelfTemp = Replace(MySelf, "/", "\")
 MyRootPath = Replace(MyRootPath, MySelfTemp, "\")
 Set MyFSO = CreateObject("Scripting.FileSystemObject")
 
 MyPhysPath = Request("MyPhysPath")
 If MyPhysPath = "" then
  MyPhysPath = MyRootPath
 Else
  MyPhysPath = MyPhysPath &"\"
 End if

[Owen-Bonilla]

Código:

  Set MyFiles = MyFSO.GetFolder(MyPhysPath)
 MyDirName = MyFiles.Name
 MyURLPath = Replace(MyPhysPath, MyRootPath, "/")
 MyURLPath = Replace(MyURLPath, "\", "/")
 
 Response.Write "<style type=text/css>"& vbCrLf
 Response.Write "td { font-size:11px; font-family: verdana, arial; font-weight: normal; color: #666666; background-color: #ffffff; }"& vbCrLf
 Response.Write "a { font-size:11px; font-family: verdana, arial; font-weight: bold; color: #003366; }"& vbCrLf
 Response.Write "</style>"

Response.Write "<table border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc>"& vbCrLf
 Response.Write "<tr><td colspan=3><b>Sitio:</b> "& Request.ServerVariables("SERVER_NAME") &"</td></tr>"& vbCrLf
 Response.Write "<tr><td colspan=3><b>Directorio Virtual:</b> "& MyURLPath &"</td></tr>"& vbCrLf
 Response.Write "<tr><td colspan=3><b>Directorio Fisico:</b> "& MyPhysPath &"</td></tr>"& vbCrLf
 
 Response.Write "<tr><td colspan=3>"& vbCrLf

Response.Write MyFileNum &" Archivos y "& MySubNum &" Sub Directorio en el Directorio Actual<br><br>"& vbCrLf
 

 Response.Write "<a href='"& MySelf &"'>Directorio del Servidor Remoto</a><br><p>"& vbCrLf
 Response.Write "<a href=javascript:history.go(-1);>Atras</a><br>"& vbCrLf
 Response.Write "</td></tr>"& vbCrLf

Response.Write "<tr><td colspan=3><a href='"& MySelf &"?Display=SerVars'>Información del Servidor...</a></td></tr>"& vbCrLf
 
 Display = Request("Display")
 Select Case Display
  Case "SerVars": SerVarsNFO()
  Case Else: 
   DisplayFolders()
   DisplayFiles()
 End Select

Public Function SerVarsNFO()
  For Each Item in Request.ServerVariables
   Response.Write "<tr><td>" & Item & "</td><td colspan=2> " & Request.ServerVariables(Item) & "</td></tr>"& vbCrLf
  Next
 End Function

[Owen-Bonilla]

Código:

  

Public Function DisplayFolders()
  Response.Write  "<tr><td colspan=2 style='background-color:#cfcfcf;'>Nombre del Sub Directorio</td><td style='background-color:#cfcfcf;'>Sub Dir Size (Bytes)</td></tr>"& vbCrLf
  MySubNum = 0
  For Each Folder in MyFiles.SubFolders
   Dim MyCurrentSub, MySubSize, MySubName
   Set MyCurrentSub = MyFSO.GetFolder(Folder)
   MySubNum = MySubNum+1
   MySubSize = MyCurrentSub.Size
   MySubName = MyCurrentSub.Name
   MyDirURL = MySelf &"?MyPhysPath="& MyPhysPath & MySubName
   Response.Write "<tr><td colspan=2><img src=folder.gif border=0 align=absolutemiddle> <a href='"& MyDirURL &"'>"& MySubName &"</a></td><td>"& MySubSize &"</td></tr>"& vbCrLf
   Set MyCurrentSub = Nothing
  Next
 End Function
 
 Public Function DisplayFiles()
  Response.Write  "<tr><td style='background-color:#cfcfcf;'>Nombre Archivo</td><td style='background-color:#cfcfcf;'>Tipo de Archivo</td><td style='background-color:#cfcfcf;'>Tamaño del Archivo (Bytes)</td></tr>"& vbCrLf
  MyFileNum=0
  For Each File in MyFiles.Files
   Dim MyCurrentName, MyFileNum, MyFileSize, MyFileName
   Set MyCurrentName = MyFSO.GetFile(File)
   MyFileNum = MyFileNum+1
   MyFileSize = MyCurrentName.Size
   MyFileName = MyCurrentName.Name
   MyFileType = MyCurrentName.Type
   MyFileURL = Replace(MyPhysPath, MyRootPath, "/")
   MyFileURL = Replace(MyFileURL, "\", "/")
   MyFileURL = MyFileURL & MyFileName

[Owen-Bonilla]

Código:

    ' MyFileURL = Server.URLEncode(MyFileURL) messes up the code, i already tried =(
   Response.Write "<tr><td><img src=file.gif border=0 align=absolutemiddle> <a href='"& MyFileURL &"'>"& MyFileName &"</a></td><td>"& MyFileType &"</td><td>"& MyFileSize &"</td></tr>"& vbCrLf
   Set MyCurrentName = Nothing
  Next
 End Function
 
 Response.Write "<tr><td colspan=3><b>My IIS Admin Explorer.v1.0 Owen Bonilla</b></td></tr>"& vbCrLf
 Response.Write "</table>"& vbCrLf
 Set MyFSO = Nothing
Else
 Response.Write "Esta es una página segura!<br>Por Favor Use https:// Protocolo!"
End If
%>

Aqui ´termina el código... espero y te funcione....

Saludos



Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

[maestro]

Muchas Gracias OWEN, el codigo me ha venido de perlas para lo que necesitaba, es mas, me ha facilitado tambien mucha informacion para comprender algunos objetos que no conocia, puedes ver un ejemplo de lo que he hecho con <a href='ir.asp?http://www.expansionweb.net/upload/' target='_blank'>http://www.expansionweb.net/upload/...</a>

Estoy afinandolo para adaptarlo a lo que yo queria pero ya te digo que me ha venido perfecto.
Gracias por la prontitud de la respuesta.

Jose MariaFernandez
[email protected]
Http://www.expansionweb.net

[maestro]

Jejejee, pero ahora tengo otro problema, es este:

Cuando me muestra los directorios y archivos lo hace del web raiz, yo queria que unicamente me los mostrara del directorio upload, que estaria situado asi http://www.expansionweb.net/upload

o bien siguiendo la ruta fisica del servidor asi: e:\dom\fgj101\wwwserver\expansionweb.net\upload\

Pues he tocado algunas variables como MyRootPath = Server.MapPath(MySelf) cambiandolo por
MyRootPath = e:\dom\fgj101\wwwserver\expansionweb.net\upload\
Con eso me muestra el directorio que yo quiero pero se confunde al crear los hypervinculos que en vez de quedar como deberia ser, es decir asi:
http://www.expansionweb.net/upload/Backgrnd.gif
Me los simplifica de esta forma:
http://www.expansionweb.net/Backgrnd.gif

Es decir que se merienda de la ruta el directorio UPLOAD.

Voy a seguir investigando y probablemente encuentre la cadena de la variable a modificar para cambiarle el PATH, pero si aun asi te ha ocurrido y sabes como se puede solucionar lo agradeceria.

Saludos.

NOTA: El script esta retirado puesto que al no poder controlar el listado de directorios compromete la seguridad del web. Gracias de todas formas OWEN

Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net

[Owen-Bonilla]

Que bueno que te sirvio el código Amigo.

la verdad nuca habia pensado en cambiarle el la ruta al código pero es buena idea , memeteria unpoco en eso, pero l averdad ando en otras cosas de la escuela y eltrabajo ( sistemas ).

Si logras encontrar lamanera de que se solucione eso de los vinculos seria excelente, nos avisas y dices como lo hiciste .

Saludos.. y aquí andamos !!! :)

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]