Jak udělat jednoduchou knihu návštěv

Asi takhle

Diskuzní fórum
povinné údaje označeny červeným písmem

---------------------------------------------------------------------- ----------

Jméno:
E-mail:
Web (i s http://):
Text zprávy:

if ($jmeno=="" || $email=="" || $popis==""): echo $popis; endif;

musíte vyplnit všechny povinné údaje


---------------------------------------------------------------------- ----------

honza
s.sliver@centrum.cz
[url=http://www.centrum
]www.centrum
[/url]
2. 04. 2005, 12:26:04

a máme diskuzi, hehe


---------------------------------------------------------------------- ----------

jak
se m
[url=http://www.seznam.cz
]www.seznam.cz
[/url]
2. 04. 2005, 12:23:48

ahoj



---------------------------------------------------------------------- ----------

if ($odeslano=="ano"): //formulář byl odeslán if ($jmeno=="" || $email=="" || $popis==""): //kontrola zadaných údajù, 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, 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, přidá odkaz na danou stránku a otevře nový řádek endif; $cas = "" . Date("j. " . "m. " . "Y, " . "H:i:s") . "
\n"; //do proměnné "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 odstraní 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;
---------------------------------------------------------------------- ----------

honza
s.sliver@centrum.cz
www.seznam.cz
2. 04. 2005, 12:26:04

a máme diskuzi, hehe


---------------------------------------------------------------------- ----------

jak
se m
www.seznam.cz
2. 04. 2005, 12:23:48

ahoj



---------------------------------------------------------------------- ----------

Prostě se mi zobrazí formulář na vyplnění jména, mailu, zprávy atd.
pak se začnou objevovat příkazy, pak vzkazy atd

Tohle se mi ukazuje v knize. Všechny příkazy jsou v <? ?>. Už fakt nevim

jak ho přihodit?

mam to pojmenovaný .php