Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Seguinte galera eu toh fazendo um sistema de ponto para minha empresa mais nao toh conseguindo salvar os dados no banco de dados eu uso Access vamo lah minha pagina inicial index.asp
<%@ Language=VBScript %><% session.abandon%><html><head><meta http-equiv="Content-Language" content="pt-br"><meta name="GENERATOR" content="Microsoft FrontPage 5.0"><meta name="ProgId" content="FrontPage.Editor.Document"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>Sistema</title><style type="text/css"><!--.style2 { color: #666666; font-family: Arial, Helvetica, sans-serif; font-size: 16px;}.style5 {color: #FFFFFF}.style6 {color: #000000}--></style></head><body leftmargin="0" background="img/bg.gi"><p> </p><p> </p><div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="51%" id="AutoNumber3"> <tr> <td width="100%"> <p align="center" class="style2"></td> </tr> <tr> <td width="100%"></td> </tr> </table> </center></div><div align="center"> <center> <br> <br> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1" height="100"> <tr> <td width="17" height="100"> <p align="center"></td> <td width="483" height="100" valign="top"> <form method="POST" action="login.asp"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: solid; border-width: 1" bordercolor="#111111" width="191" id="AutoNumber2" height="75"> <tr> <td width="68" align="right" height="28"><b> <font face="Verdana" size="2"><span class="style6">Nome:</span></font><font color="#CC3300" face="Verdana" size="2"> </font></b></td> <td width="121" height="28"> <input name="usuario" type="text" id="usuario" size="13"></td> </tr> <tr> <td width="68" align="right" height="22"><b> <font face="Verdana" size="2"><span class="style5"><span class="style6">Senha</span>:</span></font><font face="Verdana" size="2" color="#CC3300"> </font> </b></td> <td width="121" height="22"> <input name="senha" type="password" id="senha" size="13"></td> </tr> <tr> <td width="68" align="right" height="25"> </td> <td width="121" height="25"><input type="submit" value="Logar" name="Entrar" style="font-family: Verdana; font-size: 8 pt; color: #000000; border: 1px solid #000000; background-color: #F1F0ED"></td> </tr> </table> </center> </div> </form> </td> </tr> </table> </center></div><div align="center"> <center> </center></div><form name="form1" method="post" action=""> <label></label></form></body></html>
Quando vai em logar vai para pagina login.asp inde
<% set db = server.createobject("adodb.connection") set rs = server.createobject("adodb.recordset") db.open "driver={microsoft access driver (*.mdb)};dbq=" & _ Server.MapPath("banco.mdb") Dim usuario, ip, periodo ip = Request.ServerVariables("REMOTE_ADDR") usuario=request("usuario") usuario= Request.Form("usuario") periodo= Request.Form("periodo") senha = Request.Form("senha") data = now() SQL="INSERT INTO ponto (usuario) VALUES("& usuario &"')" db.execute sql rs.open "select * from usuario where " & _ "usuario='" & Replace(request.form("usuario"), "'", "''") & _ "' and senha='" & Replace(request.form("senha"), "'", "''") & "'",db if not rs.eof then session("status") = "ok" response.redirect("principal.asp") else response.redirect("index.asp?erro=negado") end if set rs = nothing rs.close %>
por ultimo vai mostar os dados para o usuario principal.asp
<style type="text/css"><!--.style1 { color: #FF0000; font-family: Arial, Helvetica, sans-serif;}--></style><div align="center"> <p class="style1"> </p> <p class="style1"> </p> <p class="style1"> </p> <p class="style1">Foi inserido no banco de dados: </p></div><div align="center"> <%@ Language=VBScript %> <% dim cn set cn = server.CreateObject ("adodb.connection") cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") Dim iporigem, usuarioiporigem = Request.ServerVariables("REMOTE_ADDR")data = now()usuario = session("usuario") %> <% response.write "<p>Ip da maquina</p>" & iporigem &""& usuario &"<p>Data e Hora</p>"& data response.Write periodo %></div>
Agora minha duvida como fazer para salvar o nome de usuario a hora e o ip no banco Access por favor me ajuda galera ESPERO AJUDA PRECISO ENTREGAR SEGUNDA TOH LOUKO JAHNão entendi na pagina inicial ele faz o login com seu usuario e senha eu quero que o mesmo usuario digitado grave em um banco de dados junto com a data e hora que ele fez o logon e salve tbm o ip da maquina Me ajuda ai vcs que sabem bem ASP
pois é, foi exatamente isso que expliquei
deu errp Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO./ponto/login.asp, line 28
Por favor gente me ajuda ai nao consigo salvar no banco de dados de jeito nenhum
Manda o código da linha 38!
qual a linha do erro? o que tem na SQL qeu usa para inserir?
título do tópico editado
Me ajuda por favor ==> Inserir no banco de dados
pelo que entendi você quer armazenar todos os usuarios que efetuam login
crie uma tabela contendo os campos idUsuario(número), datahora(texto),ip(texto)
depois é só você fazer o Insert com os valores
insert into tabela (idUsuario, datahora,ip)values("&session("codigo")&",'"&now&"','"&Request.servervariables("REMOTE_ADDR") &"')