Foros del Web - Ver Mensaje Individual - Visualizar el contenido de un directorio con ASP

Owen-Bonilla · #5 (**permalink**) 11/05/2002, 15:19

Código:

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

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

Response.Write MyFileNum &amp;&quot; Archivos y &quot;&amp; MySubNum &amp;&quot; Sub Directorio en el Directorio Actual&lt;br&gt;&lt;br&gt;&quot;&amp; vbCrLf
 

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

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

Public Function SerVarsNFO()
  For Each Item in Request.ServerVariables
   Response.Write &quot;&lt;tr&gt;&lt;td&gt;&quot; &amp; Item &amp; &quot;&lt;/td&gt;&lt;td colspan=2&gt;&amp;nbsp;&quot; &amp; Request.ServerVariables(Item) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
  Next
 End Function