|
Diskuze
červeně vypsané položky musíte vyplnit ! Pole "nevyplňujte" nechte prázdné.
if ($odeslano=="ano"):
if ($jmeno1=="" || $email1=="" || $popis=="" || $nev1<>"" || 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 vechny 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 poruit 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í vechna 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ředelý obsah souboru book.dat)
FClose ($fp); //zavře soubor book.dat
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;
?>
|
|
|
|