Создание Web-сайта "Интернет-магазин программного обеспечения"

MultiView1.ActiveViewIndex = 10

ElseIf Request.QueryString("sah") = "7" Then

MultiView1.ActiveViewIndex = 11

ElseIf Request.QueryString("sah") = "8" Then

MultiView1.ActiveViewIndex = 12

ElseIf Request.QueryString("sah") = "9" Then

MultiView1.ActiveViewIndex = 13

ElseIf Request.QueryString("sah") = "10" Then

MultiView1.ActiveViewIndex = 14

ElseIf Request.QueryString("sah") = "success" Then

MultiView1.ActiveViewIndex = 2

success_regis.Text = "Регистрация прошло успешно!"

success_regis1.Text = "Registration passed with success!"

ElseIf Request.QueryString("sah") = "error" Then

MultiView1.ActiveViewIndex = 3

lblerror.Text = "Администратор еще не дал доступа!"

lblerror1.Text = "The Admin (Manager) did not give an access!"

ElseIf Request.QueryString("sah") = "error1" Then

MultiView1.ActiveViewIndex = 3

lblerror.Text = "Пороль или логин не правильно"

lblerror1.Text = "Password or login was entered by mistake!"

ElseIf Request.QueryString("sah") = "error2" Then

MultiView1.ActiveViewIndex = 3

lblerror.Text = "Обязательно вводите пароль и логин!"

lblerror1.Text = "You have to enter the login and password!"

ElseIf Request.QueryString("sah") = "zabili_parol" Then

MultiView1.ActiveViewIndex = 15

End If

End If

If Request.Form("bt_vos") <> "" Then

query_sql = "SELECT * FROM users where pnumber='" & Request.Form("txt1p") & "' and sekret_vop='" & Request.Form("txt2s") & "'"

connectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Inetpub\wwwroot\www.softkey.tj\data\base.mdb"

con_access = New OleDbConnection(connectionString)

con_access.Open()

cmd_access = New OleDbCommand(query_sql, con_access)

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

Do While reader_access.Read()

lbl_zabil.Text = "Ваш логин= " & reader_access(8) & "; Ваш пароль= " & reader_access(9)

Exit Do

Loop

Else

lbl_zabil.Text = "Ваш номер телефон или ваш секретный вопрос неправленый!!! End If

reader_access.Close()

con_access.Close() End If

jins.Items.Clear()

jins.Items.Add("")

jins.Items.Add("Жен")

jins.Items.Add("Муж")

For i = 1 To 31

ruz.Items.Add(i)

Next

For j = 1 To 12

moh.Items.Add(j)

Next

For k = 1945 To Date.Now.Year

sol.Items.Add(k)

Next

End Sub

Далее посмотрим, как произойдёт чтение данные из база данных. Для того чтобы все успешно завершилось впервые надо объявить библиотеку Imports System. Data.Oledb и после этого библиотеки надо объявить еще три вспомагательное перемнные для завершения работы. Первый переименую, объявим как OledbConnection, которая используется для подключения база данных, вторая переменная используется как OledbCommand для отправки запросов, третье это переменная используется как OledbDataReader для результата запроса.

После этой работы надо обязательно дать адрес нашего база данных для успешного подключения и для обработки данных.

(connectionString="Provider=Microsoft.Jet.Oledb.4.0;DataSource=C:\Inetpub\wwwroot\www.softkey.tj\data\base.mdb")

После определения адрес база данных (MS Access), надо дать запросов для получения результата (Dim query_sql As String = "SELECT * FROM product where status=1 and id_catalog=5"), после исполнения этих запросов, вводится конкретный результат нашего запроса. Итак, после нажатия гиперссылки «Прочие» в главном странице увидим результат нашего запроса, смотрите на рис.4.1.

Рис 4.1Результат запроса

Второй способ подключения к базе данных это с помощью элемента AccessDataSource. Этот способ я использовал для сохранения данные регистрационного форме, когда пользователь без ошибки сделает регистрацию. Когда пользователь нажмет на кнопку «Регистрация», сначала идет проверка на ошибку если не найдет ошибку то данные успешно сохраняется в базе данных. Перед сохранением данные файл Savetodb.aspx.vb обрабативает и сохроняет данные о регистрациях.

Листинг 4.2 Код проверки данные регистрационной форме

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

If txtnom.Text <> "" And txtnasab.Text <> "" And txtmdname.Text <> "" And suroga.Text <> "" And pnumber.Text <> "" And

txtlogin1.Text <> "" And txtpassword1.Text <> "" And txtsekret.Text <> "" Then

Dim connectionString As String = ""

Dim query_sql As String = "SELECT * FROM users where login='" & txtlogin1.Text & "'"

connectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Inetpub\wwwroot\www.softkey.tj\data\base.mdb"

con_access = New OleDbConnection(connectionString)

cmd_access = New OleDbCommand(query_sql, con_access)

con_access.Open()

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

reader_access.Read()

If reader_access(8).ToString = txtlogin1.Text Then

regis_error.Text = "Ощибка: Такой логин уже существует!"

regis_error1.Text = "Error: The login which you entered is busy!"

End If

Else

regis_error.Text = ""

regis_error1.Text = ""

Button1.PostBackUrl = "~/data/Savetodb.aspx"

reader_access.Close()

con_access.Close()

End If

End If

End Sub

End Class



Рис 4.2 Заполнение регистрационной формы

Как уже нам известно, из листинга 4.2 , когда нажимаем на кнопку «Регистрация» то полностью проверить регистрационную форму если ошибка не найдет то данные отправляется в файл “Savetodb.aspx. Итак, посмотрим, как данные обрабатывается в файле «Savetodb.aspx». Дополнительный код обработки данных показано на листинги 4.3.

Листинг 4.3 Код программы, для добавления, данные в базу данных

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim prev As Page = PreviousPage

If prev.IsPostBack Then

Dim tname As TextBox = prev.FindControl("txtnom")

Dim tlastname As TextBox = prev.FindControl("txtnasab")

Dim tmdname As TextBox = prev.FindControl("txtmdname")

Dim jins As DropDownList = prev.FindControl("jins")

Dim ruz As DropDownList = prev.FindControl("ruz")

Dim moh As DropDownList = prev.FindControl("moh")

Dim sol As DropDownList = prev.FindControl("sol")

Dim sanai_tavallud As String

