1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Dim CommandUser As New SqlCommand("select col1,col2,col3,clo4 from USERS", Conn)
'Notons que col1 :login,col2:passwd,col3:Nom,col4:statut'
Dim TheReader As SqlDataReader = CommandUser.ExecuteReader()
if zelogin.Text="root" and zePass.Text="unPasseEnDurPourLeRoot"
session.add("Nom","Administrateur") 'Le nom du login correspondant au login dans la table'
Response.Redirect("Admin/ConnectAdmin.aspx")
else
while TheReader.Read()
if zelogin.Text= TheReader(0) and zePass.Text= TheReader(1) and TheReader(3)="writer"
session.add("Nom",TheReader(2)) 'Le nom du login correspondant au login dans la table'
Response.Redirect("Admin/page1.aspx")
elseif zelogin.Text= TheReader(1) and zePass.Text= TheReader(2) and TheReader(4)="reader"
session.add("Nom",TheReader(2))
Response.Redirect("Read/page2.aspx")
else
Err.Text=" Identifiants Incorrects "
end if
End While
end if
Thereader.Close()
Conn.Close() |
