Náhodný tip vypisovaný ze souboru - ukázka zdrojového kódu zdrojový kód

<html>
<head>
<title>Náhodný tip</title>
<body>
<center>
<table bgcolor="lightblue">
<tr><td>
<? $prispevek File("./tip.dat");
$rozsah Ceil(Count($prispevek)) - 1;

Do
{
SRand((double)MicroTime()*1e9);
$cislo1 Rand(1,$rozsah);

Do
{
$cislo2 Rand(1,$rozsah);
} while (
$cislo1==$cislo2);

Do
{
$cislo3 Rand(1,$rozsah);
} while (
$cislo2==$cislo3);

} while (
$cislo1==$cislo3);

echo 
$prispevek[$cislo1]; ?><br><hr>
<? echo $prispevek[$cislo2]; ?><br><hr>
<? echo $prispevek[$cislo3]; ?><br><hr>
</center>
</tr></td>
</table>
 


Vložil/Poslal/Autor: Admin
Funkčnost: běží na straně serveru, nemělo by záležet na typu prohlížeče
zavřít okno | jít na hlavní stránku JakNaWeb.com