Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Gustavo ( Cidao)

Inserir no banco de dados

Por , em ASP Clássico

Recommended Posts

Gustavo ( Cidao)    0

Gustavo ( Cidao)
Postado

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 JAH

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

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") &"')

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo ( Cidao)    0

Gustavo ( Cidao)
Postado

Nã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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual a linha do erro? o que tem na SQL qeu usa para inserir?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito