Ir para conteúdo
Fórum Script Brasil

cear

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    30

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que cear postou

  1. cear

    Sistema De Login

    uma questão postou cear ASP

    Boas .... Tenho um pequeno problema com os dados que aparecem... tenho uma base de dados com os seguintes campos... user, pass, nome e socio.... tenho um ficheiro index.asp com o seguinte codigo: <html> <head> <title>Área Administrativa</title> </head> <body bgcolor=ffffff> <script language="JavaScript" type="text/javascript"> <!-- if (!(document.layers)) { document.write('<style type="text/css">\ .bt{color:#ffffff;background-color:#0099ff;border: 1px solid #590808;}\ </style>'); } //--> </script> <table border=0 cellpadding=0 cellspacing=0 width=100% height=100%> <tr> <td width=37% height=33%> </td> <td width=20% height=33%> </td> <td width=38% height=33%> </td> </tr> <tr> <td width=37% height=33%> </td> <td width=25% height=33% align=center> <table border=1 cellpadding=0 cellspacing=0 bordercolor=000000 style="border-collapse:collapse" width=100%> <tr> <td bgcolor=0099ff align=center width=100%> <font face="Verdana" color=ffffff size=2> <b>Área Administrativa</b> </td> </tr> <tr> <td width=100% align=center bgcolor=dddddd> <table border=0 width=90%> <tr> <td> <form method="post" action="logar.asp"> <font face="Verdana" color=000000 size=1> Usuário: </td> <td align=right> <input type="text" name="user" size=20> </td> </tr> <tr> <td> <font face="Verdana" color=000000 size=1> Senha: </td> <td align=right> <input type="password" name="pass" size=20> </td> </tr> <tr> <td align=right colspan=2> <font face="Verdana" color=ff0000 size=1> <b> <% if request.querystring("erro")=1 then response.write "Login ou Senha Incorreto ! &nbsp; &nbsp; " end if %> </b> <input type="submit" name"entrar" value="Login" class="bt"> </form> </td> </tr> </table> </td> </tr> </table> </td> <td width=38% height=33%> </td> </tr> <tr> <td width=37% height=33%> </td> <td width=20% height=33%> </td> <td width=38% height=33%> </td> </tr> </table> </body> </html> outro com logar.asp com o seguinte codigo: <html> <body bgcolor=ffffff> <% validpwd="false" usuario=request.form("user") senha=request.form("pass") If usuario<>"" and senha<>"" Then Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.open Conexao Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'") If not rs.eof then If rs("pass")=senha and rs("user")=usuario Then validpwd="true" Else validpwd="false" End If Else validpwd="false" end if rs.Close Set rs=Nothing conn.Close Set conn=Nothing If validpwd="true" Then Session("status") = "login" response.redirect "entrou.asp" End If End If If validpwd="false" Then response.redirect "index.asp?erro=1" End If %> </body> </html> e um chamado entrou.asp com o seguinte codigo: <% if Session("status")<>"login" then response.write rs.filds("nome") end if session("status")="" Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.open Conexao Set rs = conn.Execute( "Select * from users") nome = rs("nome") socio = rs("socio") %> <html> <head> <title>Logado</title> </head> <body leftmargin=0 topmargin=0 text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#FF0000"> <table border=0 width="100%" cellspacing=3 cellpadding=3> <tr> <td align="left"><font face="verdana" size=2> Olá <b><% = nome %></b>, você está logado(a)!</font></td> <td align="right"><font face="verdana" size=2><a href="index.asp">Sair</a></font></td> </tr> <tr><td colspan=2><hr></td></tr></table> Nome:<%= nome %><br> Sócio: <%= socio %> </html> mas quando faço o login aparece sempre os dados do primeiro registo da base de dados.... alguém me pode ajudar???? Obrigado
  2. cear

    Problema Ao Ler A Base De Dados

    pergunta respondeu ao cear de cear em ASP

    Microsoft VBScript runtime error '800a01a8' Object required: 'rs' /entrou.asp, line 3 Microsoft VBScript runtime error '800a01a8' Object required: 'rs' /entrou.asp, line 3 alguém me pode ajudar??? obigado já dá!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! os campos da base de dados e que não eram os mesmos... MUITO MUITO OBRIGADOOOO
  3. cear

    Problema Ao Ler A Base De Dados

    pergunta respondeu ao cear de cear em ASP

    Microsoft VBScript runtime error '800a01a8' Object required: 'rs' /entrou.asp, line 3 Microsoft VBScript runtime error '800a01a8' Object required: 'rs' /entrou.asp, line 3 alguém me pode ajudar??? obigado
  4. cear

    Problema Ao Ler A Base De Dados

    pergunta respondeu ao cear de cear em ASP

    Microsoft VBScript runtime error '800a01a8' Object required: 'rs' /entrou.asp, line 3
  5. cear
    Boas, Tenho o seginte problema: Tenho uma base de dados em access com o nome users.mdb depoix um ficheiro em asp que se chama index.asp com o seguinte codigo <html> <head> <title>Área Administrativa</title> </head> <body bgcolor=ffffff> <script language="JavaScript" type="text/javascript"> <!-- if (!(document.layers)) { document.write('<style type="text/css">\ .bt{color:#ffffff;background-color:#0099ff;border: 1px solid #590808;}\ </style>'); } //--> </script> <table border=0 cellpadding=0 cellspacing=0 width=100% height=100%> <tr> <td width=37% height=33%> </td> <td width=20% height=33%> </td> <td width=38% height=33%> </td> </tr> <tr> <td width=37% height=33%> </td> <td width=25% height=33% align=center> <table border=1 cellpadding=0 cellspacing=0 bordercolor=000000 style="border-collapse:collapse" width=100%> <tr> <td bgcolor=0099ff align=center width=100%> <font face="Verdana" color=ffffff size=2> <b>Área Administrativa</b> </td> </tr> <tr> <td width=100% align=center bgcolor=dddddd> <table border=0 width=90%> <tr> <td> <form method="post" action="logar.asp"> <font face="Verdana" color=000000 size=1> Usuário: </td> <td align=right> <input type="text" name="user" size=20> </td> </tr> <tr> Depois outro chamado logar.asp com o seguinte codigo <html> <body bgcolor=ffffff> <% validpwd="false" usuario=request.form("user") senha=request.form("pass") If usuario<>"" and senha<>"" Then Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.open Conexao Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'") If not rs.eof then response.write rs.eof("nome") Else validpwd="false" End If Else validpwd="false" end if rs.Close Set rs=Nothing conn.Close Set conn=Nothing If validpwd="true" Then Session("status") = "login" response.write rs.eof("nome") End If If validpwd="false" Then response.redirect "index.asp?erro=1" End If %> </body> </html> e outro com o nome entrou.asp com o seguinte codigo <% if Session("status")<>"login" then response.write rs.filds("nome") end if session("status")="" %> <html> <head> <title>Logado</title> </head> <body leftmargin=0 topmargin=0 text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#FF0000"> <table border=0 width="100%" cellspacing=3 cellpadding=3> <tr> <td align="left"><font face="verdana" size=2> Olá <b><% = nome %></b>, você está logado(a)!</font></td> <td align="right"><font face="verdana" size=2><a href="index.asp">Sair</a></font></td> </tr> <tr><td colspan=2><hr></td></tr></table> </html> A base de dados em access contem os campos User, Pass, Nome, socio... eu gostava de que quando tivesse logado o campo nome e socio fosse vizualizado... alguém me pode ajudar?? Obrigado
×
×
  • Criar Novo...