Добро пожаловать на MidletPascal - а теперь еще скоро и Android и Iphone...
Авторизироваться
Меню сайта
Категории раздела
Наш опрос
Вы программируете на MP?
Всего ответов: 618
Мини-чат
200
Календарь
«  Июль 2017  »
ПнВтСрЧтПтСбВс
     12
3456789
10111213141516
17181920212223
24252627282930
31
Статистика

Онлайн : 2
Гостей: 2
Пользователей: 0
$f = fopen("http://mobilepascal.ucoz.ru/txt/count.txt", "a+"); /* открываем файл, хранящий значение счетчика */
flock($f, LOCK_EX); /* блокируем доступ к файлу */
$count = fread($f, 100); /* считываем значение счетчика из файла */
@$count = $count + 1; /* увеличиваем значение счетчика на 1 */
ftruncate($f, 0); /* очищаем файл */
fwrite($f, $count); /* записываем значение счетчика в файл */
fflush($f); /* сбрасываем буфер файла - чтобы все что мы хотели туда записать записалось */
flock($f, LOCK_UN); /* снимаем блокировку с файла */
fclose($f); /* закрывам файл */
echo $count; /* печатаем значение счетчика */
?>