read()): if (Is_Dir($polozka) and $polozka !="." and $polozka !=".."): $pp[] = $polozka ; endif; endwhile; $adresar->close(); $ppv = array_values(array_diff ($pp, $oa)); ?>
adresáře:
"; for ($i = 0; $i < Count ($ppv); $i++): echo " • $ppv[$i]
"; endfor; echo "

další možnosti:
gallery slider
gallery browser
komentáře (10 nej)
upload
admin"; ?>
read()): //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $date = ("./$cesta/" .$polozka); ////////////////////////////////////////// zde smažte slůvko filemtime pokud vám řazení podle data dělá problémy!!! //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $pp[$date] = $polozka; endwhile; $adresar->close(); ksort($pp); $polepolozek = array_values($pp); for ($i = 0; $i < Count ($polepolozek); $i++): $cast = explode(".", $polepolozek[$i]); for ($j = 0; $j < Count ($cast); $j++): if (($cast[$j]=="jpg" or $cast[$j]=="JPG") && $cast[$j+1]!="thumb" && $cast[$j+2]!="jpeg"): $polejpegu[] = $polepolozek[$i]; endif; endfor; endfor; for ($i = 0; $i < Count ($polejpegu); $i++): $puvodniobrazek=$polejpegu[$i]; if (!file_exists("./$cesta/temp/$puvodniobrazek.thumb.jpeg")): $sirka=$sirkaPom; $dataobrazku = getimagesize("./$cesta/".$puvodniobrazek); if ($sirka && ($dataobrazku[0] < $dataobrazku[1])): $sirka = ($vyska / $dataobrazku[1]) * $dataobrazku[0]; else: $vyska = ($sirka / $dataobrazku[0]) * $dataobrazku[1]; endif; $nahled = ImageCreateTrueColor($sirka,$vyska); $obrazek = ImageCreateFromJpeg("./$cesta/".$puvodniobrazek); imagecopyResampled ($nahled, $obrazek, 0, 0, 0, 0, $sirka, $vyska, $dataobrazku[0], $dataobrazku[1]); ImageJpeg($nahled, "./$cesta/temp/" .$puvodniobrazek .".thumb.jpeg", 70); $obrazek=""; endif; endfor; for ($i = 0; $i < Count ($polejpegu); $i++): $puvodniobrazek=$polejpegu[$i]; $dataobrazku = getimagesize("./$cesta/".$puvodniobrazek); if ($dataobrazku[0] < $velkasirka2): $velkasirka=$dataobrazku[0]; else: $velkasirka=$velkasirka2; endif; if ($obrazek == $polejpegu[$i]): ?>

" ; $zobdat = ("$cesta/$polejpegu[$i]"); echo "
Kliknutím na obrázek jej zobrazíte v plné velikosti (v novém okně)

".(date("d.m.y", getlastmod($zobdat)))."

"; endif; endfor; if ($obrazek != ""): ?>
komentáře
Od: Komentář:
$jmeno"; $koment = HTMLSpecialChars($koment); $koment = Trim($koment); $koment = Str_Replace("\n","
", $koment); $slovo = Split("[[:blank:]]+", $koment); for($y=0;$y", $koment); $koment = Str_Replace("</b>", "", $koment); $koment = Str_Replace("<i>", "", $koment); $koment = Str_Replace("</i>", "", $koment); $koment = Str_Replace("<u>", "", $koment); $koment = Str_Replace("</u>", "", $koment); $koment = "
$koment
"; $cesta2 = " \n"; $ip = ""; $write = StripSlashes($ip .$jmeno .$koment .$cesta2); //odstraneni koncu radku if (File_Exists ("galerie-data.dat")): $fp = FOpen ("galerie-data.dat", "r"); $zaloha = File ("galerie-data.dat"); if (Count($zaloha)>10): //copy ("galerie-data.dat", "galerie-data.dat.zaloha"); endif; $data = FRead ($fp, FileSize("galerie-data.dat")); FClose($fp); endif; $fp = FOpen ("galerie-data.dat", "w"); FWrite ($fp, $write.$data); FClose($fp); ?>
Komentář odeslán!



Vytvořeno za pomoci freegal.wz.cz



"> 0): $f=$j-1; echo "
<< předchozí
"; endif; for ($j=$zacatek;$j<=$konec;$j++): if ($polejpegu[$j] != ""): echo "
"; endif; endfor; $strana = Ceil(Count($polejpegu)/$trid); $y=$idprispevek+1; if ($y <= $strana): $g=$j+1; echo "
>> další
"; endif; ?>
".($idprispevek)."
"; for ($x=1;$x<=$strana;$x++): echo "" . ($x) . "
"; endfor; ?>

