10949

Интернет-магазин программного обеспечения. Web-сайт с помощью технологии ASP.NET

Курсовая

Информатика, кибернетика и программирование

ВВЕДЕНИЕ Данная работа выполнялась в рамках курса изучения технологии ASP и ASP.NET. Технологии ASP представляют собой среду написания сценариев на стороне сервера которую можно использовать для динамического изменения веб-содержимого. ASP требует знания языков сценариев ...

Русский

2013-01-03

1.48 MB

24 чел.

ВВЕДЕНИЕ

Данная работа выполнялась в рамках курса изучения технологии ASP и ASP.NET. Технологии ASP представляют собой среду написания сценариев на стороне сервера, которую можно использовать для динамического изменения веб-содержимого. ASP требует знания языков сценариев, например, VBScript или JavaScript (JScript).

ASP «встроена» в Internet Information Services (IIS), который является составной частью архитектуры Microsoft для Web-приложений. Роль IIS состоит в связывании клиентов, обращающихся к системе через протокол HTTP, с другими службами Windows.

Напоминаем, что IIS доступен в ОС Windows 2000-2003 или в Windows XP Professional после установки соответствующих компонент Windows. При стандартной установке указанных ОС сервер IIS не доступен.

Если Вы используете встроенные антивирусные средства на Вашем компьютере, то необходимо им запретить блокировку скриптов, иначе, большинство скриптов ASP работать не будет.

Внутри программы Visual Studio 2010 существует технология ASP.NET. В первые дни нашего урока мы познакомились введениями ASP.NET, язык разметки HTML и использование в Visual Studio 2010.

В предлагаемой теме курсовой работы в теме « Интернет-магазин программного обеспечения » старалось включить все знание, которое я изучал из этого курса и закончил свою работу. Все информация в Web-сайте написано в русском языке, который облегчить работу пользователя и будет очень понятным.  

Целью данной работы являются создать Web-сайт с помощью технологии ASP.NET.

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


ОПИСАНИЕ ТЕМЫ

Тема данной курсовой работы является создание Web-сайта для темы « Интернет-магазин программного обеспечения ».

Для создания этого сайта то есть на тему « Интернет-магазин программного  обеспечения », используется программа Visual Studio 2010. В этом сайте в основном используется язык программирование VbScript.

Данный Web-сайт подключено в базу данных (MS Access) при помощи элемента управление AccessDataSource и содержит всё информацию о товарах и пользователях которые уже сделали регистрацию в этот сайт. Когда пользователь сделает регистрацию в данный сайт, то его информация сохраняется в базе данных данного сайта. Также в этом базе данных сохраняется товары, которые пользователь добавляет в свою корзину. Когда пользователь сделает регистрацию, то администратор должен обязательно дать доступ к пользователю для входа в сайт.

Администратор сайта имеет привилегию удаление пользователя из сайта, изменение данных о пользователя и дать доступ пользоваться сайтом или наоборот.

Основное часть работе Web-сайта сделает база данных ( MS Access ), которое сохраняет в себе все данные сайта.

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


2.СТРУКТУРА WEB-САЙТА

Модельная структура. Модельная структура Web-сайта это модель основного страницы сайта, которые показано в рис 2.1.

Модельная структура

Рис 2.1.

Физическая структура. Физическая структура Web-сайта это расположения файла, которые показано в рис 2.2.

  

Физическая структура


Рис 2.2.

Структура текущих Web-сайта соответствует стандартам других сайтов. Первая страница Web-сайта имеет баннер, панель с кнопками управление, которые расположены на левом и на верхним стороне Web-сайта. И еще первой странице Web-сайта присутствует контент, которые отображает информации Web-сайта. Внизу страницы вставлено информация о правах автора и еще вставлено гиперссылка, которые возвращает пользователя в главную страницу Web-сайта. В главной странице сайта расположено регистрационная форма, которая пользователь может легко сделать регистрацию и после администраторского доступа может легко войти в систему.

В главном странице сайта приведено немного информации о сайте и вставлено электронный адрес администратора для отправления сообщение к администратору. Код главной странице сайта приведено на листинге 2.1.

Листинг 2.1 HTML- код главной страницы

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

<!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" method="post">

<div align="center">

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

BackColor="#77a9e2" Height="850px" BorderStyle="None">

<asp:TableRow runat="server">

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

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

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell ColumnSpan="3">

<asp:HyperLink ID="HyperLink3" runat="server" NavigateUrl="default.aspx?sah=1">

<asp:Image ID="Image7" runat="server" ImageUrl="~/images/header_btn1.gif" Width="170" /></asp:HyperLink>

