 Корпоративный интернет-счётчик
Аннотация
В данной статье рассказывается как создать интернет-счётчик для корпоративного портала.
Задача
Счётчик должен вести подробную информацию о посетителях: адрес откуда пришёл посетитель, адрес страницы, IP-адрес посетителя, дата, браузер пользователя, операционная система.
По IP-адресу можно определить страну и регион откуда пришёл посетитель.
Кроме того мы должны иметь возможность просматривать статистику посещений по дням, количество новых посетителей (и их IP-адреса), количество уникальних посетителей (и их IP-адреса), самые лучшие ссылки на на нашу интернет-страницу, самые популярные страницы и т.п..
Схема выполнения
Для начала, рассмотрим схему выполнения счётчика.
1. Пользователь из интернет (Пользователь1, Пользователь2, Пользователь3) заходит на нашу интернет-страницу, расположенную на сервере провайдера.
2. На интернет-странице выполняется код на PHP, который определяет IP-адрес пользователя, URL откуда пришёл, URL страницы, браузер и операционную систему пользователя. Эти данные программа передаёт на корпоративный интернет-сервер.
3. На корпоративном интернет-сервере вызывается хранимая процедура InterBase для передачи данных о пользователе и получении статистической информации для интернет-страницы.
4. Статистически данные передаются в программу на Интернет-странице и выводятся для посетителя.
Со временем, администратор подключается к Interbase-серверу с помощью клиенской программы (написанной на Delphi) и обрабатывает информацию.
Примечание: Корпоративный сервер и InterBase-сервер можно совместить, но тогда уменьшается уровень защиты информации. Так как зная пароль и имя пользователя можно будет подключиться к базе данных из интернет.
Структура базы данных
Теперь создадим структуру базы данных.
Таблица Project предназначена для хранения названия проекта. Таким образом,мы можем создавать сколько угодно счётчиков.
В таблице CountData накапливается информация о посетителях:
URLFrom – откуда пришёл посетитель,
URLCurr – какую страницу посетили,
DateHint – дата (без времени) когда посетили,
FullDate – полная дата,
IPUser – IP-адрес посетителя,
Browser – браузер,
SystemUser – операционная система пользователя,
SystemVer – версия операционной системы,
CompName – название компьютера посетителя.
В таблице IPTable хранятся адреса уникальных IP-адресов.
Скрипт базы данных
Сгенерируем скрипт базы данных по данной структуре:
CREATE TABLE CountData (
CountDataID INTEGER NOT NULL,
ProjID INTEGER,
URLFrom VARCHAR(1024),
URLCurr VARCHAR(1024),
DateHint DATE,
FullDate DATE,
IPUser VARCHAR(15),
Browser VARCHAR(255),
SystemUser VARCHAR(255),
SystemVer VARCHAR(255)
);
CREATE INDEX IF318CountData ON CountData
(
ProjID
);
CREATE INDEX ak_IP ON CountData
(
IPUser
);
CREATE INDEX ak_DateHint ON CountData
(
DateHint
);
ALTER TABLE CountData
ADD CONSTRAINT PKCountData PRIMARY KEY (CountDataID);
CREATE TABLE IPTable (
IPUser VARCHAR(15) NOT NULL,
DateAdd DATE
);
CREATE INDEX akDateAdd ON IPTable
(
DateAdd
);
ALTER TABLE IPTable
ADD CONSTRAINT PKIPTable PRIMARY KEY (IPUser);
CREATE TABLE Project (
ProjID INTEGER NOT NULL,
ProjName VARCHAR(255),
Comment BLOB SUB_TYPE 1
);
ALTER TABLE Project
ADD CONSTRAINT PKProject PRIMARY KEY (ProjID);
ALTER TABLE CountData
ADD CONSTRAINT Project_CountData
FOREIGN KEY (ProjID)
REFERENCES Project;
CREATE EXCEPTION ERWIN_PARENT_INSERT_RESTRICT "Cannot INSERT Parent table because Child table exists.";
CREATE EXCEPTION ERWIN_PARENT_UPDATE_RESTRICT "Cannot UPDATE Parent table because Child table exists.";
CREATE EXCEPTION ERWIN_PARENT_DELETE_RESTRICT "Cannot DELETE Parent table because Child table exists.";
CREATE EXCEPTION ERWIN_CHILD_INSERT_RESTRICT "Cannot INSERT Child table because Parent table does not exist.";
CREATE EXCEPTION ERWIN_CHILD_UPDATE_RESTRICT "Cannot UPDATE Child table because Parent table does not exist.";
CREATE EXCEPTION ERWIN_CHILD_DELETE_RESTRICT "Cannot DELETE Child table because Parent table does not exist.";
SET TERM ^;
CREATE TRIGGER tI_CountData FOR CountData AFTER INSERT AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
select count(*)
from Project
where
NEW.ProjID = Project.ProjID into numrows;
IF (
NEW.ProjID is not null and
numrows = 0
) THEN
BEGIN
EXCEPTION ERWIN_CHILD_INSERT_RESTRICT;
END
END ^
CREATE TRIGGER tU_CountData FOR CountData AFTER UPDATE AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
select count(*)
from Project
where
NEW.ProjID = Project.ProjID into numrows;
IF (
NEW.ProjID is not null and
numrows = 0
) THEN
BEGIN
EXCEPTION ERWIN_CHILD_UPDATE_RESTRICT;
END
END ^
CREATE TRIGGER tD_Project FOR Project AFTER DELETE AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
select count(*)
from CountData
where
CountData.ProjID = OLD.ProjID into numrows;
IF (numrows > 0) THEN
BEGIN
EXCEPTION ERWIN_PARENT_DELETE_RESTRICT;
END
END ^
CREATE TRIGGER tU_Project FOR Project AFTER UPDATE AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
IF
(OLD.ProjID <> NEW.ProjID) THEN
BEGIN
update CountData
set
CountData.ProjID = NEW.ProjID
where
CountData.ProjID = OLD.ProjID;
END
END ^
Триггера и хранимые процедуры
Уникальные IP-адреса
Уникальные IP-адреса будут фиксироваться автоматически базой данных. Для этого мы напишем пару триггеров.
Триггер вставки уникальных IP-адресов:
CREATE TRIGGER RTI_COUNTDATA FOR COUNTDATA BEFORE INSERT POSITION 0 AS
DECLARE VARIABLE CNT INTEGER;
BEGIN
NEW.COUNTDATAID=GEN_ID(GCountDataID,1);
NEW.DATEHINT="TODAY";
NEW.FULLDATE="NOW";
SELECT COUNT(*)
FROM IPTABLE
WHERE (IPUSER=NEW.IPUSER)
AND(PROJID=NEW.PROJID)
INTO CNT;
IF (CNT=0) THEN
INSERT INTO IPTABLE (IPUSER, PROJID)
VALUES (NEW.IPUSER, NEW.PROJID);
END
^
Триггер заполнения даты уникального IP-адреса:
CREATE TRIGGER RTI_IPTABLE FOR IPTABLE BEFORE INSERT POSITION 0 AS
BEGIN
NEW.DATEADD="TODAY";
END
Регистрация пользователя в базе данных
Теперь создадим хранимую процедуру для регистрации пользователя в базе данных и получения статистической информации о посещениях.
/*********************************************/
/* Процедура регистрации посетителя интернет странички */
/*********************************************/
CREATE PROCEDURE PROC_COUNT_DATA
(PROJID INTEGER,
URLFROM VARCHAR(1024),
URLCURR VARCHAR(1024),
IPUSER VARCHAR(15),
BROWSER VARCHAR(255),
SYSTEMUSER VARCHAR(255),
SYSTEMVER VARCHAR(255),
COMPNAME VARCHAR(255)
)
RETURNS (
MINDATE DATE, /* Дата установки счётчика */
NUMBER_ZAGRUZK INTEGER, /* Количество загрузок */
NUMBER_UN_ZAGRUZK INTEGER, /* Количество уникальных загрузок */
NUMBER_ZAGR_DATE INTEGER, /* Количество загрузок сегодня */
NUMBER_ZAGR_UN_DATE INTEGER) /* Количество уникальных загрузок */
AS
BEGIN
INSERT INTO COUNTDATA (PROJID, URLFROM, URLCURR, IPUSER,
BROWSER, SYSTEMUSER, SYSTEMVER, COMPNAME)
VALUES (:PROJID, :URLFROM, :URLCURR, :IPUSER,
:BROWSER, :SYSTEMUSER, :SYSTEMVER, :COMPNAME);
/* Время установки счётчика */
SELECT MIN(DATEHINT)
FROM COUNTDATA
INTO :MINDATE;
IF (MINDATE IS NULL) THEN MINDATE="TODAY";
/* Колчичество загрузок */
SELECT COUNT(*)
FROM COUNTDATA
INTO :NUMBER_ZAGRUZK;
/* Количество уникальных загрузок */
SELECT COUNT(*)
FROM IPTABLE
INTO :NUMBER_UN_ZAGRUZK;
/* Колчичество загрузок сегодня */
SELECT COUNT(*)
FROM COUNTDATA
WHERE DATEHINT="TODAY"
INTO :NUMBER_ZAGR_DATE;
/* Количество уникальных загрузок сегодня */
SELECT COUNT(*)
FROM IPTABLE
WHERE DATEADD="TODAY"
INTO :NUMBER_ZAGR_UN_DATE;
SUSPEND;
END
^
Расшифруем передаваемые поля процедуре:
PROJID – ID проекта (счётчика),
URLFROM – откуда пришли,
URLCURR – куда пришли,
IPUSER – IP-адрес пользователя,
BROWSER - браузер,
SYSTEMUSER – операционная система пользователя,
SYSTEMVER – версия операционной системы пользователя,
COMPNAME – название компьютера.
Процедура возвращает статистическую информацию:
MINDATE - дата установки счётчика,
NUMBER_ZAGRUZK INTEGER – общее количество загрузок,
NUMBER_UN_ZAGRUZK INTEGER – общее количество уникальных загрузок,
NUMBER_ZAGR_DATE INTEGER - количество загрузок за сегодня,
NUMBER_ZAGR_UN_DATE INTEGER) - Количество уникальных загрузок за сегодня.
Получение списка повторных посетителей
Хранимая процедура для получения списка повторных посетителей
/*****************************************/
/* Процедура для извлечения повторных посетителей */
/*****************************************/
CREATE PROCEDURE POVTOR_POSETIT
(PROJID INTEGER,
DATEOT DATE,
DATEDO DATE
)
RETURNS (
IPUSER VARCHAR(15)
)
AS
BEGIN
FOR SELECT C.IPUSER
FROM COUNTDATA C
WHERE (C.DATEHINT>=:DATEOT)
AND(C.DATEHINT<=:DATEDO)
AND(C.PROJID>=:PROJID)
AND(C.IPUSER NOT IN (SELECT IT.IPUSER
FROM IPTABLE IT
WHERE (IT.DATEADD>=:DATEOT)
AND(IT.DATEADD<=:DATEDO)
AND(IT.PROJID=:PROJID)
))
GROUP BY C.IPUSER
INTO :IPUSER
DO
BEGIN
SUSPEND;
END
END
^
Процедуре мы передаём диапазон за который хотим посмотреть статистику, а она возвращает IP-адреса пользователей, которые повторно посетили наш сайт.
Статистика посещений по дням
Хранимая процедура для расчёты статистики посещений по дням:
/*****************************************/
/* Статистика посещений по дням */
/*****************************************/
CREATE PROCEDURE STAT_DAY
(PROJID INTEGER,
DATEOT DATE,
DATEDO DATE
)
RETURNS (
DATE_POSETIT DATE, /* Дата посещения */
KOL_POSESCH INTEGER,/* Количество посещений */
KOL_UNIKALN INTEGER, /* Количество уникальных загрузок */
KOL_POVTORN_POSET INTEGER /* Количество повторных посетителей */
)
AS
BEGIN
FOR SELECT DATEHINT
FROM COUNTDATA
WHERE (PROJID=:PROJID)
AND(DATEHINT>=:DATEOT)
AND(DATEHINT<=:DATEDO)
GROUP BY DATEHINT
INTO :DATE_POSETIT
DO
BEGIN
/* Колчичество загрузок */
SELECT COUNT(*)
FROM COUNTDATA
WHERE DATEHINT=:DATE_POSETIT
INTO :KOL_POSESCH;
/* Количество уникальных загрузок */
SELECT COUNT(*)
FROM IPTABLE
WHERE DATEADD=:DATE_POSETIT
INTO :KOL_UNIKALN;
SELECT COUNT(*)
FROM POVTOR_POSETIT(:PROJID, :DATE_POSETIT, :DATE_POSETIT)
INTO KOL_POVTORN_POSET;
SUSPEND;
END
END
^
Лучшие ссылки на сайт
Хранимая процедура для получения лучших ссылок на сайт
/**************************************/
/* Лучшая ссылка на наш сайт */
/**************************************/
CREATE PROCEDURE BEST_LINK
(PROJID INTEGER,
DATEOT DATE,
DATEDO DATE
)
RETURNS (
URLFROM VARCHAR(1024),
COUNT_URLS INTEGER
)
AS
BEGIN
FOR SELECT URLFROM, COUNT(*) COUNT_URLS
FROM COUNTDATA
where (PROJID=:PROJID)
And(DATEHINT>=:DateOt)
And(DATEHINT<=:DateDo)
GROUP BY URLFROM
INTO :URLFROM, :COUNT_URLS
DO
BEGIN
SUSPEND;
END
END
^
Лучшая интернет-страница
Хранимая процедура для получения статистики по посещаемости наших страниц:
/*************************************/
/* Лучшая наша страничка */
/*************************************/
CREATE PROCEDURE BEST_PAGE
(PROJID INTEGER,
DATEOT DATE,
DATEDO DATE
)
RETURNS (
URLCURR VARCHAR(1024),
COUNT_URLS INTEGER
)
AS
BEGIN
FOR SELECT URLCURR, COUNT(*) COUNT_URLS
FROM COUNTDATA
where (PROJID=:PROJID)
And(DATEHINT>=:DateOt)
And(DATEHINT<=:DateDo)
GROUP BY URLCURR
INTO :URLCURR, :COUNT_URLS
DO
BEGIN
SUSPEND;
END
END
^
На нашем сервере
(код на PHP)
Прежде всего, необходимо настроить Apache на нашем сервере. Как его устанавливать и настраивать Вы можете во многочисленных статьях интернета.
Скрипт для подключения к нашей базе данных InterBase, передачи информации о пользователе и получения статистической информации.
acounter.php
<?php
/*include("config.php");*/
include "classdb.php3";
class acounter {
var $config = array();
var $conn;
var $dbname;
var $dbuser;
var $dbpass;
var $NUMBER_ZAGRUZK;
var $NUMBER_UN_ZAGRUZK;
var $NUMBER_ZAGR_DATE;
var $NUMBER_ZAGR_UN_DATE;
var $MINDATE;
var $okrugl;
function acounter () {
/*Подключение к БД*/
include "config.php";
$this->okrugl = $okrugl;
$this->dbname = $dbname;
$this->dbuser = $dbuser;
$this->dbpass = $dbpass;
$this->conn=ibase_connect($this->dbname,$this->dbuser,
$this->dbpass);
/* URL to the digitset */
$this->config['img'] = "http://MySite.com.ua/MyCounter/digits/";
/* URL to the animated digitset */
$this->config['animated_img'] = "http://MySite.com.ua/MyCounter/digits_ani/";
/* How many digits to show */
$this->config['pad'] = 6;
/* digit width and height */
$this->config['width'] = 16;
$this->config['height'] = 22;
/* timeout (minutes) */
$this->config['block_time'] = 15;
}
//Получает количество записей в таблице CountData(количество посещений)
function ibase_fetch_array($res) {
return get_object_vars(ibase_fetch_object($res));
}
function ibase_num_rows($query) {
$i=0;
while (ibase_fetch_row($query)){
$i++;}
return $i;
}
function GetCounterValue() {
$sqlExpr="select * from CountData";
$sth = ibase_query($this->conn,$sqlExpr);
$CounterValue=$this->ibase_num_rows($sth);
return $CounterValue;
}
//
function InsertData($ip='',$urlFrom='',$urlCurr='',$host='') {
//Beru vid brausera, versiu brauzera, platformu mashini;
$info=getenv("HTTP_USER_AGENT");
// $urlFrom=getenv("HTTP_REFERER");
$Gateway=getenv("GATEWAY_INTERFACE");
$Connect=getenv("SERVER_PROTOCOL");
//Beru ip-adres;
// $ip = getenv("REMOTE_ADDR");
$db = new CConnectionIBase();
$sqlExpr="SELECT * FROM PROC_COUNT_DATA(1, '".$urlFrom."'
, '".$urlCurr."', '".$ip."', '', '".$info."', '','".$host."')";
$sth = ibase_query($this->conn,$sqlExpr);
$mas=$this->ibase_fetch_array($sth);
$this->NUMBER_ZAGRUZK = $mas[NUMBER_ZAGRUZK];
$this->NUMBER_UN_ZAGRUZK = $mas[NUMBER_UN_ZAGRUZK];
$this->NUMBER_ZAGR_DATE = $mas[NUMBER_ZAGR_DATE];
$this->NUMBER_ZAGR_UN_DATE = $mas[NUMBER_ZAGR_UN_DATE];
$this->MINDATE = $mas[MINDATE];
}
function create_output($ip='',$urlFrom='',$urlCurr='',$host='') {
$this->InsertData($ip,$urlFrom,$urlCurr,$host);
//Vivogu Col. zagruzok
$html_output = "<table cellpadding="0" cellspacing=
"0" border="0"><tr> ";
$html_output .="<font size='1' color='#0000FF'>
Всего загрузок:</font></tr> <tr align="center"> ";
$html_output .= "<font size='3' color='#800080'>
<b>".sprintf($this->okrugl,$this->NUMBER_ZAGRUZK)."</b></font>";
$html_output .= "</tr></table> ";
//Vivogu col. unikalnih zagruzok
$html_output .= "<table cellpadding="0" cellspacing="0" border="0"><tr> ";
$html_output .="<font size='1' color='#0000FF'>
Всего уникальных загрузок:</font></tr> <tr align="center"> ";
$html_output .= "<font size='3' color='#800080'>
<b>".sprintf($this->okrugl,$this->NUMBER_UN_ZAGRUZK).
"</b></font>";
$html_output .= "</tr></table> ";
//Vivogu col. zagruzok segodnia
$html_output .= "<table cellpadding="0"
cellspacing="0" border="0"><tr> ";
$html_output .="<font size='1' color='#0000FF'>
Загрузок за день:</font></tr> <tr align="center"> ";
$html_output .= "<font size='3' color='#800080'>
<b>".sprintf($this->okrugl,$this->NUMBER_ZAGR_DATE).
"</b></font>";
$html_output .= "</tr></table> ";
//Vivogu col. unikalnih zagruzok segodnia
$html_output .= "<table cellpadding="0"
cellspacing="0" border="0"><tr> ";
$html_output .="<font size='1' color='#0000FF'>
Уникальных загрузок за день:</font></tr>
<tr align="center"> ";
$html_output .= "<p align='center'><font size='3' color='#800080'><b>".sprintf($this->okrugl,$this
->NUMBER_ZAGR_UN_DATE)."</b></font></p>";
$html_output .= "</tr></table> ";
//Vivogu datu ustanovki schetchika
$html_output .= "<table cellpadding="0" cellspacing="0" border="0"><tr> ";
$html_output .="<font size='1' color='#0000FF'>
Дата установки счётчика:</font></tr> <tr align="center"> ";
$str=substr($this->MINDATE,0,10);
$html_output .= "<font size='1' color='#800080'>".$str."</font>";
$html_output .= "</tr></table> ";
return $html_output;
}
}
?>
classdb.php3
<?php
//-------------------------------------------------------------
class CConnection {
var $err_logon = "Can't connect to database %s!";
var $descriptor = 0; // database descriptor
var $result; // result array
var $countRow = 0; // number of records in result array
var $countField = 0; // number of fields in result array
// Clears result array. For internal use.
function freeQuery() {
unset($this->result);
$this->countRow = 0;
$this->countField = 0;
}
// Returns content of specified cell of result array or null if $col or
// $row is wrong.
// $col can to hold the field name or field index
function getData($col, $row) {
if ((0 <= $row) && ($row < $this->countRow)) {
if (!is_string($col)) {
reset($this->result);
for ($fno = 0; $fno < $col; $fno++) next($this->result);
$col = current($this->result);
return $col[$row];
} else return $this->result[strtoupper($col)][$row];
} else return null;
}
// Returns field name by field index or empty string if $col is wrong
function getFieldName($col) {
if (is_integer($col) && (0 <= $col) && ($col < $this->countField)) {
reset($this->result);
for ($fno = 0; $fno < $col; $fno++) next($this->result);
list($key, $val) = each($this->result);
return $key;
} else return "";
}
}
//----------------------------------------------------------------------
class CConnectionIBase extends CConnection {
// Constructor. Creates class.
function CConnectionIBase() {}
// Opens specified database.
// Returns database descriptor.
function open($database, $username = "sysdba",
$password = "masterkey", $charset="WIN1251") {
$this->close();
$this->descriptor = ibase_connect($database,
$username, $password, $charset);
return $this->descriptor;
}
// Closes current database connection
function close() {
if ($this->descriptor) {
$this->freeQuery();
ibase_close($this->descriptor);
$this->descriptor = 0;
}
}
// Prepares data to storing in BLOBs. Used in query & execute functions
// Returns query statement descriptor
function execCode($code, $blobs=0) {
$statement = 0;
$this->freeQuery();
if ($this->descriptor) {
$cmd = "$"."statement = ibase_query("."$".
"this->descriptor, "."$"."code";
if (is_array($blobs) && count($blobs)) {
reset($blobs);
$fno = 0;
while (list($key, $val) = each($blobs)) {
$finfo[$fno] = array("blob_id" =>
ibase_blob_create(), "blob_str" => "");
if (is_string($val)) ibase_blob_add($finfo[$fno]["blob_id"], $val);
else ibase_blob_add($finfo[$fno]["blob_id"],
"Not supported yet, sorry");
$finfo[$fno]["blob_str"] = ibase_blob_close($finfo[$fno]["blob_id"]);
$cmd = $cmd.", $"."finfo[$fno]["blob_str"]";
$fno++;
}
}
$cmd = $cmd.");";
eval($cmd);
}
return $statement;
}
// Executes SELECT statement and fills result array by dataset contents
// Returns number of records placed to result array
function query($code, $blobs=0) {
if ($statement = $this->execCode($code, $blobs)) {
while ($row = ibase_fetch_row($statement)) {
while(list($fno, $val) = each($row)) {
// Getting information about fields existing in current row
if ($this->countField < count($row)) $this->countField = count($row);
$finfo = ibase_field_info($statement, $fno);
$fname = $finfo["alias"];
$ftype = $finfo["type"];
unset($finfo);
if (!strcmp($ftype, "BLOB")) {
// Getting data from BLOB field
if (($finfo = ibase_blob_info($val)) &&
($finfo["length"] > 0) &&
($val = ibase_blob_open($val))) {
$blob = ibase_blob_get($val, $finfo["length"]);
ibase_blob_close($val);
} else $blob = "";
$this->result[$fname][$this->countRow] = $blob;
unset($blob);
} else {
// Getting data from another field
if (isset($val)) {
if (is_string($val))
$this->result[$fname][$this->countRow] = trim($val);
else $this->result[$fname][$this->countRow] = $val;
} else $this->result[$fname][$this->countRow] = "";
}
}
$this->countRow++;
// Cleaning temporary variables
unset($row);
unset($fno);
unset($val);
unset($finfo);
unset($fname);
unset($ftype);
}
ibase_free_result($statement);
unset($statement);
}
return $this->countRow;
}
// Executes INSERT, DELETE or UPDATE statements. Result array is empty.
// Returns nonzero if all OK
function execute($code, $blobs=0) {
if ($statement = $this->execCode($code, $blobs)) {
@ibase_free_result($statement);
return 1;
}
return 0;
}
// Commits current transaction
function commit() { ibase_commit(); }
// Rollbacks current transaction
function rollback() { ibase_rollback(); }
}
//------------------------------------------------------------------
class CConnectionOCI extends CConnection {
function CConnectionOCI() {}
function open($database = "", $username = "system",
$password = "manager") {
$this->close();
if (($database) && strlen($database))
$this->descriptor = OCILogon($username, $password, $database);
else $this->descriptor = OCILogon($username, $password);
return $this->descriptor;
}
function close() {
if ($this->descriptor) {
$this->freeQuery();
OCILogOff($this->descriptor);
$this->descriptor = 0;
}
}
function query($code) {
$this->freeQuery();
if ($this->descriptor) {
if ($code && ($statement = OCIParse($this->descriptor, $code))) {
OCIExecute($statement, OCI_DEFAULT);
$this->countRow = OCIFetchStatement($statement, $this->result);
$this->countField = count($this->result);
OCIFreeStatement($statement);
}
}
return $this->countRow;
}
function execute($code, $blob=0) {
$res = 0;
$this->freeQuery();
if ($this->descriptor) {
if ($code) {
if ($blob) $lob = OCINewDescriptor($this->descriptor, OCI_D_LOB);
if ($statement = OCIParse($this->descriptor, $code)) {
if ($blob) OCIBindByName($statement, ":blob", &$lob, -1,
OCI_B_CLOB);
OCIExecute($statement, OCI_DEFAULT);
if ($lob) {
if ($lob->save($blob)) $res = 1;
OCIFreeDescriptor($lob);
} else $res = 1;
OCIFreeStatement($statement);
}
}
}
return $res;
}
function commit() {
if ($this->descriptor) OCICommit($this->descriptor);
}
function rollback() {
if ($this->descriptor) OCIRollback($this->descriptor);
}
}
//----------------------------------------------------------------------
?>
Файл для конфигурирования счётчика:
config.php
<?
$dbname = "Server:C:DataBaseCounter.GDB";
$dbuser = "SYSDBA";
$dbpass = "masterkey";
$okrugl = "%07s";
?>
$dbname – название базы данных,
$dbuser- имя пользователя InterBase,
$dbpass – пароль,
$okrugl – количество цифр в счётчики (например, 0000012).
Файл, который вызывается из интернет-страницы:
test.php
<?php
include_once "acounter.php";
$ani_counter = new acounter();
echo $ani_counter->create_output($_GET["ip"],$_GET["urlFrom"]
,$_GET["urlCurr"],$_GET["host"]);
?>
На интернет-странице (код на PHP)
Эта часть находится на сервере провайдера (там, где находится наша интернет-страница).
Создаём скрипт для определения данных о пользователе:
Counter.inc
<?php
// phpinfo();
//Beru vid brausera, versiu brauzera, platformu mashini;
$info=getenv("HTTP_USER_AGENT");
$urlFrom=getenv("HTTP_REFERER");
$urlCurr=$_SERVER["REQUEST_URI"];
$host=getenv("HTTP_HOST");
//Beru ip-adres;
$ip = getenv("REMOTE_ADDR");
readfile('http://client70.ukrtelebud.com.ua/
RudjukCounter/test.php?ip='.
$ip.'&urlFrom='.$urlFrom.'&urlCurr='.$urlCurr.'&host='.$host);
// readfile('http://MySite.com.ua/MyCounter/test.php?ip='
.$ip.'&urlFrom='.$urlFrom);
// readfile('http://MySite.com.ua/MyCounter/test.php')
?>
На самой интернет-странице прописываем скрипт, который и будет запускать весь счётчик:
<?php
include ("counter_inc.php")
?>
Примечание: Для того, чтобы счётчик работал корректно необходимо файлы интернет-страницы называть с расширением php, а не htm.
Клиентская часть
Саму обработку статистических данных удобнее всего сделать на Delphi.
Реализацию на Delphi я оставляю читателю, приведу лишь SQL-запросы для получения необходимых данных.
SQL-запросы
Получение подробной информации о посетителях:
select *
from COUNTDATA
where (PROJID=:PROJID)
And(DATEHINT>=:DateOt)
And(DATEHINT<=:DateDo)
ORDER BY COUNTDATAID
Статистика по дням:
SELECT *
FROM STAT_DAY(:ProjID, :DateOt, :DateDo) ORDER BY DATE_POSETIT
Лучшие ссылки на интернет-страницу:
SELECT *
FROM BEST_LINK(:ProjID, :DateOt, :DateDo)
ORDER BY COUNT_URLS DESC
Лучшие интернет-страницы:
SELECT *
FROM BEST_PAGE(:ProjID, :DateOt, :DateDo) ORDER BY COUNT_URLS DESC
Уникальные IP-адреса:
select *
from IPTable
where (ProjID=:ProjID)
And(DateAdd>=:DateOt)
And(DateAdd<=:DateDo)
IP-адреса повторных посетителей:
SELECT *
FROM POVTOR_POSETIT(:ProjID, :DateOt, :DateDo) ORDER BY IPUSER
Вот что получилось
Получение подробной информации о посетителях:
Статистика по дням:
Лучшие ссылки:
Лучшие страницы:
Уникальные IP-адреса:
Повторные IP-адреса:
Заключение
В программе есть ряд неточностей, а так же не определяются страны по IP-адресу. Эти задачи я оставляю за читателями.
|
