| ||||||||||||||||
 | ||||||||||||||||
| ||||||||||||||||
 | ||||||||||||||||
| ||||||||||||||||
|
|
Счетчик работающий совместно с базой данных. Возможности данного счетчика ограничиваются исключительно Вашим воображением. Все зависит только от структуры базы данных и логики самого счетчика. К примеру. Вы хотите получить не только количество заходов, но и информацию о клиентском броузере, и времени захода. Выбираем базу данных. Если сайт сильно загружен, то используется промашленные базы данных (MS SQL, Informix, Oracle), если слабо загружен - то Access. Создаем таблицу со следующими полями:
Примечание: проектируя таблицы базы посторайтесь минимизировать траффик между Вашим приложением и базой данных, особенно траффик на запись. Обратите внимание. IdCounter - автоинкрементное поле, и будет автоматически заполняться, об этом позаботится енжин ADO, Request_Time также будет заполняться автоматически - для этого используется значение в поле "по умолчанию" Date(), возможно использование Now(), или GET DATE() для SQL-Server. Сохраните таблицу как T_Counter и дайте своей базе какое - либо имя. В данном случае это не принципиально. Принципиально только место расположения базы данных - ВНЕ отображенных на IIS каталогов, в противном случае - назначьте в менеджемнт консоле премиссию на запись в каталог с базой данных. Следующий шаг. Создадим Системный ресурс ODBC.
Назначим ресурсу ODBC осмысленное название (MyCounter). На этом работа с базой данных закончена. Код счетчика. Оформим его ввиде INC - файла, что позволит подключить счетчик к любому asp - файлу Вашего сайта. Код состоит из 2-х фрагментов. В первом фрагменте определяется броузер клиента и информация о нем добавляется в базу данных.
<%
'-- Декларируем переменные --
Dim SQLString, strClient, intCount
'-- Определяем броузер клиента и версию броузера --
Set bc = Server.CreateObject("MSWC.BrowserType")
on error resume next
strClient = bc.browser & " " & bc.version
If strClient = EMPTY Then strClient = "no identy"
Set bc = nothing
'--Подключаемся к ODBС--
Set Conn = Server.CreateObject("ADODB.Connection")
myDSN="DSN=MyCounter;uid="";pwd="""
Conn.open myDSN
'--Текст запроса на вставку в базу данных--
SQLString = "INSERT INTO T_Counter(idClient) SELECT '" & strClient & "';"
'-- Осуществляем запрос --
Conn.Execute(SQLString)
IF Conn.errors.count> 0 THEN Response.write ("Ошибка в запросе!" & SQLString)
'--Блок запроса к базе на выборку--
'--Открываем рекордсет--
Set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorType = adOpenStatic
'--Формируем запрос--
SQLString = "SELECT Last(T_Counter.IdCounter) As LastCounter FROM T_Counter ;"
RS.Open(SQLString), Conn
'--присваиваем переменной значение--
intCount = RS("LastCounter")
IF Conn.errors.count> 0 then
Conn.Close
Set Conn = nothing
Response.write ("Ошибка в запросе!" & SQLString)
else
Conn.Close
Set Conn = nothing
End If
%>
Код получения из базы результата счетчика. В теле asp-страницы в соответствии с дизайном разместите код: <% = intCount %> Для подключения INC-файла используйте следующую конструкцию в ASP-файле: <!-- #Include file="File_name.INC" --> В дальнейшем будут рассмотрены счетчики-информеры. [Назад] |
|
|
| ||||||||||||||||
| ||||||||||||||||
| ||||||||||||||||
|