zdrojový kód
<-- ukazvtip.php -->
<html>
<head>
<title>PHP script ze stránky - www.jaknaweb.com</title>
<meta http-equiv="content-type" content="text/html; charset=windows-1250">
</head>
<body>
<H1>Je vám smutno - máme pro vás vtip</H1>
<BLOCKQUOTE>
<?
require("./vtip.php");
if ($pocet==0) $pocet = 1;
for ($i=0; $i<$pocet; $i++):
echo NL2BR(GetVtip());
echo "<P><HR>\n";
endfor;
?>
</BLOCKQUOTE>
<FORM>
Kolik dalších vtipů ještě chcete:
<INPUT NAME=pocet SIZE=2 VALUE="<?echo $pocet?>">
<INPUT TYPE=Submit VALUE="Zobraz další vtipy">
</FORM>
</BODY>
</HTML>
<-- vtip.php -->
<?
function GetVtip()
{
$indexFile = "./vtipy.dat"; // indexový soubor
$dataFile = "./vtipy.txt"; // datový soubor
$vtip = ""; // text vtipu
$fp = FOpen($indexFile, "r"); // otevření ind. souboru
SRand((double)MicroTime()*1e6); // inicializace gen náh. čísel
FSeek($fp, Rand(0, FileSize("./vtipy.dat")/4) * 4);
// nastavíme se na náhodný ukazatel
$pos = FRead($fp, 4); // přečteme jej
$pozice = Ord($pos[3]) + 256 * (Ord($pos[2]) + 256 *
(Ord($pos[1]) + 256 * Ord($pos[0])));
// spočítáme pozici v datovém souboru
FClose($fp); // zavřeme indexový soubor
$fp = FOpen("./vtipy.txt", "r"); // otevřeme datový soubor
FSeek($fp, $pozice-1); // nastavíme se na vtip
while ($l = FGetS($fp, 128)): // čteme vtip
if ($l[0] == "%") break; // dokud nenarazíme na jeho konec
$vtip .= $l;
endwhile;
FClose($fp); // zavřeme datový soubor
return $vtip; // vrátíme vtip
}
?>
<-- vtipy.txt -->
Koncentrace
Vite, kde bylo nejvice alkoholiku?
Na Titaniku! Potopili lod, jen aby si lokli.
%
V pivu je vitaminu malo, proto ho musime pit hodne!
%
Nahle se prudce zvedl chodnik a silne me uderil do obliceje.
%
Prijde kovboj do saloonu a poruci si:
"Nejakej silnej chlast!"
Hospodsky mu nalije...
"To je silnej chlast? Vzdyt je to sama voda," rekne kovboj a piti chrstne na
zem.
Hospodskej vezme 100% spiritus a nalije kovbojovi. Tomu se to zase nezda dost
silne a vyleje obsah na zem. Hospodskyho to nastve a kovbojovi nalije kyselinu
sirovou.
"No vidite, to je konecne piti," pochvali ho kovboj a odejde.
Za okamzik vbehne zpatky a zarve:
"Co to bylo za chlast? Vyjdu ven, plivnu na kone a zbyly z neho jen podkovy!"
Vložil/Poslal/Autor: Admin
Funkčnost:
běží na straně serveru, nemělo by záležet na typu prohlížeče