Ir para conteúdo

Arquivado

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

kel teixeira

- Cadastro e Login

Recommended Posts

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 %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tipow... faz uns 2 anos q naum mecho com asp... mas eu acho q lembro alguma coisa....se tiver um campo acesso no banco... coloca assimsession("acesso") = rs("acesso")e na tela de conexão você fazif session("acesso") = administrador thenhsahdjahsdjkahsdkjelsenão conecta...end if...faz uma coisa mais ou menos assim!flw

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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