zpět do galerie
read()): if (Is_Dir($polozka) and $polozka !="." and $polozka !=".."): $pp[] = $polozka ; endif; endwhile; $adresar->close(); $ppv = array_values(array_diff ($pp, $oa)); echo " adresáře:"; for ($i = 0; $i < Count ($ppv); $i++): echo " $ppv[$i] "; endfor; echo "
$cesta

"; $adresar2 = Dir ("./$cesta/"); while ($polozka2=$adresar2->read()): //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $date = ("./$cesta/" .$polozka2); ////////////////////////////////////////// zde smažte slůvko filemtime pokud vám řazení podle data dělá problémy!!! //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $pp2[$date] = $polozka2; endwhile; ksort($pp2); $pp2 = array_values($pp2); $data2 = File ("./galerie-data.dat"); for ($i = 0; $i < Count ($pp2); $i++): $cast = explode(".", $pp2[$i]); for ($j = 0; $j < Count ($cast); $j++): if (($cast[$j]=="jpg" or $cast[$j]=="JPG") && $cast[$j+1]!="thumb" && $cast[$j+2]!="jpeg"): echo "
"; $obrazek = $pp2[$i]; for ($k = 0; $k < Count ($data2); $k++): $slovo = explode(",", $data2[$k]); for ($l = 0; $l < Count ($slovo); $l++): if ($slovo[$l]==$cesta."-".$obrazek): echo $data2[$k]; endif; endfor; endfor; echo "Komentovat

"; endif; endfor; endfor; ?>
zpět do galerie

"; endfor; ?>
zpět do galerie
"; endfor; ?>


zpět do galerie


