Для восстановления пароля введите номер телефона адрес и секретный вопрос, на который зарегистрирована Ваша учетная запись
Начнем с того, что на сайте общаются сотни людей, разных религий и взглядов, и все они являются полноправными посетителями нашего сайта, поэтому если мы хотим чтобы это сообщество людей функционировало нам и необходимы правила. Мы настоятельно рекомендуем прочитать настоящие правила, это займет у вас всего минут пять, но сбережет нам и вам время и поможет сделать сайт более интересным и организованным.
На нашем сайте нужно вести себя уважительно ко всем посетителям сайта. Не надо оскорблений по отношению к участникам, это всегда лишнее. Если есть претензии — обращайтесь к Админам или Модераторам (воспользуйтесь личными сообщениями). Оскорбление других посетителей считается у нас одним из самых тяжких нарушений и строго наказывается администрацией. У нас строго запрещен расизм, религиозные и политические высказывания.
Заранее благодарим вас за понимание и за желание сделать наш сайт более вежливым и дружелюбным.
— в комментариях запрещаются выражения, содержащие ненормативную лексику, унижающие человеческое достоинство, разжигающие межнациональную рознь
— спам, а также реклама любых товаров и услуг, иных ресурсов, СМИ или событий, не относящихся к контексту обсуждения статьи
Давайте будем уважать друг друга и сайт, на который Вы и другие читатели приходят пообщаться и высказать свои мысли. Администрация сайта оставляет за собой право удалять комментарии или часть комментариев, если они не соответствуют данным требованиям.
Принимаю
Не принимаю
VerticalAlign="Top" ForeColor="white" Font-Bold="true" >Логин:
VerticalAlign="Top" >
onfocus="if (this.value=='Логин') this. value='';" Width="120″ >
VerticalAlign="Top" ForeColor="white" Font-Bold="true" >Пароль:
VerticalAlign="Top" >
onblur="if (this.value=='') this. value='*******';" onfocus="if (this.value=='*******') this. value='';" >
VerticalAlign="Top" ColumnSpan="2″ >
Width="130″ />
Забыли пароль
© 2013 Все правы защищены!
www.softkey.tj
Как видно в листинги 2.1 (HTML-кода) что главная страница Web-сайта состоит из табличных дизайнов, то есть много использовано пара тегов
. Итак расскажем о структурах сайта, как уже мы обе сняли вверху, что страница имеет баннер, правый панель, левый панель, контент и футер. Подробнее расскажем об расположение элементов в этом Web-сайте. Впервые вид дизайна, то есть создано в виде табличного дизайна, которые состоит из три часты, то есть из три
|
. На первом строке расположен баннер Web-сайта, которые стоит внутри
| и его «ColumnSpan=3». Во втором строке расположен левый панель Web-сайта в
| — сначала с таким образом тоже расположено контент и правый панель Web-сайта. А в третий строке расположено элементы, которые относятся в авторских правах сайта, похоже, у тегов баннера и его параметрах.
В левом панели нашего сайта распложено рисунки как ссылка, когда нажмем на этих рисунках, то соответственно ссылкам откроется страница. По вверху рисункам расположена ссылка регистрация, когда нажимаем на эту ссылку, то откроется регистрационная форма (подробнее о регистрационной форме расскажем в следующем главе). В нижней части левого панели расположено три картинка социальных при нажатии этого ссылка пользователь отправляется в социальных сайтах.
Все информацию, которые отображается в Web-сайте, выводится в контенте. Как видно из листинга 2.1 в контенте используется объект Multiview. Этот объект использует внутри себя несколько объектов View, которые отображает разные информации при нажатии в ссылках.
А правом панели нашего расположено две текстовые поля и одного кнопка для входа в систему. И так в последнем линейки нашего главного страница сайта расположена информация об авторских правах.
Вид основного страница нашего Web-сайта показан на рис. 2.3.
Рис 2.3.Вид главной страницы
3. РЕГИСТРАЦИОННАЯ ФОРМА Один из основных формы Web-сайта считается регистрационная форма. Регистрационная форма нужен для регистрации пользователя, чтобы пользователь мог полноценно работать в этом Web-сайте. Сегодня почти все Web-сайты имеет регистрационную форму, которые пользователю даст много возможности пользоваться сайтом. Однако после регистрации пользователя все его данные сохраняется в базе данных Web-сайта. А в другой стороне регистрационная форма обеспечит безопасность Web-сайта, сервер Web-сайта (Администратор) при создании регистрационную форма, его обязательно подключить в базу данных для сохранения все данные о пользователях. При возникновении какой-нибудь проблемы администратор может исправлять ошибки через БД или при нарушении правила сайта администратор может удалить пользователя из база данных. При этом пользователь не может войти в систему.
Листинг 3.1 HTML-код регистрационной формы
Font-Names="Palatino Linotype" Font-Size="Medium" ForeColor="White" HorizontalAlign="Justify" >
Имя
Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True" >
Фамилия
Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True" >
Отчество
Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True" >
Пол
Дата рождение
Адрес
Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True" >
Номер телефона
Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True" >
Логин
Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True" >
ErrorMessage=" Недопустимые символы в логин пользователя, проверти раскладку клавиатуры!!! «
Display="Dynamic" ValidationExpression="w*" ForeColor="Red" >
Пароль
Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True" >
ErrorMessage="Пароль должен быть больше 5-символов и на латинском букве!!!"
Display="Dynamic" ForeColor="Red" ValidationExpression="(?!^[0−9]*$)(?!^[a-zA-Z]*$)^([a-zA-Z0−9]{5,10})$" >
Потверждение
ControlToValidate="txtpassword2″ ErrorMessage="Не совпадает!" ForeColor="Red" >
Ваш секретный вопрос
Display="Dynamic" ErrorMessage=" *" ForeColor="Red" SetFocusOnError="True" >
Итак, расскажем об использовании элементов для создания регистрационного форма. Регистрационная форма расположено внутри 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:Inetpubwwwrootwww.softkey.tjdatabase.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
label2.Text = «
«
Do While reader_access.Read ()
label2.Text = label2.Text & «
«
counter1 = counter1 + 1
If counter1 Mod 2 = 0 Then
label2.Text = label2.Text & «
«
End If
Loop
label2.Text = label2.Text & «
" label2.Text = label2.Text & « «label2.Text = label2.Text & « «label2.Text = label2.Text & « «label2.Text = label2.Text & « « label2.Text = label2.Text & « «label2.Text = label2.Text & « " & reader_access (1).ToString & « |
---|
| » & reader_access (2).ToString () & « | | «label2.Text = label2.Text & « |
|
«
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:Inetpubwwwrootwww.softkey.tjdatabase.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 = «
«
Do While reader_access.Read ()
Label1.Text = Label1. Text & «
«
counter1 = counter1 + 1
If counter1 Mod 2 = 0 Then
Label1.Text = Label1. Text & «
«
End If
Loop
Label1.Text = Label1. Text & «
" Label1.Text = Label1. Text & « «Label1.Text = Label1. Text & « «Label1.Text = Label1. Text & « «Label1.Text = Label1. Text & « « Label1.Text = Label1. Text & « «Label1.Text = Label1. Text & « " & reader_access (1).ToString & « |
---|
| » & reader_access (2).ToString () & « | | «Label1.Text = Label1. Text & « |
|
«
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:Inetpubwwwrootwww.softkey.tjdatabase.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 = «
«
Do While reader_access.Read ()
l_graphics.Text = l_graphics.Text & «
«
counter1 = counter1 + 1
If counter1 Mod 2 = 0 Then
l_graphics.Text = l_graphics.Text & «
«
End If
Loop
l_graphics.Text = l_graphics.Text & «
" l_graphics.Text = l_graphics.Text & « «l_graphics.Text = l_graphics.Text & « «l_graphics.Text = l_graphics.Text & « «l_graphics.Text = l_graphics.Text & « « l_graphics.Text = l_graphics.Text & « «l_graphics.Text = l_graphics.Text & « " & reader_access (1).ToString & « |
---|
| » & reader_access (2).ToString () & « | | «l_graphics.Text = l_graphics.Text & « |
|
«
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:Inetpubwwwrootwww.softkey.tjdatabase.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 = «
«
Do While reader_access.Read ()
l_multi.Text = l_multi.Text & «
«
counter1 = counter1 + 1
If counter1 Mod 2 = 0 Then
l_multi.Text = l_multi.Text & «
«
End If
Loop
l_multi.Text = l_multi.Text & «
" l_multi.Text = l_multi.Text & « «l_multi.Text = l_multi.Text & « «l_multi.Text = l_multi.Text & « «l_multi.Text = l_multi.Text & « « l_multi.Text = l_multi.Text & « «l_multi.Text = l_multi.Text & « " & reader_access (1).ToString & « |
---|
| » & reader_access (2).ToString () & « | | «l_multi.Text = l_multi.Text & « |
|
«
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:Inetpubwwwrootwww.softkey.tjdatabase.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 = «
«
Do While reader_access.Read ()
l_others.Text = l_others.Text & «
«
counter1 = counter1 + 1
If counter1 Mod 2 = 0 Then
l_others.Text = l_others.Text & «
«
End If
Loop
l_others.Text = l_others.Text & «
" l_others.Text = l_others.Text & « «l_others.Text = l_others.Text & « «l_others.Text = l_others.Text & « «l_others.Text = l_others.Text & « « l_others.Text = l_others.Text & « «l_others.Text = l_others.Text & « " & reader_access (1).ToString & « |
---|
| » & reader_access (2).ToString () & « | | «l_others.Text = l_others.Text & « |
|
«
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