//MENU texto
$principal=opendir("galeria");
while($direcs=readdir($principal)){
if(($direcs!=".")AND($direcs!="..")AND(is_dir("galeria/".$direcs))){
echo " ".$direcs." ";
}
}
//Menu videos
echo "";
echo " ";
echo " VIDEOS";
echo "";
echo " Carga de centro de mecanizado sobre transporte especial mediante
pórtico hidráulico LS-500 ";
echo " Introducción De rodillo Yankee en línea de producción de
papel ";
echo " Montaje de línea de 6 prensas Hidráulicas. Con una cabecera de
2000 ton, una de 1600 ton y 4 de 1000 ton ";
echo " Simulación real de proyectos ";
echo " Simulación desmontaje prensa FAGOR-SEAT ";
echo " Simulación mov cabezal(camión) desmontaje prensa WEINGARTEN-OPEL ";
echo " Simulación traslación-calzar desmontaje prensa WEINGARTEN-OPEL ";
echo " Desmontaje Inyectora Krauss Maffei 3200 tn ";
echo " | ";
//abrir directorios//
closedir($principal);
$dir=$_GET["dir"];
if(!$dir){
$dir="Montaje_Pesado_Prensa_800t";
}
$directorio=opendir("galeria/".$dir);
$imagen=$_GET["imagen"];
if(!$imagen){
$imagen="g1.jpg";
}
echo "";
echo "";
$aux=1;
while($fichero=readdir($directorio)){
//menú fotos pequeñas//
if((is_file("galeria/".$dir."/".$fichero))AND(substr($fichero,-2,2)!="db")){
if($aux==1){
echo "";
}
//no mostrar fotos grandes en el menú//
if((is_file("galeria/".$dir."/".$fichero))AND(substr($fichero,0,1)!="g")){
echo "";
echo "";
//fotitos//
echo " | ";
if($aux==5){
echo " ";
$aux=0;
}
$aux++;
}
}
}
if($aux!=1){
echo "";
}
echo " ";
echo " ";
echo "";
//reemplazar letra del nombre del fichero por la primera letra del lnombre de las fotos grandes//
$imagen=EREGI_REPLACE("m","g",$imagen);
//mostrar imágenes grandes//
echo " | ";
closedir($directorio);
?> |