Discussion :

[beegees]

Bonjour le forum,

J'ai créé un fichier global.asa que jai mis à la racine de mon site.

J'ai une variable nmatricule.

J'aimerais juste associer la valeur de nmatricule à une variable session.

Cette variable session se souviendra du visiteur si il est authentifier.

Je n'ai aucune idée pour comment procéder ?

J'ai une page qui se trouve ici 164.15.112.38/delibes/index.html

Si un visiteur donne le bon matricule, le bon login et le bon mot de passe, j'aimerais alors que le matricule soit enregistré dans nmatricule et qu'une variable de session soit instancié.

Mais il faudrait le faire pour chaque visiteur.

C'est possible vous pensez ?

Je rajoute mon code :

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
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
 
  Sub Application_OnStart 
 
  End Sub
 
  Sub Session_OnStart
 	Session("nmatricule") ="txtMatriculeBA1"
  End Sub
 
  Sub Session_OnEnd
 
  End Sub
 
</SCRIPT>

"txtMatriculeBA1" correspond à une zone de texte de mon formulaire.

Merci d'avance

[pc75]

Bonjour,

Pour créer une variable de session :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Session("Matricule") = nmatricule

Cette variable sera accessible durant la durée de la session del'utilisateur connecté.

[beegees]

Bonjour,

Pour créer une variable de session :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Session("Matricule") = nmatricule

Salut PC75,

Oh c'est super, ça fonctionne nikel, quel language ce asp3.

Merci !!!!

BGS

Cette variable sera accessible durant la durée de la session del'utilisateur connecté.

[beegees]

Re-bonjour PC75, Re-bonjour le forum,

J'ai parlé un peu vite, désolé.

Quand je rentre sur le formulaire d'authentification, que je met le matricule 123456 + login + mdp et que dans la page cours1.asp je met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
<% if matriculeok = "123456" then
response.Redirect("index.html")
end if
%>

Il me renvoit toujours sur la page d'authentification.

J'ai fais un test, je changé le <> (différent) par un = et la page reste.

ça veut dire pour moi que le numéro de matricule n'est pas attribué à la variable.

Voici le code que j'ai utilisé dans mon global.asa :

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
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
 
  Sub Application_OnStart 
 
  End Sub
 
  Sub Session_OnStart
 	Session("matriculeok") ="txtMatriculeBA1"
  End Sub
 
  Sub Session_OnEnd
 
  End Sub
 
</SCRIPT>

Merci d'avance pour votre aide.

bgs

[pc75]

Re,

Tu ne peux pas initialiser ta variable de session dans le global.asa, car les sub Application_OnStart et Session_OnStar sont éxécutées en premier.

Il faut que tu l'alimentes après.

Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
txtSQL = " select matricule, nom from MaTable where login = '" & Str_Login & "' and pass = '" & Str_pass & "' "
etc ...
if not rst.eof then
   Session("Matricule") = rst("matricule")
   etc ...

[beegees]

Re,



Tu ne peux pas initialiser ta variable de session dans le global.asa, car les sub Application_OnStart et Session_OnStar sont éxécutées en premier.

Il faut que tu l'alimentes après.

Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
txtSQL = " select matricule, nom from MaTable where login = '" & Str_Login & "' and pass = '" & Str_pass & "' "
etc ...
if not rst.eof then
   Session("Matricule") = rst("matricule")
   etc ...

re,

Merci pour ta réponse.

Je comprends ce que tu veux dire, il faut l'alimenter après.

Je peux donc l'alimenter sur ce code, sera-t'elle retenu tout le long de la visite ?

Je l'ai mis dans ce code mais ça n'a pas l'air de fonctionner (je met en gras la partie importante) :

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
 
<%
	dim cnn
	dim rst
	dim nmatricule
	nmatricule = request.Form("txtmatricule")
	matriculeok = nmatricule
 
	Set cnn = Server.CreateObject("ADODB.Connection")
	Set rst = Server.CreateObject("ADODB.Recordset")
	cnn.Open "DSN=delibes"
 
	' Construction de la chaîne SQL
	strSQL = "SELECT * FROM [tblauthentification]" 
 
 
	' Filtre sur les valeurs fournies par le visiteur
	strSQL = strSQL & " WHERE matricule='" & Request.Form("txtmatricule") & "'"
	strSQL = strSQL & " AND [login]='" & Request.Form("txtlogin") & "'"
	strSQL = strSQL & " AND [mdp]='" & Request.Form("txtmdp") & "'"
 
	rst.Open strSQL, cnn
 
	' A-t-on trouvé un adhérent ?
	If rst.EOF Then
		'si la personne ne s'est pas bien identifiée, uniquement le centre de la la page change.
		response.Redirect ("authentificationCF4ESSAIS2.html")				
	Else
		[b]Session("matriculeok") = rst("matricule")[/b]	 		
		response.Redirect (nmatricule) & ".asp"
		End If 
 
		rst.Close
	Set rst = Nothing
	Set cnn = Nothing
		%>

Re-voici le code de mon global.asa :

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
 
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
 
  Sub Application_OnStart 
 
  End Sub
 
  Sub Session_OnStart
 	Session("matriculeok") ="txtMatriculeBA1"
  End Sub
 
  Sub Session_OnEnd
 
  End Sub
 
</SCRIPT>

Merci encore pour ton aide.

bgs

[pc75]

Re,

C'est bien comme ça (PAS dans le global.asa).

Qu'est ce qui te fait dire que ça n'a pas l'air de fonctionner ?

[beegees]

Re,

Pour finir, je pense avoir trouvé.

Je dois mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
<% if session("matriculeok") <> "123456" then
response.Redirect("index.html")
end if
%>

Les erreurs du débutant...

Merci à toi PC75 et bonne soirée.

bgs

[beegees]

Re,

C'est bien comme ça (PAS dans le global.asa).

Qu'est ce qui te fait dire que ça n'a pas l'air de fonctionner ?

Re-salut,

Je t'explique pourquoi je pensais que ça ne fonctionnait pas.

Je changeait simplement le = par <>

Si matricule est <> de 123456 tu laisse la page s'ouvrir autrement tu reviens sur l'index.

Voilà.

Bonne soirée et merci encore pour ton aide.

bgs