<%
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
%>
Pergunta
victormartins
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.aspse precisar de outras pags me avisem!!
Me ajudem por favor!!!
Link para o comentário
Compartilhar em outros sites
28 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.