|
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 (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.dat endif; endif; ?> |