В=1>

.следнего : КочанЛЫ</ТН></ТН>

<TR><TD C0LSPAN=4 АШИ=-СЕШТВ >[Нет эа(1цсей]</Т0></ТВ> <Х

else

while EOF)

i != null)

== Administrator )

else ==....

. no продажам ; else . . . . ==

складом ;

else

.m><b.><l=rE. Fioldb( iaie ) , .alue>:></b.></T3>

<TD>&nbsp; . . <TD>

<a . : . . . ;

<a - :

</lD> </TR>

<l

В строку создаваемой таблицы записывается идентификатор сотруд-

ника, используемый им для подключения, его права, время последнего подключения, а также две команды - . . . и Удалить.

учетной записи . выполняется на странице edtma-

nager.asp, а удаление - на странице delmanager.asp. И та, и другая страница по-

ib качестве параметра пользователя из

поля Name текущей строки обрабатываемого набора записей rs.

В последнюю строку таблицы вставляет ссылку Новый сотрудник,

отправляющую администратора на страницу . i Там он сможет создать

запись для нового сотрудника:

<TRXTD - . а. . .- азо taгов1= ва1а >LHaBi,iP

Исходный текст хранимой процедуры LiatMaaagers, с помощью которой сценарий ) получает список сотрудников, представлен в листинге 4-26.

Листинг 4-26 Вы найдете в файле ch4\BookShopScripts\dbo.ListManagers.PRC на прилагаемом к книге компакт-диске.

Эта процедура получает содержимое полей Nana, Rights и LastLogin таблицы managers при помощи оператора SELECT и имеет никаких особен-

ностей:

CREATE PROCEDURE ListManagers AS SELECT Name, Rights, LastLogin FROM managers

Создание iOBil записи

Для создания новой учетной записи сотрудника магазина вызывается страница newmgr.asp, исходный текст которой приведен в листинге 4-27.

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

На этой странице имеется форма, ввести имя и пароль нового

сотрудника, а также выбрать его права из списка:

<table . >

<input

</td>

</trxtr> <td>

<seleGt : . >

<option selected <option

</selectxAd> </tr>

<input </td>

</table>

a/farna

Вы можете указать различные права (они зависят от структуры фирмы), отредактировав набор тегов <0PT10N> в списке <SELECTION>.

Щелчок кнопки Создать отправляет данные, lai.imiaa.iaHBiae в полях формы, на страницу createmgr.asp (листинг 4-28). Расположенный там серверный

сценарий добавляет параметры нового сотрудника в таблицу managers базыдан-ных магазина.

Листинг 4-28 хранится в файле ch4\BookSliop\cfeatemgr.asp на прилагаемом к

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

Добавление новых сотрудников разрешено только администраторам, поэтому в начале своей работы сценарий страницы createmgr.asp проверяет права пользователя, записанные в переменную с именем Rights при аутентифи-

... . Если это администратор, сценарий продолжает свою работу, а если нет, - выводит сообщение о том, что прав недостаточно:

: . . .cliinist

Cijimect - ; ; - - - - - - - : ----- jn };

- .i :.- . = 15;

var cmd = .;

- - = NewMgr ;

= connect;

User , adVarChar, adParaii ; . 50, St( USn )C1)));

cad.Paraiitera.Append(cid.Сra

РжГ. adVarChar, adParamlnput, 50, .- - ---tCPiD-KD));

ead.Parameteri.AppendComd.Cre : .

Rights , adVarChar, adParamlnput, 16, BequesLC B8 ){l)));

cmd. ExecpteO; coaaeet.closaO;

else

<

Далее сценарий соединяется с базой данных и запускает хранимую процедуру NewMgr, - i новую запись в таблице laBaflera, Этой процедуре передаются

три входных параметра, значение которых получено из полей формы создания учетной записи нового сотрудника, рассмотренной нами ранее.

По завершении своей работы сценарий страницы createmgr.asp снова загружает в правый ; главной страницы административного .:. документ

ВвЗ . : . , а);

Теперь в нем появится новая только что добавленная запись.

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

Листинг4-29 находится в файле chftBookShopScriptslclbo.iewiigr.PRCHa прилагаемом к книге компакт-диске.