sanai_tavallud = ruz.SelectedValue & "/" & moh.SelectedValue & "/" & sol.SelectedValue

Dim suroga As TextBox = prev.FindControl("suroga")

Dim pnumber As TextBox = prev.FindControl("pnumber")

Dim tlogin As TextBox = prev.FindControl("txtlogin1")

Dim tpassword As TextBox = prev.FindControl("txtpassword1")

Dim tsekret As TextBox = prev.FindControl("txtsekret")

Dim sql_query As String = ""

sql_query = "insert into users(nom,sname,mdname,jins,sanai_tavallud,suroga,pnumber,login,parol,sekret_vop) values ('" & tname.Text & "','" & tlastname.Text & "','" & tmdname.Text & "','" & jins.SelectedValue & "','" & sanai_tavallud & "','" & suroga.Text & "','" & pnumber.Text & "','" & tlogin.Text & "','" & tpassword.Text & "','" & tsekret.Text & "')"

AccessDataSource1.InsertCommand = sql_query

AccessDataSource1.Insert()

Response.Redirect("../default.aspx?sah=success")

Else

Response.Redirect("../default.aspx?sah=error")

End If

End Sub

End Class

Мы узнали, что с помощью кода из листинга 4.3 данные сохраняется в базу данных, которые отправлено из страницы Previos Page (из страницы Default.aspx), информацию которые мы получаем, сохраняем в отдельную переменную и с помощью запроса “Insert()” добавляем данные в таблицу. Итак, для того чтобы быть уверенным проверяем базу данных, которые существует данные из рисунка 4.2 или нет. Результат добавление данные в БД из регистрационной форме показано в рис.4.3.

Рис 4.3 Результат запроса на добавление

Информация пользователя успешно сохранена, итак пользователь имеет доступ к сайтам при входе систему еще шаг осталось. Чтобы пользователь беспокойно входил в систему, администратор сайта должен подтвердит последнюю пользователь, которая, сделал регистрацию. Для того чтобы сделать администратор должен войти в систему и сделать статус последнего пользователя равным 2. Когда статус равняется 2, то пользователь может входить систему и сделать покупку в нашем интернет магазине.

5. СОЗДАНИЕ СТРАНИЦЫ ПОЛЬЗОВАТЕЛЯ (USER)

Страница пользователи доступен для тех который, уже зарегистрировались, имеет доступ для входа в систему. Страница пользователи можно сказать основным страницам, потому что когда пользователь входит в сайт то его возможность по больше, будет покупать продукты, узнать состояние своего корзины покупок, может видеть свою последнюю дату визита и его количество входов в страницу. А также пользователь может узнать новостей недели, может управлять своим корзинам (удалять ненужные продукты), может выбрать любую продукту с любым количеством и может узнать сумму своего продукта из корзины покупок.

Также в страницу пользователя использовано табличный дизайн и подключено в базу данных, для сохранения, данные о пользователя. HTML-код страницы показано на листинги 5.1.

Листинг 5.1 HTML-код страницы пользователя

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="user.aspx.vb" Inherits="users_user" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head runat="server">

<title>Страница пользователя</title>

</head>

<body bgcolor="#77A9E2">

<form id="form1" runat="server">

<div align="center">

<asp:Table ID="Table1" runat="server" CellPadding="0" CellSpacing="0" Width="900px"

BackColor="#77A9E2" Height="700px" BorderStyle="None">

<asp:TableRow ID="TableRow1" runat="server">

<asp:TableCell ID="TableCell1" runat="server" ColumnSpan="3" HorizontalAlign="center"

Height="210px" ForeColor="White">

<asp:Image ID="Image1" runat="server" ImageUrl="~/images/Banner.jpg" Height="140" />

<br />

<br />

<asp:Table ID="Table7" runat="server" Width="900px">

<asp:TableRow>

<asp:TableCell ColumnSpan="3" HorizontalAlign="Right">

<asp:Label ID="saveusinfo" runat="server" Text="" Visible="false"></asp:Label>

<asp:Label ID="userinfo" runat="server" Text=""></asp:Label>

<br />

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>

<br />

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell ColumnSpan="3">

<center>

<asp:TextBox ID="searchtxt" runat="server" Visible="false"></asp:TextBox>

<asp:Button ID="btnsearch" runat="server" Text="Search" BorderWidth="1" Visible="false" />

</center>

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow ID="TableRow2" runat="server">

<asp:TableCell ID="TableCell2" runat="server" ColumnSpan="1" VerticalAlign="Top"

Width="200px">

<asp:Table ID="Table2" runat="server" CellPadding="0" CellSpacing="0">

<asp:TableRow ID="TableRow3" runat="server">

<asp:TableCell ID="TableCell3" runat="server" BorderWidth="0px" HorizontalAlign="Center"

VerticalAlign="Top">

<a href="user.aspx?sah=1">

<asp:Image ID="Image2" runat="server" ImageUrl="~/images/header_btn2.gif" />

</a>

<%--Кнопкаи 1 адреси расмаш--%>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow ID="TableRow4" runat="server">

<asp:TableCell ID="TableCell4" runat="server" BorderWidth="0px" HorizontalAlign="Center"

VerticalAlign="Top">

<a href="user.aspx?sah=2">

<asp:Image ID="Image3" runat="server" ImageUrl="~/images/user_btn3.gif" />

</a>

<%--Кнопкаи 2 адреси расмаш--%>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow ID="TableRow12" runat="server">

<asp:TableCell ID="TableCell13" runat="server" BorderWidth="0px" HorizontalAlign="Center"

VerticalAlign="Top">

<a href="user.aspx?sah=7">

<asp:Image ID="Image8" runat="server" ImageUrl="~/images/header_btn3.gif" />

</a>

<%--Кнопкаи 7 адреси расмаш--%>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow ID="TableRow13" runat="server">

<asp:TableCell ID="TableCell14" runat="server" BorderWidth="0px" HorizontalAlign="Center"

VerticalAlign="Top">

<a href="user.aspx?sah=8">

<asp:Image ID="Image9" runat="server" ImageUrl="~/images/header_btn4.gif" />

</a>

<%--Кнопкаи 8 адреси расмаш--%>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow ID="TableRow8" runat="server">

<asp:TableCell ID="TableCell10" runat="server" BorderWidth="0px" HorizontalAlign="Center"

VerticalAlign="Top">

<a href="user.aspx?sah=9">

