String = "2" Then ("id_user") = reader_access (0). ToString ("posledniy_vizit") = reader_access (13). ToString ("posledniy_vhod") = reader_access (12) query_sql1 As String = "update users set vizit = vizit +1, posledniy_vhod = '" & Date.Now & "' where id =" & Session ( "id_user") = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = C: Inetpub wwwroot softkey.tj data base.mdb" _access = New OleDbConnection (connectionString) _access = New OleDbCommand (query_sql1, con_access) _access.Open () _access =
Як видно з сомого коду при написанні логіну та паролю і натисканні кнопки В«ВхідВ» все данніі відправляються на іншу сторінку (Postback). Тепер на іншій сторінці ці дані перетвориться в змінні і за допомогою запиту відправляється на перевірку. Навіть якщо в базі цей користувач мається але його status в таблиці дорівнює В«0В» то вхід в систему не дозволяється. Це помилка показана на рис.6.1:
В
Рис 6.1 Помилка при вході
Тепер при заміні status Користувачем з В«0В» на В«2В» є можливість входу на сторінку користувача (User).
В
Рис 6.2 Зміна значення поле status на базі
Після зміни status-a користувач отримує доступ до системи. Результат можна побачити на рис. 6.3:
В
Рис 6.3 Вхід на систему користувача
7. СТВОРЕННЯ СТОРІНКИ АДМИНИСТРАТОРА (ADMIN)
Сторінка адміністратора (Admin) необхідний для управління інформацією, допуску та видалення, зміни і т.д. p align="justify"> У даному Web-додатку сторінка адміністратора створена з іспоьзованія табличного дизайну. Сторінка адміністратора має можливість управляти користувачами. br/>
Лістинг 7.1 Html-код сторінки
< ; head runat = "server">
Admin
