//description = popis webové stránky
$fp = FOpen("data/text/description", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
$data = FRead ($fp, @FileSize("data/text/description")); //přečtení obsahu souboru do proměnné $data
List($description) = Explode("#", $data);
FClose($fp);
$description = str_replace("**", "'", $description);
$fp = FOpen("data/text/keywords", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
$data = FRead ($fp, @FileSize("data/text/keywords")); //přečtení obsahu souboru do proměnné $data
List($keywords) = Explode("#", $data);
FClose($fp);
$keywords = str_replace("**", "'", $keywords);
$fp = FOpen("data/text/title", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
$data = FRead ($fp, @FileSize("data/text/title")); //přečtení obsahu souboru do proměnné $data
List($title) = Explode("#", $data);
FClose($fp);
$title = str_replace("**", "'", $title);
$fp = FOpen("data/text/stylcss", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
$data = @FRead ($fp, @FileSize("data/text/stylcss")); //přečtení obsahu souboru do proměnné $data
List($stylcss) = Explode("#", $data);
FClose($fp);
$stylcss = str_replace("**", "'", $stylcss);
$fp = FOpen("data/text/javascript", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
$data = @FRead ($fp, @FileSize("data/text/javascript")); //přečtení obsahu souboru do proměnné $data
List($javascript) = Explode("#", $data);
FClose($fp);
$javascript = str_replace("**", "'", $javascript);
@$fp = FOpen("data/text/javascriptload", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
@$data = FRead ($fp, @FileSize("data/text/javascriptload")); //přečtení obsahu souboru do proměnné $data
@List($javascriptload) = Explode("#", $data);
@FClose($fp);
@$javascriptload = str_replace("**", "'", $javascriptload);
$cislo=1;
do
{
$fp = FOpen("data/upoutavka/" . $cislo, "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
$data = @FRead ($fp, FileSize("data/upoutavka/" . $cislo)); //přečtení obsahu souboru do proměnné $data
List($slogan2[$cislo]) = Explode("#", $data); //příkazem list se definují proměnné, do kterých se uloží přečtená data oddělená separátorem '#' z proměnné $data
FClose($fp);
$cislo=$cislo+1;
}
while($cislo<11);
$fp = FOpen("data/ostatni/index_parametry", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
$data = FRead ($fp, @FileSize("data/ostatni/index_parametry")); //přečtení obsahu souboru do proměnné $data
List($pozadi_barva,$horni_okraj,$levy_okraj,$pravy_okraj,$dolni_okraj,$pismo_barva,$zahlavi_vyska,$zahlavi_pozadi_barva,$zahlavi_obrazek,$pozdrav_vyska,$pozdrav_barva,$pozdrav_pismo,$pozdrav_zarovnani,$pozdrav_levy_okraj,$pozdrav_pravy_okraj,$telo_levy_sloupec_sirka,$telo_prostredni_sloupec_sirka,$telo_pravy_sloupec_sirka,$telo_levy_sloupec_barva,$telo_prostredni_sloupec_barva,$telo_pravy_sloupec_barva) = Explode("#", $data);
FClose($fp);
@$fp = FOpen("data/text/o_firme", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
@$data = FRead ($fp, @FileSize("data/text/o_firme")); //přečtení obsahu souboru do proměnné $data
@List($o_firme) = Explode("#", $data);
@FClose($fp);
@$o_firme = str_replace("**", "'", $o_firme);
@$fp = FOpen("data/ostatni/text_parametry", "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
@$data = FRead ($fp, @FileSize("data/ostatni/text_parametry")); //přečtení obsahu souboru do proměnné $data
@List($o_firme_text_zarovnani,$o_firme_okraj_levy,$o_firme_okraj_pravy,$o_firme_okraj_horni,$o_firme_okraj_dolni,$o_firme_pismo,$o_firme_pismo_barva,$o_firme_radek_vyska) = Explode("#", $data);
@FClose($fp);
//$o_firme = str_replace("**", "'", $o_firme);
?>
include "skripty/php/pisatko.php";
?>
|
$nx=0;
$adresarx = Dir("data/prislovi/"); //nastavení adresáře pro načítání registrantů
while ($polozkax[$nx]=$adresarx->Read()) //dokud se bude v adresáři nacházet nějaký soubor, tak načítej
{
$souborx=$polozkax[$nx];
@List($nazev,$aaa) = Explode("a", $souborx);
//echo $nazev;
$nazeva=$nazev."a";
//echo $nazeva;
if (($souborx<>".") and ($souborx<>"..")):
if ($souborx<>$nazeva):
if ($souborx<>"a"):
//echo $souborx . "nazdar";
$nx=$nx+1;
$nazevsoubor[$nx]=$souborx;
endif;
endif;
endif;
}
$cislo_nahoda=mt_rand(1,$nx);
//echo $cislo_nahoda;
//echo $nazevsoubor[$cislo_nahoda];
if (@FileSize("data/prislovi/" . $nazevsoubor[$cislo_nahoda])): //vyloučení prvních dvou adresářových položek a výpis pouze souborů
@$fp = FOpen("data/prislovi/" . $nazevsoubor[$cislo_nahoda], "r"); //nadefinování proměnné (povinné) $fp pro otevření souboru v adresáři pro čtení
@$data = FRead ($fp, FileSize("data/prislovi/" . $nazevsoubor[$cislo_nahoda])); //přečtení obsahu souboru do proměnné $data
@List($cisloclankus,$datumvyts,$nazevclankus,$upoutavkas,$texts,$rozmers,$rozmers,$pocets) = Explode("#", $data); //příkazem list se definují proměnné, do kterých se uloží přečtená data oddělená separátorem '#' z proměnné $data
@FClose($fp);
endif;
?>
|
|
|
|
include "skripty/php/menu.php";
?>
|
1.5.2008: Krátký návod a podmínky používání seznamovacího webu www.zivotnilaska.cz:
Tento web si dává za cíl napomoci neutěšené situaci v ČR, kdy statisíce lidí žijí osamoceně, bez partnera/partnerky.
Chceme zvýšit vaši šanci na seznámení a uděláme v této věci pro vás maximum. Inzeráty zde podané se automaticky smažou
po 90ti dnech. Po uplynutí této lhůty přijde na váš e-mail informace, že takto bylo učiněno s výzvou o opětovné zadání inzerátu
v případě, že se seznamování nezdařilo.
Na první místo klademe ochranu vašeho soukromí. Mezi ně počítáme také údaje a kontakty o vás. Nedoporučujeme zadávat do inzerátu
vaše jméno, adresu bydliště nebo jiné zneužitelné podrobnosti. Váš e-mail je chráněný před spamovacími nástroji a tuto ochranu budeme
neustále vylepšovat. E-maily zásadně v inzerátech nezobrazujeme, návštěvník s nimi vůbec nepřijde do styku.
Záleží jen na vás, zda na odpověď odpovíte a odhalíte svůj e-mail.
Proč jsme vlastně vytvořili tuto seznamku? Z jednoduchého důvodu. Pořádná seznamka na českém internetu neexistuje.
Přehlednost, spolehlivost, možnost podat si zdarma více inzerátů, snadné vyhledávání. Tohle všechno nám na většině seznamovacích
portálů chybí. Proto jsme se rozhodli, že vytvoříme vlastní seznamku, vlastní webový systém. Tento systém budeme neustále
zdokonalovat. Máme v plánu zrealizovat několik převratných věcí, které seznamování zpříjemní a zefektivní. Samozřejmě se nebráníme ani
nápadům od vás uživatelů. Proto neváhejte a pište nám vaše připomínky na emailovou adresu namety@zivotnilaska.cz.
Pozor! Tento web není určen pro seznamování mezi homosexuály, lesbickými ženami a bisexuály. Děkujeme za porozumění.
Přejeme Vám, abyste si našli toho pravého partnera/partnerku na celý život. Proto jsme tento web vytvořili.
|
$supvstup=$_REQUEST["supvstup"];
if ($supvstup<>"ano"):
echo $o_firme;
else:?>
Π
|
|
|