Авторизация

Программирование на Active Server Pages и VBScript.
novichok_sis
Начинающий
Начинающий
 
Сообщения: 19
Зарегистрирован: 01.10.2007 (Пн) 13:44

Авторизация

Сообщение novichok_sis » 14.01.2008 (Пн) 9:37

Добрый день! Я изучаю ASP.NET на Visual Basic 2005. У меня есть тестовая баз, где есть таблица "Преподаватели". В этой таблице есть их Login и Password. Я хочу сделать такую авторизацию, при которой пользователь-преподаватель заходя на сайт введет свой Login и Password и получитту информацию, которая касается именно его: например расписание этого преподавателя. Я так примерно поняла как это должно быть в начале. Подскажите пожалуйста, что нужно дальше делать???

Protected Sub btnLogin_OnClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim conn As New SqlConnection
conn.ConnectionString = "Data Source=local_mashine;Initial Catalog=Time_Table"
Dim comm As New SqlCommand("select * from Teachers where Login=@Login and Password=@Pass", conn)
comm.CommandType = CommandType.Text

Dim usr As New SqlClient.SqlParameter()
usr.ParameterName = "@Login"
usr.Direction = ParameterDirection.Input
usr.SqlDbType = Data.SqlDbType.Text
usr.Value = tbUserName.Text
comm.Parameters.Add(usr)

Dim pwd As New SqlClient.SqlParameter()
pwd.ParameterName = "@Pass"
pwd.Direction = ParameterDirection.Input
pwd.SqlDbType = Data.SqlDbType.Text
pwd.Value = tbPassword.Text
comm.Parameters.Add(pwd)

Dim dr As SqlDataReader
dr = comm.ExecuteReader

If dr.Read Then
Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!???
End If

Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList