<?php
function sayiDiziniUret()
{
    $rastgeleSayi = rand(100, 999);
    $rastgeleOndalik = rand(0, 9);
    return $rastgeleSayi . '.' . $rastgeleOndalik;
}

$simdikiZaman = time();
$geceYarisi = strtotime('today midnight');

if ($simdikiZaman >= $geceYarisi && $simdikiZaman < $geceYarisi + 86400) {
    $sayiDizini = sayiDiziniUret();
    file_put_contents('sayi.txt', $sayiDizini);
} else {
    //$sayiDizini = file_get_contents('sayi.txt');
}

echo $sayiDizini;
?>

<%
Function SayiDiziniUret()
Dim RastgeleSayi
Randomize
RastgeleSayi = Int((999 - 100 + 1) * Rnd + 100)
Dim RastgeleOndalik
RastgeleOndalik = Int((9 - 0 + 1) * Rnd + 0)
SayiDiziniUret = CStr(RastgeleSayi) & "." & CStr(RastgeleOndalik)
End Function

Dim SimdikiZaman
SimdikiZaman = Now()
Dim GeceYarisi
GeceYarisi = DateAdd("d", DateDiff("d", CDate("01/01/1970 00:00:00"), SimdikiZaman), CDate("01/01/1970 00:00:00"))

Dim SayiDizini

If SimdikiZaman >= GeceYarisi And SimdikiZaman < DateAdd("s", 86400, GeceYarisi) Then
SayiDizini = SayiDiziniUret()
Else
SayiDizini = ""
End If

Response.Write SayiDizini
%>