<asp:Image ID="Image10" runat="server" ImageUrl="~/images/header_btn5.gif" />

</a>

<%--Кнопкаи 9 адреси расмаш--%>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow ID="TableRow30" runat="server">

<asp:TableCell ID="TableCell44" runat="server" BorderWidth="0px" HorizontalAlign="Center"

VerticalAlign="Top">

<a href="../Default.aspx">

<asp:Image ID="Image11" runat="server" ImageUrl="~/images/exit_btn.gif" />

</a>

<%-- Выход, хохи кнопка сохта чои Hyperlink-ба мон --%>

<asp:Label ID="rememberuser" runat="server" Text="" Visible="false"></asp:Label>

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</asp:TableCell>

<asp:TableCell ID="TableCell8" runat="server" ColumnSpan="1" Width="500px" HorizontalAlign="center"

ForeColor="AliceBlue" VerticalAlign="Top" Style="margin-left: 15px; margin-right: 20px;">

<asp:MultiView ID="MultiView1" runat="server" ActiveViewIndex="0">

<asp:View ID="View1" runat="server">

<center>

<h3>

Главная страница

</h3>

<asp:HyperLink ID="bought" runat="server" NavigateUrl="~/users/user.aspx?sah=2" Visible="false">Куплено</asp:HyperLink>

<%--Добавить информацию--%>

</center>

</asp:View>

<asp:View ID="View2" runat="server">

<asp:Table ID="library" runat="server" HorizontalAlign="Center" ForeColor="Aqua">

<asp:TableRow>

<asp:TableCell ColumnSpan="2" HorizontalAlign="center" ForeColor="WhiteSmoke">

Программы для покупки!

<asp:Table ID="Table4" runat="server" HorizontalAlign="Center">

<asp:TableRow>

<asp:TableCell> Имя: </asp:TableCell>

<asp:TableCell>

<asp:DropDownList ID="name_prog" runat="server">

</asp:DropDownList>

</asp:TableCell>

<asp:TableCell>Количество:</asp:TableCell>

<asp:TableCell>

<asp:DropDownList ID="count_prog" runat="server">

</asp:DropDownList>

<asp:DropDownList ID="narkh" runat="server" Visible="false">

</asp:DropDownList>

</asp:TableCell>

<asp:TableCell>

<asp:Button ID="buy" runat="server" Text="Купить" PostBackUrl="~/data/savetobasket.aspx" />

</asp:TableCell>

</asp:TableRow>

</asp:Table>

<br />

<asp:Label ID="label_2" runat="server" Text=""></asp:Label>

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</asp:View>

<asp:View ID="View3" runat="server">

3 View

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View4" runat="server">

4 View

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View5" runat="server">

5 View

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View6" runat="server">

6 View

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View7" runat="server">

<center>

<h3>

Последние новости</h3>

</center>

<br />

<br />

14.03.2013 Антивирус Касперского + БЕСПЛАТНЫЙ курс английского!<br />

Решили купить антивирус? Самое время! Сообщаем о старте выгодной акции от Лаборатории

Касперского, которая позволит Вам получить бесплатный и очень полезный подарок.

Только до 31 марта, покупая Kaspersky Internet Security 2013, Антивирус Касперского

или Kaspersky Crystal на нашем сайте, Вы получаете в подарок курс английского языка

«Минилекс и Минифраз Гуннемарка» от WordSteps.<br />

Компания: ЗАО "Софткей"<br />

<br />

11.03.2013. Компьютерный самоучитель "РЕПЕТИТОР English" - скидка 20% до конца марта

Типичный пользователь этой программы - человек, уже изучавший английский язык раньше,

в школе или институте, но не удовлетворённый результатами. В лучшем случае, он может

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

ищет слова, которые "всё время крутятся рядом, но никак не вспоминаются". Таких

часто называют 'False Beginners' (ложные новички).<br />

Компания: РЕПЕТИТОР МультиМедиа<br />

<br />

01.03.2013. Вышел Office 365 для малого и среднего бизнеса! Компания Softkey сообщает

о выходе корпоративной версии для малого и среднего бизнеса. Обе версии Вы можете

приобрести в каталоге нашего магазина. Office 365 - это предоставляемая по подписке

служба, которая обеспечивает доступ ко всем приложениям Microsoft и их обновлениям

с любых устройств. Каждый пользователь может установить свой Office 365 на 5 устройств,

включая смартфоны и планшеты.

<br />

Компания: Microsoft<br />

<br />

<br />

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View8" runat="server">

<asp:Table ID="Table5" runat="server" HorizontalAlign="right">

<asp:TableRow>

<asp:TableCell HorizontalAlign="right">

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataKeyNames="id"

DataSourceID="sabad" CellPadding="4" ForeColor="#333333" GridLines="None">

<AlternatingRowStyle BackColor="White" ForeColor="#284775" />

<Columns>

<asp:CommandField ShowDeleteButton="True" />

<asp:BoundField DataField="id" HeaderText="№" InsertVisible="False" ReadOnly="True"

SortExpression="id" />

<asp:BoundField DataField="name_product" HeaderText="Имя программы" SortExpression="name_product" />

<asp:BoundField DataField="miqdor" HeaderText="Количество" SortExpression="miqdor" />

<asp:BoundField DataField="sana" HeaderText="Дата" SortExpression="sana" />

<asp:BoundField DataField="narkh" HeaderText="Цена($)" SortExpression="narkh" />

<asp:BoundField DataField="summa" HeaderText="Сумма" SortExpression="summa" />

</Columns>

<EditRowStyle BackColor="#999999" />

<FooterStyle BackColor="#5D7B9D" Font-Bold="True" ForeColor="White" />

<HeaderStyle BackColor="#5D7B9D" Font-Bold="True" ForeColor="White" />

<PagerStyle BackColor="#284775" ForeColor="White" HorizontalAlign="Center" />

<RowStyle BackColor="#F7F6F3" ForeColor="#333333" />

<SelectedRowStyle BackColor="#E2DED6" Font-Bold="True" ForeColor="#333333" />

<SortedAscendingCellStyle BackColor="#E9E7E2" />

<SortedAscendingHeaderStyle BackColor="#506C8C" />

<SortedDescendingCellStyle BackColor="#FFFDF8" />

<SortedDescendingHeaderStyle BackColor="#6F8DAE" />

</asp:GridView>

</asp:TableCell>

</asp:TableRow>

</asp:Table>

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View9" runat="server">

<center>

<h3>

Уважаемый Покупатель!</h3>

</center>

<br />

Благодарим вас за выбор компании «Софткей» в качестве поставщика лицензионного программного

обеспечения. Мы непрерывно работаем над расширением ассортимента и повышением качества

наших услуг, чтобы вам было удобно и необременительно совершать покупки и оперативно

разрешать свои проблемы.<br />

Отвечаем на часто задаваемые нам вопросы:<br />

1. Что является подтверждением легальности распространения компанией «Софткей» программного

обеспечения?<br />

2. Что для проверяющих органов является подтверждением правомерности владения клиентом

программным обеспечением?<br />

3. Что подтверждает легальность переданного клиенту ПО?<br />

4. Что является гарантией передачи лицензионной продукции в случае передачи прав

на использование ПО?<br />

Компания «Софткей» - первый в России продавец лицензионного программного обеспечения

(программ для ЭВМ). Компания «Софткей» действует на основании лицензионных договоров*

и договоров поставки (договоров купли-продажи)**, заключенных непосредственно с

дистрибуторскими компаниями-поставщиками, авторами, компаниями-разработчиками (ГК

РФ, часть IV, Ст.1272, Ст.1286), что является для Покупателя стопроцентной гарантией

приобретения лицензионных экземпляров программ и прав на использование программ

для ЭВМ. Подтверждением легальности распространения компанией «Софткей» экземпляров

программ и прав на использование программ для ЭВМ, являются копии авторизационных

писем (сертификатов, свидетельств) дистрибуторов, правообладателей, авторов, разработчиков

программного обеспечения, а также информация о коммерческом партнерстве, доступная

на сайте www.softkey.ru и сайтах дистрибуторов, правообладателей, авторов, разработчиков

соответствующих программ для ЭВМ. Подтверждением правомерности владения экземплярами

программного обеспечения и/или правомерности использования программного обеспечения

является соответствующий оформленный и оплаченный Покупателем заказ, размещенный

в системе www.softkey.ru (в том числе на различных аффилированных сайтах). Каждый

такой заказ сопровождается счетом, счетом-фактурой, товарной накладной и/или актом

приема-передачи прав на использование объектов интеллектуальной собственности. Этих

документов вполне достаточно для подтверждения легального приобретения лицензионного

программного обеспечения и правомерности его использования. Если Покупатель получает

экземпляры программ для ЭВМ распространяемых на материальных носителях или в электронной

форме (ГК РФ, часть IV, Ст. 1270, пункт 2, подпункт 2, Ст. 1272), подтверждением

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

коробки, свидетельства (сертификаты или лицензии), содержащие серийные номера или

ключи доступа. Отсутствие лицензионного договора (соглашения или неисключительной

лицензии) с правообладателем на приобретаемый экземпляр программы не ограничивает

Покупателя в правомерном использовании экземпляра программы (ГК РФ, часть IV, Ст.

1272, Ст. 1280). Если Покупателю передаются права на использование программ для

ЭВМ на основании лицензионного договора***, то гарантией передачи лицензионной продукции

являются лицензионные договоры (соглашения), заключаемые (акцептуемые) Покупателем

как правило в форме присоединения (ГК РФ, часть IV, Ст. 1286, пункт 3) в момент

инсталляции (установки) соответствующего ПО или при оформлении заказа в системе

«Софткей". Полные тексты лицензионных договоров (соглашений) доступны для ознакомления

и скачивания в сети Интернет на сайтах правообладателей, авторов, разработчиков

программ, включая сайт «Софткей» (www.softkey.ru), а также в составе демонстрационных

и полных версий соответствующего ПО. В случае приобретения экземпляров программ

в электронном виде рекомендуется распечатать и подписать лицензионные договоры (соглашения),

а также сохранить и распечатать полученные электронные письма с серийными номерами

и ключами доступа.<br />

<br />

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View10" runat="server">

<asp:Label ID="lblsearch" runat="server" Text=""></asp:Label>

<center>

<h2>

<asp:Label ID="lblerror" runat="server" Text=""></asp:Label>

</h2>

</center>

</asp:View>

</asp:MultiView>

</asp:TableCell>

<asp:TableCell ID="TableCell9" runat="server" ColumnSpan="0" VerticalAlign="Top"

Width="200px" ForeColor="White">

<asp:Table ID="Table3" runat="server" Font-Size="Smaller" Style="margin-left: 10px;

margin-right: 10px">

</asp:Table>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow ID="TableRow11" runat="server">

<asp:TableCell ID="TableCell15" runat="server" ColumnSpan="3" HorizontalAlign="Center">

&copy 2013 Все права защищены !

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</div>

<asp:AccessDataSource ID="sabad" runat="server" DataFile="~/data/base.mdb" SelectCommand="SELECT [id], [name_product], [miqdor], [sana], [narkh], [summa] FROM [sabad]"

DeleteCommand="Delete * from sabad where id=@id">

<DeleteParameters>

<asp:Parameter Name="id" Type="int32" />

</DeleteParameters>

</asp:AccessDataSource>

</form>

</body>

</html>

Как мы уже узнали из листинга 5.1, в страници используется кнопка поиска для нахождения нужного продукта. Также было отмечено элемент DropDownList для выбора нужного продукта в корзину и еще было отмечено элемент Gridview которые, используется для вывода продуктов корзины. Технология корзина покупок показано на рис 5.1.

Рис 5.1 Выбор продукта для корзины

После выбора продуктов он добавляется в корзину в нашем случае добавлено две продукти (см. рис 5.2).

Рис 5.2 Технология корзина

Когда пользователь нажимает на кнопку выход, то он покинуть сайт и отправляется в главную страницу Web-сайта. Также код корзины привидено в листинги 5.2.

Листинг 5.2 Код корзины

Imports System.Data.OleDb

Partial Class data_savetobasket

Inherits System.Web.UI.Page

Public connectionString As String

Public con_access As OleDbConnection

Public cmd_access As OleDbCommand

Public reader_access As OleDbDataReader

Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load

Dim prev As Page = PreviousPage

If prev.IsPostBack Then

Dim nom As DropDownList = prev.FindControl("name_prog")

Dim shumora As DropDownList = prev.FindControl("count_prog")

Dim sana As String = Now.Date.Day & "/" & Now.Date.Month & "/" & Now.Date.Year

