Знакомство с ASP: счетчик для IIS за 5 минут. Часть 2

Евгений Кондратов (aka Udjin)

Счетчик работающий совместно с базой данных.

Возможности данного счетчика ограничиваются исключительно Вашим воображением. Все зависит только от структуры базы данных и логики самого счетчика.

К примеру. Вы хотите получить не только количество заходов, но и информацию о клиентском броузере, и времени захода.

Выбираем базу данных. Если сайт сильно загружен, то используется промашленные базы данных (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" -->

В дальнейшем будут рассмотрены счетчики-информеры.

<<< Назад