pedroreina.net

Función EmiteFondos()
<?php

function EmiteFondos()
  {
  
// Montamos una relación con los nombres de los fondos
  // que hay en el directorio
  
$Orden "ls -1 *.jpg";
  
$Listado = `$Orden`;
  
$Listado str_replace (".jpg"""$Listado);
  
$Relacion explode ("\n"$Listado);
  
$Total count ($Relacion);

  for ( 
$i=$i<$Total $i++ )
    {
    
// Nombre del archivo
    
$NombreArchivo $Relacion[$i-1];

    
// Dimensiones de la imagen
    
$TamanoImagen GetImageSize ("$NombreArchivo.jpeg");

    
// Las dimensiones las lee PHP
    
$DimensionesImagen $TamanoImagen[3];

    
$CodigoHTML=<<<HTML

    <A HREF="$NombreArchivo.jpg">
    <IMG SRC="$NombreArchivo.jpeg" $DimensionesImagen CLASS="seguido"
         ALT="$NombreArchivo" TITLE="$i: $NombreArchivo">
    </A>

HTML;
      print 
$CodigoHTML;
    }
  }

php?>
Posibilidades para seguir