Náhodný tip vypisovaný ze souboru -
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