<asp:HyperLink ID="HyperLink4" runat="server" NavigateUrl="default.aspx?sah=2">

<asp:Image ID="Image4" runat="server" ImageUrl="~/images/header_btn2.gif" Width="170" /></asp:HyperLink>

<asp:HyperLink ID="HyperLink5" runat="server" NavigateUrl="default.aspx?sah=3">

<asp:Image ID="Image6" runat="server" ImageUrl="~/images/header_btn3.gif" Width="170" /></asp:HyperLink>

<asp:HyperLink ID="HyperLink6" runat="server" NavigateUrl="default.aspx?sah=4">

<asp:Image ID="Image8" runat="server" ImageUrl="~/images/header_btn4.gif" Width="170" /></asp:HyperLink>

<asp:HyperLink ID="HyperLink7" runat="server" NavigateUrl="default.aspx?sah=5">

<asp:Image ID="Image9" runat="server" ImageUrl="~/images/header_btn5.gif" Width="170" /></asp:HyperLink>

<br /><br /><br />

</asp:TableCell>

</asp:TableRow>

<asp:TableRow runat="server">

<asp:TableCell runat="server" ColumnSpan="1" VerticalAlign="Top" Width="200px" HorizontalAlign="Center">

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

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

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

VerticalAlign="Top">

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

</asp:TableCell>

</asp:TableRow>

</asp:Table>

<asp:HyperLink ID="HyperLink13" runat="server" NavigateUrl="default.aspx?sah=pravila_sayta">Регистрация</asp:HyperLink><br /><br />

<asp:HyperLink ID="HyperLink8" runat="server" NavigateUrl="default.aspx?sah=6">

<asp:Image ID="Image2" runat="server" ImageUrl="~/images/header_btn6.gif" Width="170" /></asp:HyperLink><br />

<asp:HyperLink ID="HyperLink9" runat="server" NavigateUrl="default.aspx?sah=7">

<asp:Image ID="Image3" runat="server" ImageUrl="~/images/header_btn7.gif" Width="170" /></asp:HyperLink><br />

<asp:HyperLink ID="HyperLink10" runat="server" NavigateUrl="default.aspx?sah=8">

<asp:Image ID="Image10" runat="server" ImageUrl="~/images/header_btn8.gif" Width="170" /></asp:HyperLink><br />

<asp:HyperLink ID="HyperLink11" runat="server" NavigateUrl="default.aspx?sah=9">

<asp:Image ID="Image11" runat="server" ImageUrl="~/images/header_btn9.gif" Width="170" /></asp:HyperLink><br />

<asp:HyperLink ID="HyperLink12" runat="server" NavigateUrl="default.aspx?sah=10">

<asp:Image ID="Image12" runat="server" ImageUrl="~/images/header_btn10.gif" Width="170" /></asp:HyperLink>

<br /><br /><br />

<asp:Table ID="Table6" runat="server">

<asp:TableRow>

<asp:TableCell>

<asp:HyperLink ID="HyperLink15" runat="server" NavigateUrl="http://www.facebook.com">

<asp:Image ID="Image13" runat="server" ImageUrl="~/images/facebook.png" Width="40"

Height="40" /></asp:HyperLink>

<asp:HyperLink ID="HyperLink14" runat="server" NavigateUrl="http://www.vk.ru">

<asp:Image ID="Image14" runat="server" ImageUrl="~/images/vk.png" Width="40" Height="40" /></asp:HyperLink>

<asp:HyperLink ID="HyperLink2" runat="server" NavigateUrl="http://www.mail.ru">

<asp:Image ID="Image15" runat="server" ImageUrl="~/images/agent.png" Width="40" Height="40" /></asp:HyperLink>

</asp:TableCell>

</asp:TableRow>

</asp:Table>

<asp:Table ID="left_panel1" runat="server">

<asp:TableRow>

<asp:TableCell HorizontalAlign="center">

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

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</asp:TableCell>

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

</asp:View>

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

<center>

<h2>

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

<h2>

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

</center>

</asp:View>

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

<center>

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

<h3><asp:Label ID="lblerror1" runat="server" Text="" ForeColor=""></asp:Label></h3>

</center>

</asp:View>

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

<center>

<h3><a href="http://www.softkey.ru/catalog/company.php?ID=1001">1С-Битрикс</a></h3>

</center>

«1С-Битрикс» - совместное предприятие, созданное фирмой «1С» и ООО «Битрикс». «1С-Битрикс»

обладает правами продажи продукта «1С-Битрикс: Управление сайтом» на территории

