Поддержка сайта

Высокие позиции в поисковой системе, на прямую зависят от развития вашего сайта.

Продвижение сайтов

Эффективность стратегий продвижения подтверждается сотрудничеством с крупными клиентами и отзывами о нашей работе.

Создание сайтов

Мы делаем сайты быстро, недорого и профессионально. От работы с нами, у вас останутся только положительные эмоции.

Отслеживание текущего покупателя

В предыдущей главе мы реализовали отслеживание состояния корзины посетителя сайта, воспользовавшись ASP-объектом Session и введя новый объект Basket. Теперь реализуем отслеживание текущего покупателя.

Отслеживание текущего покупателі

1. Добавьте в объект visit глобальную переменную:

          Отслеживание текущего покупателя

2. Добавьте в метод Configure объекта Visit следующий код:

 Отслеживание текущего покупателя

3. Создайте в Visual Basic новый модуль класса Customers и добавьте в него код:

 Отслеживание текущего покупателя

4. Добавьте в Customers код извлечения сведений о покупателях:

 Отслеживание текущего покупателя

5. Измените объект visit так, чтобы при необходимости можно было получить объект Customers. Сначала добавьте в Visit глобальную переменную:

 Отслеживание текущего покупателя

6. Добавьте в объект visit свойство, возвращающее правильно сконфигурированный объект Customers:

 Отслеживание текущего покупателя

7. Добавьте в метод Shutdown объекта Visit:

 Отслеживание текущего покупателя

Описание работы

Добавление следующей строки позволит при каждом вызове объекта Configure проверять сеансовые переменные для извлечения идентификатора текущего клиента:

mCustomerID = CLng(mSession("CustomerlD"))

Объект Catalog исполняет в модели задачи, связанные с обработкой каталога товаров. Точно так же объект Customers обслуживает сведения о покупателях в базе данных. Мы хотим, чтобы объект Customers хранил указатель, направленный на интерфейс IUtility, который предоставляется объектом visit (аналогично действует объект Catalog):

 Отслеживание текущего покупателя

Метод Query-Customers подобен ранее созданному методу QueryProducts. Он просит RunQuery выбрать строки в таблице Customers на основе передаваемых параметров:

 Отслеживание текущего покупателя

Этот метод используется в GetCustomer для возвращения строки покупателя по указанному идентификатору:

Public Function GetCustomer(ByVal CustomerlD As Long,

Optional ByVal AsKeyset As Boolean = False)  As Recordset

Set GetCustomer = QueryCustomers("CustomerlD=" & CustomerlD, , AsKeyset) End Function

Код похож на ранее созданную часть Customers Property Get. При построении объекта Catalog мы возложили на объект Visit ответственность за создание экземпляра. В данном случае делается то же самое: мы создаем экземпляр объекта при первом запросе свойства и кэшируем этот экземпляр. Каждый следующий запрос свойства возвращает кэшированную версию. В результате сокращается общее количество объектов на странице и поддерживается масштабирование.

 

Отслеживание текущего покупателя

Читайте так же:
Not found

Нам доверяют

Интернет магазин