Paieška

west14 (2010-12-11 15:48:00 ) :: Lankymosi ribojimas

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
  
   <?php

      
// Gaunami vartotojo duomenys:

      
$ip $REMOTE_ADDR;

      
// Failas kur bus irasomi duomenys:

      
$duomenys "db.txt";

      
// Kiek laiko negales ateiti (Sekund.):

      
$time_out 120;

      
// Zinute naujai atejusiam:

      
$msg_naujam "<p align=\"center\">Sveikiname prisijungus<br/> Dar kartą ateiti galėsite tik po $time_out s.</p>";

      
// Zinute atejusiam antra karta:

      
$msg_senam "<p align=\"center\">Jus jau buvote atėjęs.</p>";
  
      
// Gaunamas dabartinis TIME:

      
$time time();

      
// Suskaiciuojamas TIME OUT:

      
$timeout $time $time_out;


      
// Funkcija skaiciuojanti duomenis:

      
$arr file($duomenys); for($i 0$i count($arr); $i++)

      { list(
$name_tikrinimo$time_failo_tikrinimo) = explode("|"$arr[$i]);

      if (
$name_tikrinimo == $ip) { if ($time_failo_tikrinimo $timeout)

      { print 
$msg_senam; exit; } }}$arr file($duomenys);

      
$h fopen($duomenys"a"); $fp_isvaloma fopen ($duomenys"w+");

      
fwrite ($fp_isvaloma"");fclose ($fp_isvaloma);

      for(
$i 0$i count($arr); $i++){

      list(
$name$time_failo) = explode("|"$arr[$i]);

      if (
$name != ""){if ($name != $ip) {if ($time_failo $timeout)

      {
fwrite ($h$arr[$i]);}}}}fclose ($h);$irasas "$ip|$time|\n";

      
$fp_irasas fopen ($duomenys"a+");fwrite ($fp_irasas$irasas);

      
fclose ($fp_irasas); $failas $duomenys$arr file($failas);

      
$online_skaicius count($arr); print $msg_naujam;

      
?> 

Rašyti komentarą

Prašome prisijungti!

Komentarai

# BRIUSLIS (2011-07-28 13:05:42 )
avataras
O gal išeitų pakeist kad apribojamas būtų sakykim 5 naujienos svečiui o po to jam rodytų kad norint matyti daugiau reikia prisiregistruoti.