стран СНГ, занимается развитием и продвижением продукта, а также построением партнерской

сети для его распространения, внедрения и поддержки. Компания Софткей является дистрибьютором

1C-Bitrix в России.<br />

E-Mail: <a href='mailto:info@1c-bitrix.ru'>info@1c-bitrix.ru</a><br />

Веб-сайт: <a href='http://www.1c-bitrix.ru'>www.1c-bitrix.ru</a><br />

Телефон: (495) 775-26-18<br />

Программ:10<br />

<br />

<center>

<h3>

<a href='http://www.softkey.ru/catalog/company.php?ID=12537'>RAR Lab</a></h3>

</center>

<br />

Компания win.rar GmbH's (Ltd.) была основана в феврале 2002 года в Бремене, Германия.

Компания занимается продвижением программного обеспечения WinRAR, написанного и

разработанного российским программистом Евгением Рошалем. Компания Софткей является

дистрибьютором WinRAR в России и оказывает техническую и маркетинговую поддержку

на территории России.<br />

Веб-сайт: <a href='http://www.win-rar.ru/'>www.win-rar.ru</a><br />

Телефон: +74959807250

<br />

Программ: 4<br /><br />

<center><h3>

<a href='http://www.softkey.ru/catalog/company.php?ID=24571'>Microsoft</a></h3></center><br />

Корпорация Microsoft является признанным мировым лидером в производстве программного

обеспечения, предоставлении услуг и разработке интернет-технологий для персональных

компьютеров и серверов. Компания предлагает широкий спектр программных продуктов

для делового и личного применения, которые позволяют существенно повысить эффективность

труда и использовать новейшие достижения информационных технологий на работе, дома

и при обучении.<br />

E-mail: <a href='mailto:info@microsoft.ru'>info@microsoft.ru</a><br />

Веб-сайт: <a href='http://www.microsoft.com/rus'>www.microsoft.com/rus</a><br />

Телефон: +7-495-745-5445<br />

Программ: 151<br />

<br />

<center>

<h3>

<a href='http://www.softkey.ru/catalog/company.php?ID=105258'>Eset</a></h3>

</center>

<br />

Компания ESET — международный разработчик антивирусного программного обеспечения

и решений в области компьютерной безопасности для корпоративных и домашних пользователей

— была основана в 1992 году. Штаб-квартиры ESET находятся в г. Братислава, Словакия

и в г. Сан-Диего, США. Компания представлена более чем в 160 странах мира. ESET

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

позволяют детектировать и обезвреживать как известные, так и новые вредоносные программы.<br />

Телефон: +7 (495) 981-01-57

<br />

Программ: 20<br />

<br />

<center>

<h3>

<a href='http://www.softkey.ru/catalog/company.php?ID=3025'>Acronis</a></h3>

</center><br />

Компания Acronis является технологическим лидером в разработке системных решений

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

<a href='http://www.acronis.ru/homecomputing/products/trueimage/'>копированию данных</a>,

управлению загрузкой операционных систем, редактированию дисков, надежному уничтожению

данных, и прочих системных средств. Среди наших разработок популярные во всем мире

продукты Acronis True Image, Acronis OS Selector, Acronis Privacy Expert, Acronis

Migrate Easy, Acronis Disk Editor, Acronis Recovery Expert, а также несколько новых

продуктов, которые будут доступны в ближайшем будущем. Программное обеспечение Acronis

— соединение уникальных технологий и непревзойденного удобства использования, до

сих пор не доступных в конкурирующих продуктах. Наши пользователи могут быть уверены

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

ценах. Продукты Acronis доступны по электронной загрузке, в продаже в коробочном

исполнении, в виде лицензии на использование для установки консультантами, а также

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

для партнеров и полную поддержку их реселлеров и дистрибьюторов. Компания Софткей

является интернет дистрибьютором Acronis в России и оказывает маркетинговую поддержку

на территории России.<br />

Все корпоративные продукты продаются ТОЛЬКО с технической поддержкой (AAS или AAP).<br />

E-Mail: <a href='mailto:info@aflex.ru'>info@aflex.ru</a>

<br />

Веб-сайт: <a href='http://www.paragon.ru'>www.paragon.ru</a><br />

Программ: 17<br />

<br />

<center>

<h3>

<a href='http://www.softkey.ru/catalog/company.php?ID=48941'>Adobe Systems Russia</a></h3>

</center>

<br />

Компания Adobe Systems основана в 1982 и, на сегодняшний день, является ведущим

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

Ежегодные доходы компании приближаются к $ 1 миллиарду. Программы компании имеют

награды за лучшие решения в области дизайна, графики и работы с Web-контентом. В

