Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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"))'Response.write("&mensagem="&rs("nome")&"&")
' fecha conexão do BD
cn.close()
set cn = nothing
%>
Alguém me ajuda, por favor??
Jóia!!
Mas você pode me ajudar a fazer esse script??
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
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