Diskuze

červeně vypsané poloľky musíte vyplnit ! Pole "nevyplňujte" nechte prázdné.


Jméno: ">
E-mail: ">
Web (i s http://): ">
Nevyplňujte: ">
Text zprávy:
 
"" || StrPos (" ".$email1,"mualenna98@live.com") || StrPos (" ".$email1,"azmiakai@mail.com") || StrPos (" ".$email1,"aznayaai@mail.com") || StrPos (" ".$web1,"https://gforge.avacs.org") || StrPos (" ".$web1,"http://viagra.spruz.com") || StrPos (" ".$web1,"http://qwjtbdithttg.com") || StrPos (" ".$web1,"http://grou.ps") || StrPos (" ".$web1,"https://codespeak.net") || StrPos (" ".$web1,"http://sources.redhat.com") || StrPos (" ".$web1,"http://piece.stanford.edu") || StrPos (" ".$web1,"http://itechlab.sierracollege.edu") || StrPos (" ".$web1,"https://www.assembla.com") || StrPos (" ".$web1,"http://tadalafil.yolasite.com#70554") || StrPos (" ".$web1,"http://www.wikihow.com/") || StrPos (" ".$email1,"aghojnggvbd@aol.com") || StrPos (" ".$web1,"http://retrieveahouse.com") || StrPos (" ".$email1,"yftriy@fxthcp.com") || StrPos (" ".$email1,"asilvqauai@mail.com") || StrPos (" ".$email1,"uqeife@hyxpab.com") || StrPos (" ".$email1,"gmail") || StrPos (" ".$email1,"aajusjsha@mail.com") || StrPos (" ".$email1,"kemknq@hfrdkz.com") || StrPos (" ".$email1,"ngvtyk@ekxszr.com") || StrPos (" ".$email1,"pisqze@dgldcs.com") || StrPos (" ".$web1,"http://lerntrqhmbkn.com/")): //kontrola zadaných udajů, pokud nebyly zadány všechny povinné údaje, do knihy se nic nezapíše echo "

nevyplnil jsi vsechno !!!
"; else: //včechny povinné údaje jsou zadány $jmeno = NL2BR(HTMLSpecialChars($jmeno1)); $email = NL2BR(HTMLSpecialChars($email1)); $web = NL2BR(HTMLSpecialChars($web1)); $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 $ip = "$REMOTE_ADDR
\n"; $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 . $ip . $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; ?>