Sono connessi Marco, Matteo, Tua Sorella

[Luca1317]

non ci sto capendo + niente
allora...ho la pagina di login:

<% 
Session.Abandon 
%> 
<form name=data method=post action="index.asp">
  <input type=text...etc etc...

e la pagina di verifica (che ovviamente includerò nelle pagina da proteggere)

<% 
Dim ConnVerifica
Set ConnVerifica=Server.CreateObject("ADODB.Connection")
ConnVerifica.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("o.mdb")
'Se la sessione login è diversa da uno allora esegue la verifica 
if session("login") <> 1 then 
      
     'Richiama i valori inseriti nel form di Login.asp 
     Username = request("Username") 
     Password = request("Password") 
   
   
      
     'Stringa SQL che seleziona l'username e la password dalla tabella del database 
     SqlVerifica = "select * from Utenti where Username = '" & Username & "' and Password = '" & Password & "'" 
     set recVerifica = ConnVerifica.execute(SqlVerifica) 
           
		
   	   
          'Se i dati sono presenti nella tabella, session("login") assume il valore di uno altrimenti viene eseguito il reindirizzamento alla pagina Login.asp 
              if not recVerifica.eof then 
               session("login") = 1 
          else 
               response.redirect "Login.asp" 
          end if 
		  
      session("login2")=Username
	  
     recVerifica.close 
     set recVerifica = nothing 
end if 
%>

il codice da te postato dove lo devo mettere? (cerca di non essere volgare :rollo: )

[rixx]

il codice da te postato dove lo devo mettere? (cerca di non essere volgare  )

tenterò

<table border="1"> 
<tr> 
<td>Session Variable Name</td> 
<td>Session Variable Value</td> 
</tr> 
<% For i = 0 to Session.Contents.Count %> 
<tr> 
<td><%= Session.Contents.key(i) %></td> 
<td><%= Session.Contents.item(i) %></td> 
</tr> 
<% Next %> 
</table>

questo codice ovunque tu lo metta ti dice quali sessioni sono aperte...

ad esempio:

<% 
Dim ConnVerifica
Set ConnVerifica=Server.CreateObject("ADODB.Connection")
ConnVerifica.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("o.mdb")
'Se la sessione login è diversa da uno allora esegue la verifica 
if session("login") <> 1 then 
      
     'Richiama i valori inseriti nel form di Login.asp 
     Username = request("Username") 
     Password = request("Password") 
   
   
      
     'Stringa SQL che seleziona l'username e la password dalla tabella del database 
     SqlVerifica = "select * from Utenti where Username = '" & Username & "' and Password = '" & Password & "'" 
     set recVerifica = ConnVerifica.execute(SqlVerifica) 
           
		
   	   
          'Se i dati sono presenti nella tabella, session("login") assume il valore di uno altrimenti viene eseguito il reindirizzamento alla pagina Login.asp 
              if not recVerifica.eof then 
               session("login") = 1 
          else 
               response.redirect "Login.asp" 
          end if 
		  
      session("login2")=Username
	  
     recVerifica.close 
     set recVerifica = nothing 
end if 
%> 
<table border="1"> 
<tr> 
<td>Session Variable Name</td> 
<td>Session Variable Value</td> 
</tr> 
<% For i = 0 to Session.Contents.Count %> 
<tr> 
<td><%= Session.Contents.key(i) %></td> 
<td><%= Session.Contents.item(i) %></td> 
</tr> 
<% Next %> 
</table>

[rixx]

ps regolati di conseguenza le puoi usare come ti pare
ad esempio puoi confrontare l'id (se memorizzi l'id) con l'id che si trova nel db e trovare il nome nel db e avere cosi la lsita di tutti gli utenti connessi ed iscritti al momento

[Luca1317]

non mi funziona

ho 4 connessioni aperte e ad computer autenticato come marco compare
login 1
login2 marco

a quello autenticato come fulvio compare
login 1
login2 fulvio

a quello autenticato come mia nonna compare
login 1
login2 mia nonna

...ma per caso ho bisogno del file global.asa?

[rixx]

eh?
allora.....facciamo ordine:

se io in una pagina creo una sessione ad esempio:

session("baubau")=myid

tutti gli utenti che passerano di la creeranno una session corrispondente al valore myid (che ad esempio potrebbe essere il loro id nel database quando si sono loggati)

a quel punto se tu fai

<table border="1"> 
<tr> 
<td>Session Variable Name</td> 
<td>Session Variable Value</td> 
</tr> 
<% For i = 0 to Session.Contents.Count %> 
<tr> 
<td><%= Session.Contents.key(i) %></td> 
<td><%= Session.Contents.item(i) %></td> 
</tr> 
<% Next %> 
</table>

vedrai tutte le session aperte sul tuo sito il che significa ad esempio una cosa simile:

baubau - 11
baubau - 116
baubau - 51
baubau - 21
baubau - 01

ovvero tutti gli id degli user loggati... puoi dopo fare una query ed estrarne i nomi ma quello non centra ti sto dicendo come avere tutti i session io...il global.asa cmq in questo caso lo puoi usare per contare gli utenti connessi ma non centra nulla con chi ha effettutato il login...

[Luca1317]

Non vorrei insistere ...ma non vedo la lista utenti del tipo
baubau - 11
baubau - 116
baubau - 51
baubau - 21
baubau - 01

...ogni pc loggato mostra il suo login del tipo

sul pc loggato con marco mostra:
Session Variable Name Session Variable Value
login 1
login2 marco


sul pc loggato con fulvio mostra:
Session Variable Name Session Variable Value
login 1
login2 fulvio

etc

[rixx]

ma le session dei login come sono scritte?

[Luca1317]

...ogni pc loggato mostra il suo login del tipo

sul pc loggato con marco mostra:
Session Variable Name Session Variable Value
login 1
login2 marco


sul pc loggato con fulvio mostra:
Session Variable Name Session Variable Value
login 1
login2 fulvio

sul pc loggato con mia trisnonna mostra:
Session Variable Name Session Variable Value
login 1
login2 mia trisnonna

[rixx]

ok ok ma io dico le session tu come le scrivi? cosa ci metti dentro?

[Luca1317]

prova tu...

mia pagina


le user e pwd sono

user = a
pwd = a

poi b
con pwd b

etc (che fantasia )