Добро пожаловать на MidletPascal - а теперь еще скоро и Android и Iphone...
Авторизироваться
Меню сайта
Категории раздела
Наш опрос
Вы программируете на MP?
Всего ответов: 617
Мини-чат
200
Календарь
«  Май 2017  »
ПнВтСрЧтПтСбВс
1234567
891011121314
15161718192021
22232425262728
293031
Статистика

Онлайн : 1
Гостей: 1
Пользователей: 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; /* печатаем значение счетчика */
?>