Dim narkh As DropDownList = prev.FindControl("narkh")

Dim summa As Integer

summa = Val(narkh.SelectedValue) * Val(shumora.SelectedValue)

Dim sql_query As String = ""

sql_query = "insert into sabad(name_product,miqdor,sana,id_user,narkh,summa) values ('" & nom.SelectedValue & "','" & shumora.SelectedValue & "', '" & sana & "','" & Session("id_user") & "', " & narkh.SelectedValue & ", " & summa & ")"

AccessDataSource1.InsertCommand = sql_query

AccessDataSource1.Insert()

Response.Redirect("../users/user.aspx?sah=bought")

Else

Response.Redirect("../default.aspx?sah=error")

End If

End Sub

End Class

Листинг 5.3 Код страницы user

Imports System.Data.OleDb

Imports System.Data

Partial Class users_user

Inherits System.Web.UI.Page

Public connectionString As String

Public con_access As OleDbConnection

Public cmd_access As OleDbCommand

Public reader_access As OleDbDataReader

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Session("id_user") <> "" Then

If Request("sah") = "2" Then

MultiView1.ActiveViewIndex = 1

searchtxt.Visible = True

btnsearch.Visible = True

For i = 1 To 100

count_prog.Items.Add(i)

Next

Dim query_sql As String = "SELECT * FROM product where status=1"

connectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Inetpub\wwwroot\www.softkey.tj\data\base.mdb"

con_access = New OleDbConnection(connectionString)

con_access.Open()

cmd_access = New OleDbCommand(query_sql, con_access)

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

Dim counter1 As Integer = 0

label_2.Text = "<table><tr>"

Do While reader_access.Read()

name_prog.Items.Add(reader_access(1).ToString())

narkh.Items.Add(reader_access(5).ToString())

label_2.Text = label_2.Text & "<td>"

label_2.Text = label_2.Text & "<table border=1 class='tableborder' CellPadding=0 CellSpacing=0>"

label_2.Text = label_2.Text & "<tr><th colspan=2>" & reader_access(1).ToString & "</th></tr>"

label_2.Text = label_2.Text & "<tr><td><img width=100 height=100 src=..\images\product_img\" & reader_access(3).ToString() & " /></td><td>" & reader_access(2).ToString() & "</td></tr>"

label_2.Text = label_2.Text & "</table>"

label_2.Text = label_2.Text & "</td>"

counter1 = counter1 + 1

If counter1 Mod 2 = 0 Then

label_2.Text = label_2.Text & "</tr><tr>"

End If

Loop

label_2.Text = label_2.Text & "</tr></table>"

Else

reader_access.Close()

con_access.Close()

End If

ElseIf Request("sah") = "7" Then

MultiView1.ActiveViewIndex = 6

searchtxt.Visible = False

btnsearch.Visible = False

ElseIf Request("sah") = "8" Then

MultiView1.ActiveViewIndex = 7

sabad.SelectCommand = "select * from sabad where id_user=" & Session("id_user")

searchtxt.Visible = False

btnsearch.Visible = False

ElseIf Request("sah") = "9" Then

MultiView1.ActiveViewIndex = 8

searchtxt.Visible = False

btnsearch.Visible = False

ElseIf Request("sah") = "bought" Then

bought.Visible = True

End If

Else

Response.Write("<h3>Войдите в систему<br /></h3>")

End If

Dim query_sql1 As String = "SELECT * FROM users where id=" & Session("id_user")

query_sql1 = "SELECT * FROM users where id=" & Session("id_user")

connectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Inetpub\wwwroot\www.softkey.tj\data\base.mdb"

con_access = New OleDbConnection(connectionString)

con_access.Open()

cmd_access = New OleDbCommand(query_sql1, con_access)

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

reader_access.Read()

If Session("posledniy_vhod") <> 0 Then

userinfo.Text = "Добро пожаловать " & reader_access(1).ToString & " " & reader_access(2).ToString & "<br/>" & "Ваш последный визит: " & Session("posledniy_vizit") & "<br/>" & "Вы посещали: " & reader_access(12).ToString & "!"

ElseIf Session("posledniy_vhod") = 0 Then

userinfo.Text = "Добро пожаловать " & reader_access(1).ToString & " " & reader_access(2).ToString & "<br/>" & "Вы заходите в сайт первый раз!" & "<br/>" & "Вы посещали: " & reader_access(12).ToString & "!"

rememberuser.Text = reader_access(1).ToString & " " & reader_access(2).ToString

End If

Else

reader_access.Close()

con_access.Close()

End If

End Sub

Protected Sub btnsearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsearch.Click

If searchtxt.Text <> "" Then

MultiView1.ActiveViewIndex = 9

Dim connectionString As String = ""

Dim query_sql As String = "SELECT * FROM product where nom='" & searchtxt.Text & "'"

connectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Inetpub\wwwroot\www.softkey.tj\data\base.mdb"

con_access = New OleDbConnection(connectionString)

con_access.Open()

cmd_access = New OleDbCommand(query_sql, con_access)

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

Dim counter1 As Integer = 0

lblsearch.Text = "<table><tr>"

Do While reader_access.Read()

lblsearch.Text = lblsearch.Text & "<td>"

lblsearch.Text = lblsearch.Text & "<table border=1 class='tableborder' CellPadding=0 CellSpacing=0>"

lblsearch.Text = lblsearch.Text & "<tr><th colspan=2>" & reader_access(1).ToString & "</th></tr>"

lblsearch.Text = lblsearch.Text & "<tr><td><img width=100 height=100 src=..\images\product_img\" & reader_access(3).ToString() & " /></td><td>" & reader_access(2).ToString() & " </td></tr>"

lblsearch.Text = lblsearch.Text & "<tr><br>"

lblsearch.Text = lblsearch.Text & "</tr>"

lblsearch.Text = lblsearch.Text & "</table>"

lblsearch.Text = lblsearch.Text & "</td>"

counter1 = counter1 + 1

If counter1 Mod 2 = 0 Then

lblsearch.Text = lblsearch.Text & "</tr><tr>"

End If

Loop

lblsearch.Text = lblsearch.Text & "</tr></table>"

lblerror.Text = "Результат поиска: Найдено " & counter1.ToString & " - программ(ы)"

Else

reader_access.Close()

con_access.Close()

lblerror.Text = "К сожалению ничего не найдено "

lblsearch.Text = ""

