taClass users_userSystem.Web.UI.PageconnectionString As Stringcon_access As OleDbConnectioncmd_access As OleDbCommandreader_access As OleDbDataReaderSub Page_Load (ByVal sender As Object, ByVal e As System.EventArgs) Handles Me . LoadSession ("id_user") <> "" ThenRequest ("sah") = "2" Then.ActiveViewIndex = 1.Visible = True.Visible = Truei = 1 To 100_prog.Items.Add ( i) query_sql As String = "SELECT * FROM product where status = 1" = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = C: Inetpub wwwroot softkey.tj data base. mdb "_access = New OleDbConnection (connectionString) _access.Open () _access = New OleDbCommand (query_sql, con_access) _access = cmd_access.ExecuteReader () reader_access.HasRows = True Thencounter1 As Integer = 0_2.Text =" < ; tr> "While = Label_2.Text & "
" _2.Text = label_2.Text & "
lblerror.Text = "На жаль нічого не знайдено". Text = "" If.Text = "На жаль нічого не знайдено"
End IfSubClass
6. Перевірка вхідної ІНФОРМАЦІЇ ДЛЯ WEB-САЙТУ
У цій главі розглядаються всі дії вчинені з базою даних Ms Access. Перевірка входу є одиним з найважливіших завдань при програмуванні і є одним із способів захисту Web-додатки. На правій стороні панелі розташована форма входу. Особа, яка пройшла реєстрацію має можливість за допомогою свого логіна і пароля увійти в систему (за умови дозволу адміністратора сайту). p align="justify"> Після написання логіна і пароля на базу відправляється запит і там після перевірки, визначається можливість доступу користувача. Наприклад, в базі зареєстрованих користувачів є Хонкелдіев з логіном В«AzikВ» і паролем В«aziz123В». Однак адміністратор на даний момент не дав дозволу користувачеві увійти в систему. На лістингу 6.1 показаний код перевірки зарегістріроаванних і незарегістріроаванних користувачів. br/>
Лістинг 6.1 Код перевірки форми входу
Protected Sub Page_Load (ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Loadprevpage As Page = PreviousPageprevpage.IsPostBack Thentxtlogin As TextBox = prevpage.FindControl ("txtlogin12") txtparol As TextBox = prevpage.FindControl ("txtpassword12") txtlogin.Text = "Parviz" And txtparol.Text = "3678" Then.Redirect ("admin/admin.aspx") Iftxtlogin.Text <> "" ; And txtparol.Text <> "" ThenconnectionString As String = "" query_sql As String = "SELECT * FROM users where login = '" & txtlogin.Text & "' and parol = '"& txtparol.Text &"' "=" Provider = Microsoft.Jet.Oledb.4.0; Data Source = C: Inetpub wwwroot softkey.tj data base.mdb " _access = New OleDbConnection (connectionString) _access = New OleDbCommand (query_sql, con_access) _access.Open () _access = cmd_access.ExecuteReader () reader_access.HasRows = True Then_access.Read () reader_access (10). ToString = "1" Then . Redirect ("admin/admin.aspx") reader_access (10). To...
