->

</script> <table

<tr height= 50X > <td

удалить активную учетную

: J;

</scriptx/b></td> </tr> <tr

<td a <a

<font </tr> </table>

Исходный текст хранимой процедуры DeleteUser приводится в листинге 4-51.

Листинг 4-51 Вы найдете в файле cheBookStiopScriptsybo.Deletellser.PRC на прилагаемом к книге компакт-диске.

В этой процедуре мы создаем локальную ; i присваивая ей

нулевое значение. Если данный посетитель имеет записи в orders (то

есть если он отобрал книги для . мы считаем его активным и устанав-

ливаем содержимое переменной равное единице:

CREATE PROCEDURE DeleteUser §10 int, int =0 output AS

DECLARE -SELECT .

IF EXISTS(SELECT * FROM orders WHERE ClleptIO= >r[i;i SELECT ys=1

Для пассивных посетителей выполняется регистрационных запи-

сей из таблицы clients:

IF aStatu}i=Ci BEGIN

DELETE clients WHERE CaieatlD=eiO

Результат выполнения операции удаления в любом случае записывается в выходной параметр iOa. SELECT aiOk= Sl,alu;i

1. iJomiectiofi

. - 15; = 10;

= ListOrders ; = connect;

adVarChar, , 50, ClientID));

var rs;

Идентификатор нокупателя (корзину которого мы будем просматривать) сценарием из параметра ID и затем передается хранимой процедуре с использованием локальной переменной ClientID.

Далее сценарий формирует таблицу, содержащую список книг, отобранных покупателем:

корзины покупателя

EiipDEP = l>

Publisher

</TABLE>

Просмотр содержимого корзины покупателя

Сотрудник магазина . просмотреть содержимое нокунателей нри

помощи j - order.asp (листинг 4-52). Эта страница . почти так же,

как и страница корзины в ириложении нокупателя, однако в ней не

предусмотрено изменение содержимого корзины.

Листинг 4-52 Вы найдете в файле ch4\BookShop\order.asp на прилагаемом к книге компакт-диске.

Серверный сценарий, расноложенный на этой странице, вызывает хранимую процедуру LlstOders - ее мы уже описывали ранее в разделах, посвященных покупателя:

- - = 4;

. = connect;

var ID =

ID , - - -4, mmestiWH

var = -

,. 50,

var Pass =

cud.Pa-aieaers.AppernlCF var Language =

adVarChar, adParamOutput, 50,

var -

adParamOutput, 0, 0 );

ramete var RegisterDate =

. . adParamOutput, 8, Oj:

uiiid. Para . : a var RegisterIP =

adVarChar, adParamOutput, 15, }:

Редактирование регистрационных данных покупателя

Эта операция выполняется в два приема. Вначале загружается страница litlil h nrxoiiiibi!! текст которой представлен в листинге 4-53. Она получает сведения о регистрационной . покупателя из базы данных магазина и отображает их в форме. Затем данные формы попадают на страницу User.asp, обновляющую запись в базе данных.

Листинг 4-53 Вы найдете в файле ar.asp на прилагаемом

к книге компакт-диске.

В начале своей работы страница проверяет права

пользователя, разрешая редактирование регистрационных записей :

только администраторам. Затем запуск хранимой процедуры Get-

User, извлекающей регистрационную запись из базы данных. В качестве входного параметра мы передаем этой . идентификатор Connect =

= 15; - . . = 1U;