End If

Else

lblerror.Text = "К сожалению ничего не найдено "

End If

End Sub

End Class

6. ПРОВЕРКА ВХОДЯЩЕЙ ИНФОРМАЦИИ ДЛЯ WEB-САЙТА

В этой главе расматриваются все действия совершенные с базой данных Ms Access. Проверка входа является одиним из важнейших задач при программировании и является одним из способов защиты Web-приложения. На правой стороне панели расположена форма входа. Лицо, прошедшее регистрацию имеет возможность при помощи своего логина и пароля войти в систему (при условии разрешения администратора сайта).

После написания логина и пароля на базу отправляется запрос и там после проверки, определяется возможность доступа пользователя. Например, в базе зарегистрированных пользователей имеется Хонкелдиев с логином «Azik» и паролем «aziz123». Однако администратор на данный момент не дал разрешения пользователю войти в систему. На листинге 6.1 показан код проверки зарегистрироаванных и незарегистрироаванных пользователей.

Листинг 6.1 Код проверки формы входа

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim prevpage As Page = PreviousPage

If prevpage.IsPostBack Then

Dim txtlogin As TextBox = prevpage.FindControl("txtlogin12")

Dim txtparol As TextBox = prevpage.FindControl("txtpassword12")

If txtlogin.Text = "Parviz" And txtparol.Text = "3678" Then

Response.Redirect("admin/admin.aspx")

End If

If txtlogin.Text <> "" And txtparol.Text <> "" Then

Dim connectionString As String = ""

Dim query_sql As String = "SELECT * FROM users where login='" & txtlogin.Text & "' and parol='" & txtparol.Text & "'"

connectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Inetpub\wwwroot\www.softkey.tj\data\base.mdb"

con_access = New OleDbConnection(connectionString)

cmd_access = New OleDbCommand(query_sql, con_access)

con_access.Open()

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

reader_access.Read()

If reader_access(10).ToString = "1" Then

Response.Redirect("admin/admin.aspx")

ElseIf reader_access(10).ToString = "2" Then

Session("id_user") = reader_access(0).ToString

Session("posledniy_vizit") = reader_access(13).ToString

Session("posledniy_vhod") = reader_access(12)

Dim query_sql1 As String = "update users set vizit=vizit+1, posledniy_vhod='" & Date.Now & "' where id=" & Session("id_user")

connectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Inetpub\wwwroot\www.softkey.tj\data\base.mdb"

con_access = New OleDbConnection(connectionString)

cmd_access = New OleDbCommand(query_sql1, con_access)

con_access.Open()

reader_access = cmd_access.ExecuteReader()

reader_access.Close()

con_access.Close()

Response.Redirect("users/user.aspx?sah=hello")

Else

Response.Redirect("default.aspx?sah=error")

End If

reader_access.Close()

con_access.Close()

Else

Response.Redirect("default.aspx?sah=error1")

End If

Else

Response.Redirect("default.aspx?sah=error2")

End If

End If

End Sub

Как видно из сомого кода при написании логина и пароля и нажатии кнопки «Вход» все даннии отправляются на другую страницу (Postback). Теперь на другой странице эти данные преобразуется в переменные и с помощью запроса отправляется на проверку. Даже если в базе этот пользователь имеется но его status в таблице равен «0» то вход в систему не разрешается. Это ошибка показана на рис.6.1:

Рис 6.1 Ошибка при входе

Теперь при замене status пользоватля с «0» на «2» имеется возможность входа на страницу пользователя (User).

Рис 6.2 Изменение значения поле status на базе

После изменения status-a пользователь получает доступ в систему. Результат можно увидеть на рис. 6.3:

Рис 6.3 Вход на систему пользователя

7. СОЗДАНИЕ СТРАНИЦЫ АДМИНИСТРАТОРА (ADMIN)

Страница администратора (Admin) необходим для управления информацией, допуска и удаления, изменения и т.д.

В данном Web-приложении страница администратора создана с испоьзованием табличного дизайна. Страница администратора имеет возможность управлять пользователями.

Листинг 7.1 Html- код страницы

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="admin.aspx.vb" Inherits="admin_admin" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head runat="server">

<title>Admin</title>

</head>

<body bgcolor="#77A9E2">

<form id="form1" runat="server">

&nbsp;<div align="center">

<asp:Table ID="Table1" runat="server" CellPadding="0" CellSpacing="0" Width="900px"

Height="700px" BorderStyle="None" BackColor="#77A9E2">

<asp:TableRow ID="TableRow1" runat="server">

<asp:TableCell ID="TableCell1" runat="server" ColumnSpan="3" HorizontalAlign="Center"

Height="180px">

<asp:Image ID="Image1" runat="server" ImageUrl="~/images/Banner.jpg" />

</asp:TableCell>

</asp:TableRow>

<asp:TableRow runat="server">

<asp:TableCell runat="server" ColumnSpan="3" Height="50px" VerticalAlign="Top">

<a href="admin.aspx?sah=1">

<asp:Image ID="Image2" runat="server" ImageUrl="~/images/admin_btn1.gif" />

</a><a href="admin.aspx?sah=2">

<asp:Image ID="Image3" runat="server" ImageUrl="~/images/admin_btn2.gif" />

</a><a href="admin.aspx?sah=3">

<asp:Image ID="Image4" runat="server" ImageUrl="~/images/admin_btn3.gif" />

</a><a href="admin.aspx?sah=4">

<asp:Image ID="Image5" runat="server" ImageUrl="~/images/admin_btn4.gif" />

</a>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow runat="server">

<asp:TableCell runat="server" Width="170px" BorderWidth="1px" ForeColor="#CCFFFF"

VerticalAlign="Top">

<asp:Table runat ="server" Width="160" HorizontalAlign ="Center" >

<asp:TableRow >

<asp:TableCell Height ="14">

</asp:TableCell>

</asp:TableRow>

<asp:TableRow >

<asp:TableCell ForeColor ="White">

Администратор Сайта

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</asp:TableCell>

<asp:TableCell runat="server" Width="560px" BorderWidth="1px" ForeColor="#CCFFFF">

<asp:Panel ID="Panel1" runat="server">

<asp:MultiView ID="MultiView1" runat="server">

<asp:View ID="View1" runat="server">

<center>

<h2>

Список пользователей!

</h2>

</center>

<br />

<asp:Table ID="Table2" runat="server" HorizontalAlign="Center">

