IBATAK
Kniha návštěv - nelze přidávat komentáře
Povinné údaje označeny červeným písmem
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;
?>
|
|