Vítejte, zde můžete do fotogalerie vložit libovolnou fotografii, prosím dodržujte následující:

  • vkládací skript automaticky zmenší fotku na šírku 1024 pixelů
  • komentář k fotografii budete moc přidat později (jako ke každé jiné)
  • Nezapomeňte vyplnit název adresíře, který bude zároveň názvem alba do kterého se fotografie nahrají
  • Pokud máte problém s nahráváním obrázků, zkuste jich nahrát menší počet najednou, případně obrázky zmenšit...


    • read()): if (Is_Dir($polozka) and $polozka !="." and $polozka !=".."): $pp[] = $polozka ; endif; endwhile; $adresar->close(); $ppv = array_values(array_diff ($pp, $oa)); echo " Již existující adresáře: (fotky můžete nahrát do již existujícího nebo vytvořit úplně nový):
    "; for ($i = 0; $i < Count ($ppv); $i++): echo " • $ppv[$i] "; endfor; ?>
    Název adresáře:  






    heslo:     


    zpět do galerie

    read()): if (Is_Dir($polozka) and $polozka !="." and $polozka !=".."): $pp[] = $polozka ; endif; endwhile; $adresar->close(); $ppv = array_values(array_diff ($pp, $oa)); ?>
    adresáře:"; for ($i = 0; $i < Count ($ppv); $i++): echo " • $ppv[$i]"; endfor; ?> read()): //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $date = ("./$cesta/" .$polozka); ////////////////////////////////////////// zde smažte sluvko filemtime pokud vám oazení podle data dilá problémy!!! //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $pp[$date] = $polozka; endwhile; $adresar->close(); ksort($pp); $polepolozek = array_values($pp); for ($i = 0; $i < Count ($polepolozek); $i++): $cast = explode(".", $polepolozek[$i]); for ($j = 0; $j < Count ($cast); $j++): if (($cast[$j]=="jpg" or $cast[$j]=="JPG") && $cast[$j+1]!="thumb" && $cast[$j+2]!="jpeg"): $polejpegu[] = $polepolozek[$i]; endif; endfor; endfor; for ($i = 0; $i < Count ($polejpegu); $i++): $puvodniobrazek=$polejpegu[$i]; if (!file_exists("./$cesta/temp/$puvodniobrazek.thumb.jpeg")): $sirka=$sirkaPom; $dataobrazku = getimagesize("./$cesta/".$puvodniobrazek); if ($sirka && ($dataobrazku[0] < $dataobrazku[1])): $sirka = ($vyska / $dataobrazku[1]) * $dataobrazku[0]; else: $vyska = ($sirka / $dataobrazku[0]) * $dataobrazku[1]; endif; $nahled = ImageCreateTrueColor($sirka,$vyska); $obrazek = ImageCreateFromJpeg("./$cesta/".$puvodniobrazek); imagecopyResampled ($nahled, $obrazek, 0, 0, 0, 0, $sirka, $vyska, $dataobrazku[0], $dataobrazku[1]); ImageJpeg($nahled, "./$cesta/temp/" .$puvodniobrazek .".thumb.jpeg", 70); $obrazek=""; endif; endfor; for ($i = 0; $i < Count ($polejpegu); $i++): $puvodniobrazek=$polejpegu[$i]; $dataobrazku = getimagesize("./$cesta/".$puvodniobrazek); if ($dataobrazku[0] < $velkasirka2): $velkasirka=$dataobrazku[0]; else: $velkasirka=$velkasirka2; endif; if ($obrazek == $polejpegu[$i]): ?> "; $z=$idprispevek-1; if ($z > 0): $f=$j-1; echo " << předchozí "; endif; $y=$idprispevek+1; if ($y <= count($polejpegu)): $g=$j+1; echo " >> další "; endif; echo "
    "; $strana = Ceil(Count($polejpegu)/$trid); for ($x=1;$x<=$strana;$x++): $e=$x-1; echo "" . ($x*$trid-($trid-1)) . " "; endfor; echo"

    Aktuální fotografie :  " .($idprispevek*$trid-($trid-1)) ."
    "; echo ""; echo "
    "; endif; endfor; echo "
    "; echo "
    kliknutí na obrázek jej zobrazí v plné velikosti
    "; ?>

    komentáře
    Od: Komentář:

    $jmeno"; $koment = HTMLSpecialChars($koment); $koment = Trim($koment); $koment = Str_Replace("\n","
    ", $koment); $slovo = Split("[[:blank:]]+", $koment); for($y=0;$y", $koment); $koment = Str_Replace("</b>", "", $koment); $koment = Str_Replace("<i>", "", $koment); $koment = Str_Replace("</i>", "", $koment); $koment = Str_Replace("<u>", "", $koment); $koment = Str_Replace("</u>", "", $koment); $koment = "
    $koment
    "; $cesta2 = " \n"; $ip = ""; $write = StripSlashes($ip .$jmeno .$koment .$cesta2); //odstraneni koncu radku if (File_Exists ("galerie-data.dat")): $fp = FOpen ("galerie-data.dat", "r"); $zaloha = File ("galerie-data.dat"); if (Count($zaloha)>10): //copy ("galerie-data.dat", "galerie-data.dat.zaloha"); endif; $data = FRead ($fp, FileSize("galerie-data.dat")); FClose($fp); endif; $fp = FOpen ("galerie-data.dat", "w"); FWrite ($fp, $write.$data); FClose($fp); ?>
    Komentář odeslán!
    "; ?>
    zpět do galerie


    Zde vidíte výpis všech výroků v databázi. Prosím zadejte číslo toho, který chcete smazat a klepněte na tlačítko potvrdit. Nezapomeňte zadat heslo. Pokud máte ke smazaní velké množství výroků, doporučuji je smazat ručně ze souboru galerie-data.dat

    číslo výroku: heslo:
    $i
    "; echo $data[$i]; echo $slova[1]; echo "

    "; endfor; ?>


    zpět do galerie
    zpět k mazání výroků

    Výselek akce:
    Vámi zvolený výrok byl úspešně smazán!
    "; else: ?>

    zpět do galerie
    zpět k mazání výroků

    Výselek akce:
    Zadali jste špatné heslo!"; endif; ?>



    Nahrávání fotek:


    "; else: echo "Prosim jenom soubory ve formatu .jpg
    "; endif; else: if ($fotoupload_type=="image/jpeg" or $fotoupload_type=="image/pjpeg"): copy ($fotoupload, "./$dir/$cislo$cislo2.jpg"); else: echo "Prosim jenom soubory ve formatu .jpg"; endif; $sirka=1024; $vyska=768; if ($sirka && ($dataobrazku[0] < $dataobrazku[1])): $sirka = ($vyska / $dataobrazku[1]) * $dataobrazku[0]; else: $vyska = ($sirka / $dataobrazku[0]) * $dataobrazku[1]; endif; $nahled = ImageCreateTrueColor($sirka,$vyska); $obrazek = ImageCreateFromJpeg("./$dir/$cislo$cislo2.jpg"); imagecopyResampled ($nahled, $obrazek, 0, 0, 0, 0, $sirka, $vyska, $dataobrazku[0], $dataobrazku[1]); ImageJpeg($nahled, "./$dir/$cislo$cislo2.jpg", 85); echo "Soubor byl uspesne nahran
    "; endif; else: echo "Špatné heslo
    "; endif; else: echo "Nezvoleno žádné foto nebo nezadán název adreáře
    "; endif; } ?>
    >>>POKRAČOVAT V NAHRÁVÁNÍ
    zpět do galerie
    read()): if ($polozka !="." and $polozka !=".."): sleep(2); touch("$cesta/$polozka",time()); endif; endwhile; echo "hotovo"; endif; ?>