<asp:TableRow>

<asp:TableCell>

<asp:Button ID="update1" runat="server" Text="Правка" />

</asp:TableCell>

<asp:TableCell>

<asp:Button ID="delete1" runat="server" Text="Удаление" />

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>

<asp:Label ID="Label_Id" runat="server" Text="ID:" Visible="False"></asp:Label>

<asp:TextBox ID="Id_update" runat="server" Visible="False"></asp:TextBox>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>

<asp:Label ID="Label_field" runat="server" Text="Имя поле:" Visible="False"></asp:Label>

<asp:TextBox ID="fname" runat="server" Visible="False"></asp:TextBox>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>

<asp:Label ID="Update_txt" runat="server" Text="Изменение :" Visible="False"></asp:Label>

<asp:TextBox ID="update_field" runat="server" Visible="False"></asp:TextBox>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>

<asp:Button ID="tagir" runat="server" Text="OK" Visible="false" />

<asp:Label ID="delete_label" runat="server" Text="ID: " Visible="false"></asp:Label>

<asp:TextBox ID="delete_txt" runat="server" Visible="false"></asp:TextBox>

<asp:Button ID="Delete_btn" runat="server" Text="Удалить" Visible="false" />

</asp:TableCell>

</asp:TableRow>

</asp:Table>

<table id="gridtable" runat="server" cellpadding="0" cellspacing="0" width="250"

align="center">

<tr>

<td align="center" style="margin-top: 4px; width: 250;">

<asp:GridView ID="GridView1" runat="server" Font-Size="Smaller" Font-Names="Palatino Linotype"

PagerStyle-BorderStyle="Inset" DataSourceID="AccessDataSource1" CellPadding="3"

CellSpacing="2" Style="margin-left: 15px; margin-right: 15px; margin-bottom: 15px;

margin-top: 15;" AllowPaging="True" AllowSorting="True" BackColor="#DEBA84" BorderColor="#DEBA84"

BorderStyle="None" BorderWidth="1px" DataKeyNames="id" AutoGenerateColumns="False">

<Columns>

<asp:CommandField ShowDeleteButton="True" ShowEditButton="True" />

<asp:BoundField DataField="id" HeaderText="№" InsertVisible="False" ReadOnly="True"

SortExpression="id" />

<asp:BoundField DataField="nom" HeaderText="Имя" SortExpression="nom" />

<asp:BoundField DataField="sname" HeaderText="Фамилия" SortExpression="sname" />

<asp:BoundField DataField="mdname" HeaderText="Отчество" SortExpression="mdname" />

<asp:BoundField DataField="jins" HeaderText="Пол" SortExpression="jins" />

<asp:BoundField DataField="sanai_tavallud" HeaderText="Дата р/е" SortExpression="sanai_tavallud" />

<asp:BoundField DataField="suroga" HeaderText="Адрес" SortExpression="suroga" />

<asp:BoundField DataField="pnumber" HeaderText="Телефон" SortExpression="pnumber" />

<asp:BoundField DataField="login" HeaderText="Логин" SortExpression="login" />

<asp:BoundField DataField="parol" HeaderText="Пароль" SortExpression="parol" />

<asp:BoundField DataField="status" HeaderText="Статус" SortExpression="status" />

</Columns>

<FooterStyle BackColor="#11729f" ForeColor="#11729f" />

<HeaderStyle BackColor="#11729f" Font-Bold="True" ForeColor="White" />

<PagerStyle BorderStyle="Ridge" BackColor="#11729f" Font-Italic="true" ForeColor="White"

HorizontalAlign="Center"></PagerStyle>

<RowStyle ForeColor="#416e9e" BackColor="#FFF7E7" />

<SelectedRowStyle BackColor="White" ForeColor="#738A9C" />

<SortedAscendingCellStyle BackColor="#FFF1D4" />

<SortedAscendingHeaderStyle BackColor="#B95C30" />

<SortedDescendingCellStyle BackColor="#F1E5CE" />

<SortedDescendingHeaderStyle BackColor="#93451F" />

</asp:GridView>

</td>

</tr>

</table>

</asp:View>

<asp:View ID="View2" runat="server">

<center><h2>

Над сайтом еще работают</h2></center>

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View3" runat="server">

<center><h2>

Над сайтом еще работают</h2></center>

<%--Добавить информацию--%>

</asp:View>

<asp:View ID="View4" runat="server">

<center><h2>

Над сайтом еще работают</h2></center>

<%--Добавить информацию--%>

</asp:View>

</asp:MultiView>

</asp:Panel>

</asp:TableCell>

<asp:TableCell runat="server" Width="170px" BorderWidth="1px" ForeColor="#CCFFFF"

HorizontalAlign="Center" VerticalAlign="Top">

<br />

<asp:HyperLink ID="HyperLink2" runat="server" NavigateUrl="~/Default.aspx">Выход</asp:HyperLink>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow runat="server">

<asp:TableCell runat="server" ColumnSpan="3" Height="50px" HorizontalAlign="Center">

&copy 2013 Все права защищены

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</div>

<asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="~/data/base.mdb"

SelectCommand="SELECT * FROM [users]" UpdateCommand="update users set nom=@nom,sname=@sname,mdname=@mdname,jins=@jins,sanai_tavallud=@sanai_tavallud,suroga=@suroga,pnumber=@pnumber, login=@login,parol=@parol, status=@status where id=@id"

DeleteCommand="delete from users where id=@id" InsertCommand="insert into users (nom,sname,mdname,jins,sanai_tavallud,suroga,pnumber,login,parol,status) values (@nom,@sname,@mdname,@jins,@sanai_tavallud,@suroga,@pnumber,@login,@parol,@status)">

<UpdateParameters>

<asp:Parameter Name="id" Type="int32" />

<asp:Parameter Name="nom" Type="String" />

<asp:Parameter Name="sname" Type="String" />

<asp:Parameter Name="mdname" Type="String" />

<asp:Parameter Name="jins" Type="String" />

<asp:Parameter Name="sanai_tavallud" Type="String" />

<asp:Parameter Name="suroga" Type="String" />

<asp:Parameter Name="pnumber" Type="String" />

<asp:Parameter Name="login" Type="String" />

<asp:Parameter Name="parol" Type="String" />

<asp:Parameter Name="status" Type="Int32" />

</UpdateParameters>

<DeleteParameters>

