salut ,
enfin j'ai trouvé la solution j'ai refai mon code et ça marche
donc je le cole ici pour que tout le monde proffite
config.asp
index.asp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 <% dim Provider dim dbpath ' Chemin de la base de données ' Si votre base est là : htdocs/database/ma_base.mdb ' et si votre page est là : htdocs/_connexion.asp dbPath = Server.MapPath("./pass.mdb") Provider = "DRIVER={Microsoft Access Driver (*.mdb)};" _ & " DBQ=" & dbPath %>
member.asp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81 <% option explicit %> <!-- #include file="config1.asp" --> <% Dim RQuser Dim RQPass RQuser=request.QueryString("user") RQPass=request.QueryString("pass") %> <% if RQuser<>"" and RQPass<>"" then %> <% Dim DB_objConn Set DB_objConn=CreateObject("ADODB.Connection") DB_objConn.Open Provider Dim dataRec_Connection Set dataRec_Connection=CreateObject("ADODB.RecordSet") dataRec_Connection.Open "SELECT * FROM Pass WHERE Nick like'" & RQuser & "' AND Pass='" & RQPAss & "'",DB_objConn Dim UserLevel If dataRec_Connection.EOF then response.Write "<B>Le pseudo ou le pass que vous avez tapé est faux!</B>" else UserLevel=dataRec_Connection("UserLevel") if UserLevel=1 then response.Write "<B>Vous êtes maintenant connecté en tant que SuperAdmin!</B>" elseif UserLevel=2 then response.Write "<B>Vous êtes maintenant connecté en tant qu'Admin!</B>" else response.Write "<B>Vous êtes maintenant connecté en tant que simple utilsateur!</B>" end if '---- Démarre une nouvelle session ---- Session("user")=RQuser Session("Pass")=RQPass Session("UserLevel")=UserLevel response.write Session("user") end if %> <BR><BR> <A href=memberarea1.asp>Aller faire un tour dans la zone membre</A> <% else %> <HTML> <HEAD> <TITLE>Identifiez vous</TITLE> </HEAD> <BODY> <FORM action=index1.asp method=get> Pseudo:<BR> <INPUT type=text name=user><BR> PassWord:<BR> <INPUT type=text name=pass><BR> <INPUT type=submit value="Connection!"> </FORM> <% response.write "l'utilisateur est" response.write Session("user") %> </BODY> </HTML> <% end if %>
nonmember.asp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 <% if session("user")="" and Session("Pass")="" then response.redirect "nonmember.asp" end if %> <HTML> <HEAD> <TITLE>BIenvenue dans la zone membre</TITLE> </HEAD> <BODY> <% if Session("UserLevel")=1 then response.Write "<B>Vous êtes maintenant connecté en tant que SuperAdmin!</B><BR>Vous disposez de tous les droits de modification!" elseif Session("UserLevel")=2 then response.Write "<B>Vous êtes maintenant connecté en tant qu'Admin!</B><BR>Vous disposez de quelques droits de modification!" else response.Write "<B>Vous êtes maintenant connecté en tant que simple utilsateur!</B><BR>Vous ne disposez d'aucun droit de modification!" end if %> <BR><BR><A href=deconnection1.asp>Se déconnecter!</A> </BODY> </HTML>
deconnexion.asp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 <HTML> <HEAD> <TITLE>Vous ne pouvez pas accéder à la zone membre car vous n'êtes pas connecté!</TITLE> </HEAD> <BODY> <A href=index1.asp>Se connecter</A> </BODY>
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 <% session.abandon response.Redirect "index.asp" %> voila a +++
Partager