Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
  • Total de itens

    1.002
  • Registro em

  • Última visita

Posts postados por victormartins

  1. form.asp

    <form method=post action="login.asp">
    <table border=0 width="80%" align=center>
      <tr>
        <td align=right valign=top><font face="Arial" size="2">Usuário:</font></td>
        <td align=left valign=top>
          <font face="Arial" size="2">
        <input type=text name="Login" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
        </td>
      </tr>
      <tr>
        <td align=right valign=top><font face="Arial" size="2">Senha:</font></td>
        <td align=left valign=top>
          <font face="Arial" size="2">
        <input type=password name="Senha" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
        </td>
      </tr>
      </font>
    </table>
    <center><input type=submit name=submit value=Logar style="{<font-family:Arial; font-size:12}"></center>
    </form></p>
    login.asp
    <%
    
    set conexao = server.createObject("adodb.connection")
    
    conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("login.mdb")
    
    sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'"
    
    set rsLogin = conexao.execute(sql)
    
    Login = rsLogin("login")
    Senha = rsLogin("senha")
    
    if not rsLogin.eof then
    
    Session("login")=TRUE
    Session("senha")=TRUE
    Response.Redirect"adminname.asp"
    
    else
    
    Response.Redirect"form.asp"
    
    end if
    
    conexao.close
    rsLogin.close
    set conexao = nothing
    set rsLogin = nothing
    
    %>
    adminname.asp
    <html>
    <head>
    <title>Cadastro de membros</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>
    
    <frameset rows="*,140" frameborder="NO" border="0" framespacing="0" cols="*"> 
      <frame name="centro" src="centroadmin.asp">
      <frame name="menu" scrolling="NO" noresize src="menuadmin.asp">
    </frameset>
    <noframes> 
    <body bgcolor="#FFFFFF" text="#000000">
    </body>
    </noframes> 
    </html>
    

    se precisar de outras pags me avisem!!

    Me ajudem por favor!!!

×
×
  • Criar Novo...