para contar acessos usuários

[Weblur 0]

Olá pessoal

 

Tom com uma dúvida e gostaria da ajuda de vcs.

Montei um sistema para área restrita com flash. Tá funcionando perfeito, porém a dúvida:

 

Preciso saber qtas vezes o usuário x logou.

Abaixo segue o cód:

 

<%

' Abre conexão com Banco de Dados


set cn = Server.CreateObject("ADODB.Connection")
pathdb = Server.MapPath("bando.mdb")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& pathdb
cn.CursorLocation = 3
Server.ScriptTimeout = 180

' carrega os dados vindos do form do flash
mensagem = ""
enviando = "" 
nome		= Request.Form("nome")
cidade	= Request.Form("cidade")
cep		= Request.Form("cep")
idade		= Request.Form("idade")
estado	= Request.Form("estado")
senha		= Request.Form("senha")
email	= lcase(Request.Form("email"))
musica	= lcase(Request.Form("musica"))
news	= lcase(Request.Form("news"))
status = 1

sqlSelect = "SELECT email FROM site WHERE email = '" & email & "'"
set rsSelect = cn.execute(sqlSelect)


' Se existir, define mensagem que já existe para o flash
if not rsSelect.EOF then
 Response.Write("&enviando=0")
	Response.write("&mensagem="+Server.URLEncode("E-mail cadastrado.  Por favor, escolha outro ou entre com seus dados em login"))
' se não existir insere no Banco de Dados
else
	sqlInsert = ""
	sqlInsert = sqlInsert & " insert into site (  "
	sqlInsert = sqlInsert & " 					   nome, "
	sqlInsert = sqlInsert & " 					   email, "
	sqlInsert = sqlInsert & " 					   cidade, "
	sqlInsert = sqlInsert & " 					   cep, "
	sqlInsert = sqlInsert & " 					   idade, "
	sqlInsert = sqlInsert & " 					   estado, "
	sqlInsert = sqlInsert & " 					   senha, "
	sqlInsert = sqlInsert & " 					   news, "
	sqlInsert = sqlInsert & " 					   musica, "
	sqlInsert = sqlInsert & " 					   status "
	sqlInsert = sqlInsert & " 						) "
	sqlInsert = sqlInsert & " 		  values   ( "	
	sqlInsert = sqlInsert & " 				   '" & nome &"', "
	sqlInsert = sqlInsert & " 				   '" & email &"', "
	sqlInsert = sqlInsert & " 				   '" & cidade &"', "
	sqlInsert = sqlInsert & " 				   '" & cep &"', "
	sqlInsert = sqlInsert & " 				   '" & idade &"', "
	sqlInsert = sqlInsert & " 				   '" & estado &"', "
	sqlInsert = sqlInsert & " 				   '" & senha &"', "
	sqlInsert = sqlInsert & " 				   '" & news &"', "
	sqlInsert = sqlInsert & " 				   '" & musica &"', "
	sqlInsert = sqlInsert & " 					" & status 
	sqlInsert = sqlInsert & " 				   ) "
	cn.execute(sqlInsert)
	
	' após inserir no BD define mensagem de sucesso para o flash
	Response.Write("&enviando=1")
	Response.write("&mensagem="+Server.URLEncode("Cadastrado com Sucesso. Bem Vindo"))
end if

'Response.write("&mensagem="&rs("nome")&"&")
' fecha conexão do BD
cn.close()
set cn = nothing
%>

Alguém me ajuda, por favor??

[Vinicius Ianni 189]

Boa noite Weblur,

 

Não olhei o código, mas na hora de autenticar o usuário, se o for válido, faz um insert na tabela de acesso com o nome ou o id do usuário, e a data e hora.

E depois do insert você cria a pagina do usuário.

 

Abraços,

Vinicius Ianni

[Weblur 0]

Jóia!!

Mas você pode me ajudar a fazer esse script??

[Vinicius Ianni 189]

Boa Noite !

 

Basta um pouco de imaginação, é beeeemmmm simples.

Mas como estou bonzinho, vamos lá:

 

CODE

set conn=server.createobject("adodb.connection")

set rs=server.createobject("adodb.recordset")

set rs1=server.createobject("adodb.recordset")

conn.open dsn

stql = "Select * from supv"

Set rs = conn.Execute(stql)

if num = rs("nome") and bum = rs("senha") then

Session("login") = "ok"

Hora = Time()

IpNum = Request.ServerVariables("REMOTE_ADDR")

strqy = "INSERT INTO geral (endip,pgpai,linkcl,data,hora) VALUES ('"&IpNum&"','"&ppg&"','"&mat&"','"&Date&"','"&Hora&"')"

Set rs1 = conn.Execute(strqy)

end if

Belê ? http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Acho que deu para pegar a ideia.

 

Abraços

Vinicius Ianni