Администрирование

Главная страница администратора

Создайте новую главную страницу. Структура страницы может быть такой.

Программный код страницы

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

Response.Redirect("ad_picture.aspx")

End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Response.Redirect("ad_type.aspx")

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Response.Redirect("ad_author.aspx")

End Sub

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

Response.Redirect("ad_news.aspx")

End Sub

Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click

Response.Redirect("ad_new_picture.aspx")

End Sub

Страница добавления картины

Создайте новую страницу содержимого.

Страницы имеет следующие ЭУ.

ЭУ DropDownList с именем ListAuthor на основе запроса Q_Author
ЭУ DropDownList с именем ListType на основе таблицы Type
ЭУ FileUpload1
Текстовое поле txtPrice для ввода ценыю
Текстовое поле TxtYear для ввода года создания
Текстовое поле TxtName для ввода названия

К кнопке <Добавить> привязана следующая процедура.

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'Пользователь не может выбирать папку на удаленном сервере для хранения файла рисунка

'Автоматическое определение папки, где расположено текущее Web приложение

Dim mypath As String = Request.PhysicalApplicationPath

'определение имени, копируемого файла

Dim myfile As String = Me.FileUpload1.FileName

' если файл выбран

If Me.FileUpload1.HasFile = True Then

'В папке Web приложения находится папка IMG, содержащая все рисунки

'Указываем куда необходимо скопировать, выбранный файл

FileUpload1.SaveAs(mypath & "Img\" & FileUpload1.FileName)

End If

'----------------------------

'Добавление в базу информации о картине

Dim СтрокаПодкл As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Web.mdb")

' Создание экземпляра объекта Connection:

Dim CONNECTION = New OleDbConnection(СтрокаПодкл)

CONNECTION.Open()

Dim SQL_запрос As String

Dim COMMAND As New OleDbCommand

' ДОБАВЛЕНИЕ ЗАПИСИ О картине в БД:

' Строка SQL-запроса:

Dim s1 As String, s2 As String

s1 = "INSERT INTO Picture (Название, IDAuthor, IDType, Цена, Год, Фото) VALUES ("

s2 = "'" & TxtName.Text & "', " & ListAuthor.SelectedValue & ", " & ListType.SelectedValue & ", " & txtPrice.Text & ", " & CLng(TxtYear.Text) & ", 'IMG\" & myfile & "')"

'Response.Write("<br><br> " & SQL_запрос)

SQL_запрос = s1 & s2

' Создание объекта Command с заданием SQL-запроса: datetime

COMMAND.CommandText = SQL_запрос

' Для добавления записи в БД эта команда обязательна:

COMMAND.Connection = CONNECTION

COMMAND.ExecuteNonQuery()

Response.Write("<br><br> Данные внесены")

CONNECTION.Close()

End Sub