компании работает более чем 2.400 служащих во всем мире. Adobe Systems имеет свои

филиалы в Северной Америке, Европе, Тихоокеанском регионе, Японии и Латинской Америке.

Этот раздел посвящен программным продуктам знаменитого разработчика решений для

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

компании Adobe. Богатый инструментарий Dreamweaver, открытость приложения для всевозможных

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

популярности этого HTML-редактора. Adobe acrobat – известный всем без исключения

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

массу возможностей для обмена идеями и управления работой креативной команды. Наиболее

известная версия для профессионалов Adobe Acrobat 11 Professional Adobe Acrobat

11 Professional В разделе пользователь может ознакомиться с профессиональным решением

Adobe illustrator, оптимальной и универсальной средой работы с векторной графикой.

Adobe photoshop, без преувеличения – флагманский продукт разработчика, активно использующийся

не только в полиграфии, но и веб-дизайне. Его многочисленные преимущества оценили

не только профессионалы, но и любители. Последнее решение Adobe photoshop обеспечивает

пользователю контроль даже над трехмерными объектами, предлагает новые возможности

анимации и усовершенствованный анализ изображения. Adobe – это масса возможностей

монтажа, создания спецэффектов, широкий просто.<br />

Веб-сайт: <a href='http://www.adobe.com/ru/'>www.adobe.com/ru/</a><br />

Телефон: 8 800 333 3663<br />

Программ: 48<br /><br /><br />

</asp:View>

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

<center>

<h2>Главная страница WEB-сайта</h2></center>

Данный Web-сайт относиться к теме “Интернет-магазин программного обеспечения”. В

этот Web-сайт использовано язык HTML и язык VB-Script. Автор этого сайта старался

все, что он знает о языках HTML и Visual Basic включить в этот сайт для улучшения

его работы. И еще автор этого сайта старается, что в будущем сделать свой сайт еще

лучше и безопаснее. Вы можете отправлять свои мнение и вопросы к администраторам

сайта по электронной почте <a href='mailto:par7izpm93@list.ru'>par7izpm93@list.ru

</a>

</asp:View>

<asp:View ID="View8" 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="View9" runat="server">

<center><h1>Для просмотра корзины входите в систему!</h1></center>

</asp:View>

<asp:View ID="View10" 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="View11" runat="server">

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

</asp:View>

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

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

</asp:View>

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

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

</asp:View>

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

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

</asp:View>

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

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

</asp:View>

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

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

<br />

<center>

Для восстановления пароля введите номер телефона адрес и секретный вопрос, на который

зарегистрирована Ваша учетная запись</center><br /><br />

<asp:Table ID="Table7" runat="server">

<asp:TableRow>

<asp:TableCell>Введите ваш номер телефон<br /><br />Введите секретный вопрос

</asp:TableCell>

<asp:TableCell><input type='text' name='txt1p' id='txt1p' /> <br /><br /> <input type='text' name='txt2s' id='txt2s' />

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell ColumnSpan="2" HorizontalAlign="Right"> <br /><input type ='submit' name ='bt_vos' id="bt_vos" value = 'Восстановить' />

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</asp:View>

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

<h3><p><b>Общие правила поведения на сайте:</b></p></h3><p>

Начнем с того, что на сайте общаются сотни людей, разных религий и взглядов, и все

они являются полноправными посетителями нашего сайта, поэтому если мы хотим чтобы

это сообщество людей функционировало нам и необходимы правила. Мы настоятельно рекомендуем

прочитать настоящие правила, это займет у вас всего минут пять, но сбережет нам

и вам время и поможет сделать сайт более интересным и организованным.</p><p>

На нашем сайте нужно вести себя уважительно ко всем посетителям сайта. Не надо оскорблений

по отношению к участникам, это всегда лишнее. Если есть претензии - обращайтесь

к Админам или Модераторам (воспользуйтесь личными сообщениями). Оскорбление других

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

администрацией. <b>У нас строго запрещен расизм, религиозные и политические высказывания.</b>

Заранее благодарим вас за понимание и за желание сделать наш сайт более вежливым

и дружелюбным.</p>

<p><b>На сайте строго запрещено:</b></p>

<p>- сообщения, не относящиеся к содержанию статьи или к контексту обсуждения</p>

<p>- оскорбление и угрозы в адрес посетителей сайта</p>

<p>- в комментариях запрещаются выражения, содержащие ненормативную лексику, унижающие человеческое достоинство, разжигающие межнациональную рознь</p>

<p>- спам, а также реклама любых товаров и услуг, иных ресурсов, СМИ или событий, не

