Добавлено: 16/07/04 в 06:18

Всего два поля надо откуда и сколько пришло, как написать такое?

Добавлено: 16/07/04 в 07:17

Примерно так:

Это в начало кода страницы, для которой нужна статистика:
<?php
$ref=getenv("HTTP_REFERER");
if (isset($referer)):

$refs = file("count.dat");
$d=count($refs);
for($i = 0; $i < $d; $i++)
{
list($refferer, $ref_cnt) = explode("::","$refs[$i]");
if($refferer != "" && $ref_cnt != ""):
if($ref == $refferer):
$new_ref_cnt = $ref_cnt + 1;
$puts[] = "$ref::$new_ref_cnt::::\r\n";
else:
$puts[] = "$refferer::$ref_cnt::::\r\n";
endif;
endif;
}
if (!isset($new_ref_cnt)) { $new_ref_cnt = 1; }
if(isset($puts)):
foreach($puts as $i=>$str)
{
if($str=="$ref::$new_ref_cnt::::\r\n")
{
$ok=$i;
break;
}
}
foreach($puts as $j=>$str)
{
if($ok==$j) { $puts[$ok]="$ref::$new_ref_cnt::::\r\n"; break;}
}
endif;
$fr = fopen($refferer_data,"w");
flock($fr,2);
if (isset($puts)):
foreach ($puts as $put) { fputs($fr,$put); }
else:
fputs($fr, "$ref::1::::\r\n");
endif;
flock($fr,3);
fclose($fr);

endif;
?>

Это вывод результатов:
<?php
$ref_array = file("count.dat");
if(isset($ref_array) && count($ref_array) != 0):
foreach($ref_array as $refs)
{
list($ref,$cnt) = explode("::", $refs);
$ref = wordwrap( $ref, 90, "\n", 1);
$new_ref_array[$ref] = $cnt;
}
arsort($new_ref_array);
$r = 0;
foreach($new_ref_array as $ref=>$cnt)
{
$r++;
echo "<tr>";
echo "<td width=\"470\" align=\"left\" class=\"p\" bgcolor=\"#FFFFFF\">$ref</td>";
echo "<td width=\"128\" align=\"center\" class=\"p\" bgcolor=\"#FFFFFF\">$cnt</td>";
echo "</tr>";
if($r == $maxref) { break; }
}
endif;
?>

Создай файл count.dat, и положи в папку со своей страницей. Не забудь права для него 666 установить.

Честно скажу не проверял, но должно сработать. Если что-напиши, подправлю.

Добавлено: 16/07/04 в 07:43

Мне тоже весьма не помешает эта фишка!
Спасибо за код.
не пробовал - так как имею маленькое уточнение.

В count.dat этот код прописывать да?

Это вывод результатов:
<?php
$ref_array = file("count.dat");
if(isset($ref_array) && count($ref_array) != 0):
foreach($ref_array as $refs)
{
list($ref,$cnt) = explode("::", $refs);
$ref = wordwrap( $ref, 90, "\n", 1);
$new_ref_array[$ref] = $cnt;
}
arsort($new_ref_array);
$r = 0;
foreach($new_ref_array as $ref=>$cnt)
{
$r++;
echo "<tr>";
echo "<td width=\"470\" align=\"left\" class=\"p\" bgcolor=\"#FFFFFF\">$ref</td>";
echo "<td width=\"128\" align=\"center\" class=\"p\" bgcolor=\"#FFFFFF\">$cnt</td>";
echo "</tr>";
if($r == $maxref) { break; }
}
endif;
?>

Добавлено: 16/07/04 в 08:21

понято!
большое спасибо!
буду пробовать...

Добавлено: 16/07/04 в 17:57

Rubilnik +6

пойду покатаю скрипт

Добавлено: 17/07/04 в 17:03

Щас времени нет, могет через пару часов выложу свой вариант. А пока скажите кто нить, траф с каких стран считается плохим, ну Россия (наверно правильнее "весь СНГ"), Китай и т.д. Для небольшой ТДС'ки нужно. Готовый скрип обещаю выложить.

Последний раз редактировалось: just_beginner (17/07/04 в 20:38), всего редактировалось 1 раз

Добавлено: 17/07/04 в 20:34

Вот, попробуй (снято в связи с тем что я недоглядел кое-чего)

Последний раз редактировалось: just_beginner (18/07/04 в 00:52), всего редактировалось 1 раз

Добавлено: 17/07/04 в 23:02

2Elefant:

Добавлено: 17/07/04 в 23:49

Мораль: используйте сервисы учета статистики!

Добавлено: 18/07/04 в 10:30

2All: Вот берите тут

Добавлено: 18/07/04 в 10:36

Правда он в посещениях с каждого домена записывает хиты а не хосты, как хотелось бы.

Добавлено: 19/07/04 в 00:04

2All: Ну и что, он нафиг никому не нужен? Хыть кто нить использует его?

Добавлено: 20/07/04 в 12:44

Rubilnik
Замечен баг - счетчик периодически удаляет записи в ДАТ файле . За сутку удалил 4 записи .

Добавлено: 21/07/04 в 18:04

Я его у себя запустил. Понаблюдаю, может увижу, в чем ошибка.