<asp:Parameter Name="id" Type="int32" />

</DeleteParameters>

<InsertParameters>

<asp:Parameter Name="nom" Type="String" />

<asp:Parameter Name="sname" Type="String" />

<asp:Parameter Name="mdname" Type="String" />

<asp:Parameter Name="jins" Type="String" />

<asp:Parameter Name="sanai_tavallud" Type="String" />

<asp:Parameter Name="suroga" Type="String" />

<asp:Parameter Name="pnumber" Type="String" />

<asp:Parameter Name="login" Type="String" />

<asp:Parameter Name="parol" Type="String" />

<asp:Parameter Name="status" Type="Int32" />

</InsertParameters>

</asp:AccessDataSource>

</form>

</body>

</html>

Как видно на html-коде страницы (Листинг 7.1) , страница имеет баннер и навигационную панель, которая расположена горизонтально. Это Web-страница, то есть страница администратора соеденена с базой данных, что дает возможность управлять данными. Подробнее об управлении данными рассмотрим в следующей главе. Общий вид Web-страницы администратора показан на рис. 7.1:

Рис 7.1 Общий вид страницы администратора

8. УПРАВЛЕНИЕ ДАННЫМИ СО СТОРОНЫ АДМИНИСТРАТОРА

Управление данными является одной из первоочередных задач для администратора. На страницы администратора (Admin) имееются возможности управлять данными пользователей. Внутри страницы администратор может допустить или не допустить люблго пользователя в систему, а также изменять или удалять любую информацию на сайте. Страница соединена с базой данных Ms Access. При помощи AccessDataSource и GridView обеспечивается выполнения запросов и получения необходимого результата. При вводе параметров на объект AccessDataSource, на GridVew появляется возможность удалять изменять и дополнять данные. Ввод параметров показан на листине 8.1.

Листинг 8.1 Ввод параметров на AccessDataSoruce

<asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="~/data/base.mdb"

SelectCommand="SELECT * FROM [users]" UpdateCommand="update users set nom=@nom,sname=@sname,mdname=@mdname,jins=@jins,sanai_tavallud=@sanai_tavallud,suroga=@suroga,pnumber=@pnumber, login=@login,parol=@parol, status=@status where id=@id"

DeleteCommand="delete from users where id=@id" InsertCommand="insert into users (nom,sname,mdname,jins,sanai_tavallud,suroga,pnumber,login,parol,status) values (@nom,@sname,@mdname,@jins,@sanai_tavallud,@suroga,@pnumber,@login,@parol,@status)">

<UpdateParameters>

<asp:Parameter Name="id" Type="int32" />

<asp:Parameter Name="nom" Type="String" />

<asp:Parameter Name="sname" Type="String" />

<asp:Parameter Name="mdname" Type="String" />

<asp:Parameter Name="jins" Type="String" />

<asp:Parameter Name="sanai_tavallud" Type="String" />

<asp:Parameter Name="suroga" Type="String" />

<asp:Parameter Name="pnumber" Type="String" />

<asp:Parameter Name="login" Type="String" />

<asp:Parameter Name="parol" Type="String" />

<asp:Parameter Name="status" Type="Int32" />

</UpdateParameters>

<DeleteParameters>

<asp:Parameter Name="id" Type="int32" />

</DeleteParameters>

<InsertParameters>

<asp:Parameter Name="nom" Type="String" />

<asp:Parameter Name="sname" Type="String" />

<asp:Parameter Name="mdname" Type="String" />

<asp:Parameter Name="jins" Type="String" />

<asp:Parameter Name="sanai_tavallud" Type="String" />

<asp:Parameter Name="suroga" Type="String" />

<asp:Parameter Name="pnumber" Type="String" />

<asp:Parameter Name="login" Type="String" />

<asp:Parameter Name="parol" Type="String" />

<asp:Parameter Name="status" Type="Int32" />

</InsertParameters>

</asp:AccessDataSource>

Теперь для проверки, изменим какую либо инфомацию пользователя, которая находится в базе данных.

Листинг 8.2 Код VB для написания запроса изменения.

Protected Sub tagir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tagir.Click

If Id_update.Text <> "" And fname.Text <> "" And update_field.Text <> "" Then

AccessDataSource1.UpdateCommand = "update users set " & fname.Text & "='" & update_field.Text & "' where id =" & Id_update.Text

AccessDataSource1.Update()

Label_Id.Visible = False

Label_field.Visible = False

Update_txt.Visible = False

Id_update.Visible = False

Id_update.Text = ""

fname.Text = ""

update_field.Text = ""

fname.Visible = False

update_field.Visible = False

tagir.Visible = False

End If

End Sub

В этом коде при нажатии кнопки «Изменение» , данные задаными параметрами подвергаются изменению.



Рис 8.1 Внесение изменений данных пользователя

После нажатии кнопки «OK» столбец c названием status принмает значение «0» , то есть пользователю недаётся возможность входа на страницу «User».

Рис 8.2 Результаты изменения статуса

Теперь рассмотрим программный код управления, который показан на листинге 8.3:

Листинг 8.3 Код страницы

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim page As String

page = Request.QueryString("sah")

If page = "1" Then

MultiView1.ActiveViewIndex = 0

AccessDataSource1.SelectCommand = "Select * from users"

ElseIf page = "2" Then

MultiView1.ActiveViewIndex = 1

ElseIf page = "3" Then

MultiView1.ActiveViewIndex = 2

ElseIf page = "4" Then

MultiView1.ActiveViewIndex = 3

End If

End Sub

В этом коде (Листинг 8.2) , при открытии страницы, нажатии кнопки которая имеет параметр QueryString, появляется вся информация пользователя.

ЗАКЛЮЧЕНИЕ

В результате проделанной работы я углубил свои знания в создании динамического сайта в технологии разработки Internet-приложений и улучшил свои навыки по программе Visual Studio.

В данной курсовой работе использованы языки VBScript или JavaScript (JScript) и VB.net.ASP, что позволило улучшить свои знания в этих языках.

В процессе выполнения данной работы были создано Web-приложение, рассмотрена структура формы регистрации, создана страница пользователя, проведена проверка входа в Web-приложение, управление данными со стороны администратора и т.д. Результаты этого приведены в отчете о работе. Курсовая работа иллюстирована рисунками в количестве 15 штук. Процсесс прогроммирования показано на листингах количество 13 штук.