IBATAK
Kniha návštěv - nelze přidávat komentáře
$jmeno=$_POST["njmeno"];
$email=$_POST["nemail"];
$popis=$_POST["npopis"];
$kontrol=$_POST["nkontrol"];
$web=$_POST["nweb"];
$nah=$_POST["nnah"];
$odeslano=$_POST["nodeslano"];
$kontrolaok=0;
if ($nah==1 && $kontrol=="23416"): $kontrolaok=1; endif;
if ($nah==2 && $kontrol=="87219"): $kontrolaok=1; endif;
if ($nah==3 && $kontrol=="80166"): $kontrolaok=1; endif;
if ($nah==4 && $kontrol=="94328"): $kontrolaok=1; endif;
if ($nah==5 && $kontrol=="12780"): $kontrolaok=1; endif;
if ($nah==6 && $kontrol=="32146"): $kontrolaok=1; endif;
if ($nah==7 && $kontrol=="16983"): $kontrolaok=1; endif;
if ($nah==8 && $kontrol=="30492"): $kontrolaok=1; endif;
if ($nah==9 && $kontrol=="73289"): $kontrolaok=1; endif;
if ($kontrolaok==0): $kontrol=""; endif;
$nah=rand(1,9);
$obr="images/Code".$nah.".gif";
?>
Povinné údaje označeny červeným písmem
// if ($odeslano=="ano"):
// if ($jmeno=="" || $email=="" || $popis=="" || $kontrol=""): //kontrola zadaných udajů, pokud nebyly zadány všechny povinné údaje, do knihy se nic nezapíše
// echo " musíte vyplnit všechny povinné údaje ";
// else: //včechny povinné údaje jsou zadány
// $name = "$jmeno \n"; //do proměnné "name" uloží Jméno, zformátuje jej pomocí tagu a otevře nový řádek
// $e_mail = "$email \n"; //do proměnné "e_mail" uloží Email, zformátuje jej pomocí tagu , přidá odkaz typu MAILTO a otevře nový řádek
// if ($web!=""): //pokud byl zadán Web, vytvoří proměnnou "www"
// $www = "$web \n"; //do proměnné "www" uloží Web, zformátuje jej pomocí tagu , přidá odkaz na danou stránku a otevře nový řádek
// endif;
// $cas = "" . Date("j. " . "m. " . "Y, " . "H:i:s") . " \n"; //do promenne "cas" uloží aktuální datum a čas ve formátu (př. 5. 11. 2000, 13:54:53), zformátuje a načne další řádek
// $popis2 = NL2BR(HTMLSpecialChars($popis)); //změna konců řádků na tagy a ostraní znaky, které by mohly porušit formátování
// $zprava = " $popis2
\n\n"; //do proměnné "www" uloží $popis2, zformátuje, přidá čáru, která bude oddělovat příspěvky a otevře nový řádek
// $write = StripSlashes($name . $e_mail . $www . $cas . $zprava); //do proměnné "write" uloží všechna data, která se budou zapisovat a odstraní escape sekvence
// if ($kontrolaok):
// if (File_Exists ("book.dat")): //existuje soubor book.dat
// $fp = FOpen ("book.dat", "r"); //otevře soubor book.dat pro čtení
// $data = FRead ($fp, FileSize("book.dat")); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře
// FClose($fp); //zavře book.dat
// endif;
// $fp = FOpen ("book.dat", "w"); //otevře book.dat pro přepis nebo vytvoření
// FWrite ($fp, $write.$data); //zápis do souboru book.dat (nejprve aktuální příspěvek, poté předešlý obsah souboru book.dat)
// FClose ($fp); //zavře soubor book
// else:
// echo " Nebyl správně zadán kontrolní kód!!! ";
// endif;
// endif;
// endif;
?>
if (File_Exists ("book.dat")): //existuje soubor book.dat
$fp = FOpen ("book.dat", "r"); //otevře soubor book.dat pro čteni
FPassThru($fp); //vypíše obsah souboru
endif;
?>
|
|