относящихся к контексту обсуждения статьи</p>

<p>Давайте будем уважать друг друга и сайт, на который Вы и другие читатели приходят

пообщаться и высказать свои мысли. Администрация сайта оставляет за собой право

удалять комментарии или часть комментариев, если они не соответствуют данным требованиям.</p>

<p>

При нарушении правил вам может быть дано <b>предупреждение</b>. В некоторых случаях

может быть дан бан <b>без предупреждений</b>. По вопросам снятия писать администратору.</p>

<p><b>Оскорбление</b> администраторов или модераторов также караются <b>баном</b> -уважайте чужой труд.</p>

<center>

<asp:HyperLink ID="HyperLink17" runat="server" NavigateUrl="~/Default.aspx?sah=regis">Принимаю   </asp:HyperLink>

<asp:HyperLink ID="HyperLink18" runat="server" NavigateUrl="~/Default.aspx">   Не принимаю</asp:HyperLink></center>

<br /><br /><br />

</asp:View>

</asp:MultiView>

</asp:TableCell>

<asp:TableCell runat="server" ColumnSpan="1" VerticalAlign="Top" Width="200px" HorizontalAlign="Center">

<asp:Table ID="Table3" runat="server">

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

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

VerticalAlign="Top" ForeColor="white" Font-Bold="true">Логин:  </asp:TableCell>

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

VerticalAlign="Top">

<asp:TextBox ID="txtlogin12" runat="server" value="Логин" onblur="if(this.value=='') this.value='Логин';"

onfocus="if(this.value=='Логин') this.value='';" Width="120"></asp:TextBox>

</asp:TableCell>

</asp:TableRow>

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

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

VerticalAlign="Top" ForeColor="white" Font-Bold="true">Пароль:  </asp:TableCell>

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

VerticalAlign="Top">

<asp:TextBox ID="txtpassword12" runat="server" Width="120" TextMode="Password" value="*******"

onblur="if(this.value=='') this.value='*******';" onfocus="if(this.value=='*******') this.value='';"></asp:TextBox>

</asp:TableCell>

</asp:TableRow>

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

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

VerticalAlign="Top" ColumnSpan="2">

<asp:ImageButton ID="ImageButton1" runat="server" ImageUrl="~/images/enter.gif" PostBackUrl="~/hello.aspx"

Width="130" /><br />

<asp:HyperLink ID="HyperLink16" runat="server" NavigateUrl="~/Default.aspx?sah=zabili_parol">Забыли пароль</asp:HyperLink>

</asp:TableCell>

</asp:TableRow>

</asp:Table>

<asp:Table ID="Table5" runat="server" Width="180" Height="190">

<asp:TableRow>

<asp:TableCell BorderWidth="0" BorderStyle="Ridge" BorderColor="white" HorizontalAlign="Center">

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow runat="server">

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

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

<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="Default.aspx">www.softkey.tj</asp:HyperLink>

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</div>

   

</form>

</body>

</html>

 

Как видно в листинги 2.1 (HTML-кода) что главная страница Web-сайта состоит из табличных дизайнов, то есть много использовано пара тегов <table></table>. Итак расскажем о структурах сайта, как уже мы обе сняли вверху, что страница имеет баннер, правый панель, левый панель, контент и футер. Подробнее расскажем об расположение элементов в этом Web-сайте.  Впервые вид дизайна, то есть создано в  виде табличного дизайна, которые состоит из три часты, то есть из три <tr></tr>. На первом строке расположен баннер Web-сайта, которые стоит внутри <td></td> и его «ColumnSpan=3». Во втором строке расположен левый панель Web-сайта в <td></td>- сначала с таким образом тоже расположено контент и правый панель Web-сайта. А в третий строке расположено элементы, которые относятся в авторских правах сайта, похоже, у тегов баннера и его параметрах.

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

Все информацию, которые отображается в Web-сайте, выводится в контенте. Как видно из листинга 2.1 в контенте используется объект Multiview. Этот объект использует внутри себя несколько объектов View, которые отображает разные информации при нажатии в ссылках.

А правом панели нашего расположено две текстовые поля и одного кнопка для входа в систему. И так в последнем линейки нашего главного страница сайта расположена информация об авторских правах.

Вид основного страница нашего Web-сайта показано  на рис.2.3.

Вид главной страницы

Рис 2.3.

3. РЕГИСТРАЦИОННАЯ ФОРМА

