Foros del Web » Programando para Internet » ASP Clásico »

Alguien me puede pasar esto de ASP a PHP?

Estas en el tema de Alguien me puede pasar esto de ASP a PHP? en el foro de ASP Clásico en Foros del Web. Conozco poco ASP, a ver si alguien que lo controla me puede ayudar: Código PHP: <% ' intentamos evitar la caché del navegador -------------- Response.Expires=0 Response.CacheControl="private" ' ---------------------------------------------------------------- Response.ContentType="text/XML" 'Creamos el objeto FileSystemObject Set fso = Server.CreateObject("Scripting.FileSystemObject") ' elegimos la carpeta files desde la raiz del servidor web ' sustituir "/files/" por la que os interese ...
  #1 (permalink)  
Antiguo 08/07/2008, 15:49
 
Fecha de Ingreso: mayo-2005
Ubicación: Muy lejos de aquí
Mensajes: 367
Antigüedad: 19 años, 1 mes
Puntos: 0
Alguien me puede pasar esto de ASP a PHP?

Conozco poco ASP, a ver si alguien que lo controla me puede ayudar:

Código PHP:
<%
' intentamos evitar la caché del navegador --------------
Response.Expires=0
Response.CacheControl="private"
' ----------------------------------------------------------------
Response.ContentType="text/XML"
'Creamos el objeto FileSystemObject
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' elegimos la carpeta files desde la raiz del servidor web
' sustituir "/files/" por la que os interese
Set folder = fso.GetFolder(Server.MapPath(("/minis/")))
Set files = folder.Files '
' construimos el XML ----------------------------------------
Response.Write("<?xml version='1.0' ?><exploracion carpeta='"+folder.Name+"'>")
For Each file in files
fil=file.Name
Response.write("<archivo nombre='")
Response.write(file.Name)
Response.write("' size='")
Response.write(file.size\1024)
Response.Write("' />")
Next
Response.Write("</exploracion>")
' ----------------------------------------------------------------
Set files = nothing
Set folder = nothing
Set fso = nothing
%>
__________________
Saludos!
  #2 (permalink)  
Antiguo 08/07/2008, 16:26
Avatar de tulises16  
Fecha de Ingreso: diciembre-2003
Ubicación: La Plata, Argentina
Mensajes: 92
Antigüedad: 20 años, 6 meses
Puntos: 1
Respuesta: Alguien me puede pasar esto de ASP a PHP?

seria algo como esto, aunque faltaria pulirlo sobre todo los tamaños segun mb, gb, kb etc.

Código PHP:
<?
header
('Cache-Control: private');
$dir="C:\Inetpub\wwwroot";
$folder opendir($dir);
//construimos el XML ----------------------------------------
echo "<?xml version='1.0' ?>\n";
echo 
"<exploracion carpeta='".$dir."'>\n";
while (
$archivo readdir($folder))
{
    if(
$archivo !== '.' && $archivo !== '..')
    {
        echo 
"    <archivo nombre='";
        echo 
$archivo;
        echo 
"' size='";
        echo 
number_format(filesize($dir.'/'.$archivo)/1024,2,'.',',')." MB";
        echo 
"' />\n";
    }
}
echo 
"</exploracion>\n";
?>
__________________
Ulises
  #3 (permalink)  
Antiguo 09/07/2008, 02:25
 
Fecha de Ingreso: mayo-2005
Ubicación: Muy lejos de aquí
Mensajes: 367
Antigüedad: 19 años, 1 mes
Puntos: 0
Respuesta: Alguien me puede pasar esto de ASP a PHP?

Gracias crack. Lo probaré más tarde.
__________________
Saludos!
  #4 (permalink)  
Antiguo 09/07/2008, 10:26
Avatar de GatorV
$this->role('moderador');
 
Fecha de Ingreso: mayo-2006
Ubicación: /home/ams/
Mensajes: 38.567
Antigüedad: 18 años
Puntos: 2135
Respuesta: Alguien me puede pasar esto de ASP a PHP?

Tema trasladado a ASP.
  #5 (permalink)  
Antiguo 11/07/2008, 04:09
 
Fecha de Ingreso: mayo-2005
Ubicación: Muy lejos de aquí
Mensajes: 367
Antigüedad: 19 años, 1 mes
Puntos: 0
Respuesta: Alguien me puede pasar esto de ASP a PHP?

Muchas Gracias!
__________________
Saludos!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:40.