Ver Mensaje Individual
  #3 (permalink)  
Antiguo 15/05/2003, 11:44
Avatar de camargo
camargo
 
Fecha de Ingreso: abril-2002
Ubicación: Kerétaro, Méjiko
Mensajes: 1.045
Antigüedad: 22 años
Puntos: 2
Encontre esto por ahi.. perdido..xD

Código PHP:
<?

//DIRECTORIO DONDE OBTENDRA LAS IMAGENES
$your_dirname="modelos/rotador/";//obligatorio el / al ultimo

$your_alt_tag="ENTRA AQUI!!";// alt tag de las imagenes

function displayAaPHPrandomImage($dirname$alt){
  
$dirhandle opendir($dirname);
  while (
false !== ($file readdir($dirhandle))) {
    if (
$file != "." && $file != ".." && !@is_dir($file) ) {
      
$filelist[] = $file;
    }
  }
  
closedir($dirhandle); 
  
  if(
sizeof($filelist) ==0) { 
    echo 
"No file was found in the directory!";
    exit;
  }
  
  
srand((double)microtime()*1000000);
  
$picnum = @rand(0sizeof($filelist) - 1);
  
$imageName=$dirname.$filelist[$picnum];
  
$imageSize getimagesize($imageName);
  
 if(
$imageSize[2]==|| eregi(".swf$"$imageName) ) {
 
$result="\n<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0\" ".$imageSize[3].">";
 
$result .="\n<param name=\"movie\" value=\"".$imageName ."\">";
 
$result .="\n<param name=\"quality\" value=\"high\">";
 
$result .="\n<embed src=\"".$imageName ."\" quality=\"high\" pluginspage=\"http://www.macromedia.com/go/getflashplayer\" type=\"application/x-shockwave-flash\" ".$imageSize[3]. "></embed></object>";
    } else  
$result="\n<a href=modelos><img src=\"".$imageName ."\" "$imageSize[3] ."alt=\""$alt"\" border=0></a>";
  
  return 
$result;
  
  }
?>
<?=displayAaPHPrandomImage
($your_dirname$your_alt_tag)?>

Suerte
__________________
http://www.chorcha.com