Один из основных формы Web-сайта считается регистрационная форма. Регистрационная форма нужен для регистрации пользователя, чтобы пользователь мог полноценно работать в этом Web-сайте. Сегодня почти все Web-сайты имеет регистрационную форму, которые пользователю даст много возможности пользоваться сайтом. Однако после регистрации пользователя все его данные сохраняется в базе данных Web-сайта. А в другой стороне регистрационная форма обеспечит безопасность Web-сайта, сервер Web-сайта (Администратор) при создании регистрационную форма, его обязательно  подключить в базу данных для сохранения все данные о пользователях. При возникновении какой-нибудь проблемы администратор может исправлять ошибки через БД или при нарушении правила сайта администратор может удалить пользователя  из база данных. При этом пользователь не может войти в систему.

Листинг 3.1 HTML-код регистрационной формы

<asp:TableCell runat="server" ColumnSpan="1" Width="480px" VerticalAlign="Top" Font-Italic="True"

Font-Names="Palatino Linotype" Font-Size="Medium" ForeColor="White" HorizontalAlign="Justify">

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

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

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

<asp:Table ID="Table4" runat="server" HorizontalAlign="center" BorderWidth="2" BorderColor="AliceBlue">

<asp:TableRow>

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

<asp:TableCell>

<asp:TextBox ID="txtnom" runat="server"></asp:TextBox>

<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtnom"

Display="Dynamic" ErrorMessage="   *" ForeColor="Red" SetFocusOnError="True"></asp:RequiredFieldValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Фамилия</asp:TableCell>

<asp:TableCell>

<asp:TextBox ID="txtnasab" runat="server"></asp:TextBox>

<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="txtnasab"

Display="Dynamic" ErrorMessage="   *" ForeColor="Red" SetFocusOnError="True"></asp:RequiredFieldValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Отчество</asp:TableCell>

<asp:TableCell>

<asp:TextBox ID="txtmdname" runat="server"></asp:TextBox>

<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="txtmdname"

Display="Dynamic" ErrorMessage="    *" ForeColor="Red" SetFocusOnError="True"></asp:RequiredFieldValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Пол</asp:TableCell>

<asp:TableCell>

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

</asp:DropDownList>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Дата рождение</asp:TableCell>

<asp:TableCell>

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

</asp:DropDownList>

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

</asp:DropDownList>

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

</asp:DropDownList>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Адрес</asp:TableCell>

<asp:TableCell>

<asp:TextBox ID="suroga" runat="server"></asp:TextBox>

<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="suroga"

Display="Dynamic" ErrorMessage="  *" ForeColor="Red" SetFocusOnError="True"></asp:RequiredFieldValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Номер телефона</asp:TableCell>

<asp:TableCell>

<asp:TextBox ID="pnumber" runat="server"></asp:TextBox>

<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="pnumber"

Display="Dynamic" ErrorMessage="         *" ForeColor="Red" SetFocusOnError="True"></asp:RequiredFieldValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Логин</asp:TableCell>

<asp:TableCell>

<asp:TextBox ID="txtlogin1" runat="server"></asp:TextBox>

<asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server" ControlToValidate="txtlogin1"

Display="Dynamic" ErrorMessage="  *" ForeColor="Red" SetFocusOnError="True"></asp:RequiredFieldValidator>

<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="txtlogin1"

ErrorMessage=" Недопустимые символы в логин пользователя, проверти  раскладку клавиатуры!!! "

Display="Dynamic" ValidationExpression="\w*" ForeColor="Red"></asp:RegularExpressionValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Пароль</asp:TableCell>

<asp:TableCell>

<asp:TextBox ID="txtpassword1" runat="server" TextMode="Password" MaxLength="10"></asp:TextBox>

<asp:RequiredFieldValidator ID="RequiredFieldValidator7" runat="server" ControlToValidate="txtpassword1"

Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True"></asp:RequiredFieldValidator>

<asp:RegularExpressionValidator ID="RegularExpressionValidator2" runat="server" ControlToValidate="txtpassword1"

ErrorMessage="Пароль  должен быть больше 5-символов и на латинском букве!!!"

Display="Dynamic" ForeColor="Red" ValidationExpression="(?!^[0-9]*$)(?!^[a-zA-Z]*$)^([a-zA-Z0-9]{5,10})$"></asp:RegularExpressionValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Потверждение</asp:TableCell>

<asp:TableCell>

<asp:TextBox ID="txtpassword2" runat="server" TextMode="Password" MaxLength="10"></asp:TextBox>

<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToCompare="txtpassword1"

ControlToValidate="txtpassword2" ErrorMessage="Не совпадает!" ForeColor="Red"></asp:CompareValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

<asp:TableCell>Ваш секретный вопрос</asp:TableCell>

