ASP.NET. Учебный курс (Г.Бучек.)

runat-"server"

>

В Этот элемент управления встраивается раскрывающийся список DropDownList, посредством которого можно вывести на экран перечень книг, выданных данному сотруднику:

<asp:dropdownli s t id-"ddlBooks" runat-server

DataTextField-"BookTitle" DataValueField-"LibBookID"> </a sp:dropdownli s t>

и кнопка, позволяющая возвратить книгу:

<asp:button

id-"butRetun" text-''Воэврат книги" Type-"Submit" OnClick-"Return_Click" runat-"server"

/>

Помимо этого, страница содержит еще и элемент управления HyperLink, служащий для вывода на экран ссылки на страницу Меню библиотекаря. Эта ссылка реализована в виде элемента управления, благодаря чему ее можно скрывать и отображать:

<asp:HyperLink

id-"hypManagersMenu" runat-"serve r"

Text-"Меню библиотекаря" _v

NavigateUrl-"./man_menu.aspx"

/>

Код страницы включает четыре процедуры. Первая из них активизируется при за1рузке страницы.

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) If Len(Session("LibUserlD")) - 0 Then Response. Redirect (". /index. aspx^,r) End If

If Session("UserType") - "Библиотекарь" Then hypManagersMenu.Visible - True

Else

hypManagersMenu.Visible - False End If

If Not IsPostBack Then

Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet

DBConn - New OleDbConnection("Provider-sqloledb;" & "server-localhost;" _ & "Initial Catalog=INETC5;" & "User Id-sa;" & "Password-yourpassword;")