Limite de logins

[securityBR 0]

Bom dia pessoal! http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

 

Sou novo no forum e preciso de uma ajuda.

 

Estou desenvolvendo um sistema de atendimento On-Line na empresa onde trabalho e preciso restringir o limite de usuários logado.

Quero que tenha somente 2 usuários logados e quando um terceiro tentar logar apareça a seguinte frase (Limite de usuários atingido, por favor aguarde), até aparecer esta frase tudo bem, mais essa parte de restrição dos usuários é que ta pegando.

 

Não tenho muita experiência na linguagem ainda, por isso preciso de um help ae ok..

 

Aguardo a ajuda...

[hargon 64]

Você deve armazenar em um banco de dados os usuários logados. A partir daí você verifica antes do login quantos usuários estão logados no sistema.

 

Se você já consegue fazer até a parte que aparece a frase, já está pronto então... Basta você fazer um IF. Se tiver 2 logados, exibe a frase, senão, faz o login.

[securityBR 0]

Você deve armazenar em um banco de dados os usuários logados. A partir daí você verifica antes do login quantos usuários estão logados no sistema.

 

Se você já consegue fazer até a parte que aparece a frase, já está pronto então... Basta você fazer um IF. Se tiver 2 logados, exibe a frase, senão, faz o login.

 

 

Teria como você me dar um exemplo, como disse sou novo na linguagem ainda e to apanhando um pouco, consegui fazer essa parte do login tudo certinho, empaquei no restante da aplicação.

 

Vou postar o codigo da página principal onde é feito o login:

 

<%@ Language=VBScript %>
<%
if isempty(Request.Form("OK")) then
	Session("NumAttempts") = 1
	TheMessage = "Por favor, entre com o login:"
else
	set conn = server.createobject ("adodb.connection")
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("bd.mdb")
	set RSLogin = conn.Execute("select LoginID, Name from PSLogins where " _
		& "EmailAddress = '" & Request.Form("EmailAddress") & "' and " _
		& "Password = '" & Request.Form("Password") & "'")
	if RSLogin.EOF then
		Session("NumAttempts") = Session("NumAttempts") + 1
		if Application("NumAttempts") = 0 then
			TheMessage = "Usuário não encontrado"
		elseif Session("NumAttempts") > Application("NumAttempts") then
			TheMessage = "Suas tentativas esgotaram"
		else
			TheMessage = "Usuário não encontrado"
		end if
	else
		Session("ID") = RSLogin("LoginID")
		Session("Name") = RSLogin("Name")
		Response.Redirect "./html/teste.htm"
	end if
end if
%>

[marcocotta 0]

Crie uma coluna na tabela dos usuários pra guardar o status,

e use sessões pra atualizar o status quando o usuário sair da aplicação.

[securityBR 0]

Crie uma coluna na tabela dos usuários pra guardar o status,

e use sessões pra atualizar o status quando o usuário sair da aplicação.

 

 

Pessoal, estou muito agrdecido pela ajuda de voces, mais ta complicado, nao estou conseguindo.

Teria como postar o codigo baseado em cima do codigo que postei pra mim ?

 

criei este mais nao sei se está certo:

 

if msg.eof then
session ("usuarios") = session("usuarios") + 2
 if Application("usuarios") = 0 then
 TheMessage = "Somente dois usuários permitidos! Por favor aguarde o atendimento."
 end if

 

to todo enrrolado!!!

[securityBR 0]

Não consegui resolver meu problema, mais mesmo assim obrigado pelos posts...