<asp:TableCell>

<asp:TextBox ID="txtsekret" runat="server" TextMode="SingleLine"></asp:TextBox>

<asp:RequiredFieldValidator ID="RequiredFieldValidator8" runat="server" ControlToValidate="txtsekret"

Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True"></asp:RequiredFieldValidator>

</asp:TableCell>

</asp:TableRow>

<asp:TableRow>

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

<asp:Button ID="Button1" runat="server" Text="Регистрация" PostBackUrl="~/data/Savetodb.aspx" />

<br />

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

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

<asp:AccessDataSource ID="AccessDataSource1" runat="server"></asp:AccessDataSource>

</asp:TableCell>

</asp:TableRow>

</asp:Table>

</asp:Panel>

</asp:View>

Итак, расскажем об использовании элементов для создания регистрационного форма. Регистрационная форма расположено внутри Multiview в основной странице, которая отображается из контента Web-сайта. При нажатии ссылки «Регистрация» откроется сообщения общие правила поведения  сайта, после соглашения откроется регистрационная форма.

Регистрационная форма создано при использовании элементов Textbox, DropDownList и Button, все из  этих объектов, в линейках расположено в нужном месте. Еще для проверки Textbox-а на пустоту (имеет ли данные или нет) используется элемент проверки Validator, точнее RequiredFieldValidator, которые используется для проверки пустоту или заполнение данные для  нужной Textbox-а. После заполнение всех данных, в регистрационном форме, все данные сохраняется в базу данных (как записать данные и читать данные из БД расскажем в следующем главе ).

Вид регистрационной форме показано на рис 3.1.

Регистрационная форма

Рис 3.1

После нажатия кнопки регистрации пользователю сообщает об успешной регистрации, если существует одинаковые логины, то вводится сообщение об ошибки «такой логин уже существует».


4. ПОДКЛЮЧЕНИЕ WEB-САЙТА К БАЗЕ ДАННЫХ (Microsoft Access)

Подключение Web-сайта к базе данных это из основных работ программиста, без подключения база данных программа или Web-сайт не имеет смысл существования. В этом главе расскажем процесс подключения базы данных в Web-сайт. В основном мы используем три варианта подключения, которые мы изучали в течение курса. Первый вариант подключения база данных с помощью элемента AccessDataSource, которые поддерживает расширения файла (.*mdb , .*accdb). Второй способ подключения база данных при использовании элемента SqlDataSource, которые поддерживает файлы (MS Access) и (SQL). А третий вариант подключения база данных с помощью библиотеки Imports System.Data.Oledb. В текущим Web-сайте использовано только два способа подключения база данных, то есть работы с библиотеками Improts System.Data.OleDb и элементам AccessDataSource.

Итак, приведём примеры по подключению база данных со страницами сайта. Уже мы рассказывали, что в нашем проекте используется только два способа подключения база данных, первый способ с помощью Imports System.Data .OleDb которые используется для просмотра продуктов, второе способ это с помощью элемента которые используется для сохранения данные регистрационной форме в базу данных.

Итак, посмотрим первый способ подключения база данных (Imports System.Data.Oledb), которые используется в файле Default.aspx.vb и считается файл главного страницы.

Посмотрим способ чтения информации и его отображения в контенте, его код показано в листинги 4.1:

Листинг 4.1 Код программы

Imports System.Data.OleDb

Imports System.Data

Partial Class _Default

Inherits System.Web.UI.Page

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

Dim connectionString As String = ""

Dim query_sql As String = "SELECT * FROM product where status=1 and id_catalog=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()

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 & "<tr><br>"

label_2.Text = label_2.Text & "</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>"

End If

Dim query_sql2 As String = "SELECT * FROM product where status=1 and id_catalog=2"

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_sql2, con_access)

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

Dim counter1 As Integer = 0

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

Do While reader_access.Read()

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

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

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

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

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

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

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

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

counter1 = counter1 + 1

If counter1 Mod 2 = 0 Then

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

End If

Loop

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

End If

Dim query_sql3 As String = "SELECT * FROM product where status=1 and id_catalog=3"

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_sql3, con_access)

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

Dim counter1 As Integer = 0

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

Do While reader_access.Read()

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

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

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

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

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

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

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

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

counter1 = counter1 + 1

If counter1 Mod 2 = 0 Then

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

End If

Loop

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

End If

Dim query_sql4 As String = "SELECT * FROM product where status=1 and id_catalog=4"

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_sql4, con_access)

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

Dim counter1 As Integer = 0

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

Do While reader_access.Read()

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

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

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

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

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

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

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

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

counter1 = counter1 + 1

If counter1 Mod 2 = 0 Then

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

End If

Loop

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

End If

Dim query_sql5 As String = "SELECT * FROM product where status=1 and id_catalog=5"

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_sql5, con_access)

reader_access = cmd_access.ExecuteReader()

If reader_access.HasRows = True Then

Dim counter1 As Integer = 0

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

Do While reader_access.Read()

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

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

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

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

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

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

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

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

counter1 = counter1 + 1

If counter1 Mod 2 = 0 Then

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

End If

Loop

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

End If

If Request.QueryString("sah") <> "" Then

If Request.QueryString("sah") = "pravila_sayta" Then

MultiView1.ActiveViewIndex = 16

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

MultiView1.ActiveViewIndex = 0

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

MultiView1.ActiveViewIndex = 4

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

MultiView1.ActiveViewIndex = 6

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

MultiView1.ActiveViewIndex = 7

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

MultiView1.ActiveViewIndex = 8

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

MultiView1.ActiveViewIndex = 9

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

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).

 

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

Рис 6.2

После изменения 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 штук.

Автор данной работы углубил свои знания по теме «Интернет-магазин програмнного обеспечения », получил большое количество сведений о создание динамических  Web-страниц,  научился использовать их в практическом программировании при решении задач разной степени сложности.


СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1.Марко Беллиньясо. Разработка Web-приложений в среде  ASP.NET. 2007г. – 640 с.

2. Д.Рейли. Создание приложений ASP.NET. 2002, 260 с.

3. Matthew MacDonald, Mario Szpuszta. ASP.net in C# 2008. Second Edition.

4. Абрамов и др. Задачи по программированию. М.:Наука, Гл.ред.

физ.-мат. лит.1988–2241.

5. Златопольский Д.М. Сборник задач по программированию -

СПб.: БХВ-Петербург, 2007. - 240 с

6. Абрамян М.Э. Programming Taskbook. Электронный задачник по

программированию - Ростов-на-Дону, РГУ, 2007. – 156 с.

7. Юркин А.Г. Задачник по программированию. – Москва, 2002–120с.

8. Зиборов В.В. Visual Basic 2010 на примерах. – СПб.: БХВ-

Петербург, 2010. – 336с.

9. Дейтел Х.М., Дейтел П.Дж. Как программировать для Internet &

WWW. Пер. с англ. – М.: ООО «Бином-Пресс», 2002 г. – 1178 с.

10. Марко Беллиньясо. Разработка Web-приложений в среде ASP.NET.

2007г. – 640 с.

11. Д.Рейли. Создание приложений ASP.NET. 2002, 260 с.


 

А также другие работы, которые могут Вас заинтересовать

42818. установочное приспособление для растачивания отверстия детали «Кронштейн» 1.14 MB
  Изучение закономерности влияния приспособления на точность и производительность выполняемых операций позволяет проектировать приспособления интенсифицирующее производство и повышающее его точность. Проводимая работа по унификации и стандартизации элементов приспособления создала основу для автоматизированного проектирования приспособлений с использованием ЭВМ и автоматов для графического изображения что приводит к ускорению технологической подготовке производства. неподвижная опора с плоской формой рабочей...
42819. Технологический процесс производства детали Вилка 8А67-20275 2.02 MB
  Технологический контроль чертежа детали и анализ детали на технологичность Определяем тип производства по коэффициенту закрепления операций. Определяем величину производственной партии = 1. Определяем массу заготовки: = ; 2. Определяем объем заготовки: = ; 2.
42822. Кондуктор для сверления отверстия в детали Вал 1.2 MB
  Изучение закономерности влияния приспособления на точность и производительность выполняемых операций позволяет проектировать приспособления интенсифицирующее производство и повышающее его точность. Проводимая работа по унификации и стандартизации элементов приспособления создала основу для автоматизированного проектирования приспособлений с использованием ЭВМ и автоматов для графического изображения что приводит к ускорению технологической подготовке производства.2 Разработка принципиальной схемы приспособления Кондуктор предназначен...
42826. Отопление жилого дома 141.94 KB
  Выбор системы отопления.28 Тепловой расчет отопительных приборов32 Гидравлический расчет системы водяного отопления38 Список литературы. Система отопления: водяная вертикальная однотрубная Вентиляция: естественная Присоединение системы водяного отопления к наружным теплопроводам: со смешением воды с помощью водоструйного элеватора. Параметры теплоносителя Т1Т2: 13070 С Располагаемая разность давлений на вводе ΔP кПа: 120 Тип отопительных приборов: РСГ2 Температура...