Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Oi gente! sou bem iniciante em questão de asp, gostaria de saber neste script, que comando coloco nas paginas que seram restritas?
validar.asp
<!--#include file="db.asp"--><% AbreConexao login = Replace(request.form("login"), "'", "/") senha = Replace(request.form("senha"), "'", "/") Sql = "SELECT * FROM users WHERE login = '"&login&"' " Sql = Sql & "AND senha='"&senha&"' " Set Rs = Conexao.Execute(Sql) if not rs.eof then Session("yep") = True Session("id") = RS("id") Session("login") = RS("login") Response.Redirect "dado.asp" else Response.Redirect "falha.asp" end ifFechaConexao %>
db.asp
<!--#include file="configi.asp"--><% Set Conexao = CreateObject("ADODB.CONNECTION")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db)ConexaoAberta = FALSESub AbreConexao() if not ConexaoAberta then Conexao.Open ConStr ConexaoAberta = True end ifend subSub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end ifend sub %>
Carregando comentários...