Ir para conteúdo
Fórum Script Brasil
  • 0

Login Com Username, Passwaord, E Nivel

§uiciDa£

Perguntado por §uiciDa£,

 Share

Pergunta

§uiciDa£

§uiciDa£

Postado
Postado

e ai galera fmza ?

tipo assim sabe o iped ? num tm aqle login q você escolhe se você é parceiro ou usuario ?

então eu qria fazer um daquele peo meu site

eu tentei assim

declarei uma variavel pro passwaord login e nivel , q fiko

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

nivel2 = Request.Form("txt_nivel")

e tentei fazer uma conexao do tipo

login = "'&login2'" and senha = "'&senha2'" and nivel = "'nivel2'""

só q num funcionou... seis tem otra alternatia ???

vl t+

Link para o comentário
Compartilhar em outros sites

24 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

opa, beleza?

cara.. da uma olhada na linha em vermelho:

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

nivel2 = Request.Form("txt_login")e tentei fazer uma conexao do tipo

login = "'&login2'" and senha = "'&senha2'" and nivel = "'nivel2'""

veja bem.. você ta dizendo no nivel, a mesma coisa que no login.. é isso mesmo?

Ah.. lendo o tópico..

fiquei meio confuso..

que tipo de nivel você quer?

tem idéia de como imagina ser?

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

certo..

mas você pretende usar banco de dados?

eu montei alguma coisa assim:

- criei um banco .mdb, com uma tabela usuarios.

- nela tinha: id, usuario, senha, status

- o id era auto numeraçao. usuario e senha eram texto, e status era numero.

- no campo status, eu armazenava o status, por ex:

- status=0 <- membro

- status=1 <- moderador

- status=2 <- administrador

aí, quando fazia o login, testava usuario e senha, e criava as sessões, com os dados. e colocava uma sessão com o nivel, fazendo os ifs conforme a tabela de status.

é alguma coisa assim que você quer?

Link para o comentário
Compartilhar em outros sites
  • 0
bolomaster

bolomaster

Postado
Postado

Tipo oh um exemplo legal que verifica o nivel

abraça ele ai oh 

ARQUIVO LOGIN.ASP


<%
set db = Server.CreateObject("ADODB.Connection")
dim caminho 
caminho = Server.MapPath("noticias.mdb")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
usuario = request.Form("usuario")
senha = request.form("senha")
sql = "select * from usuario where usuario = '"&usuario&"' and senha = '"&senha&"' "
set rs = db.execute(sql)
If rs.EOF Then
Response.Write "Por Favor verifique seus dados!"
Else
Session("nivel") = rs.fields("nivel")
Response.Redirect "default2.asp" 
End If
%>
ai na pagina que você quer liberar por exemplo para adm você faz assim oh 
<%
If session("nivel") = "" Then
  Response.Write "Você não está logado!"
  Response.End
End If
If session("nivel") = 2 Then 
conteudo da pagina que o adminstrador tem acesso
else if session("nivel") = 1 Then
conteudo da pagina que o moderador tem acesso
else
contedu da pagina que o membro tem acesso
end if 
%>

Espero que seja isso Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
§uiciDa£

§uiciDa£

Postado
  • Autor
Postado

então desse tipo com sessions eu sei fazer, e já tnho um ate pronto caso eu nu consiga do meu jeito tongue.gif mais eu qria alguma coisa mais "xique" tongue.gif

tipo

www.iped.com.br

seis viram o login de lá ? tem aqle combobox eu qria fazer um dessa forma...bom se vocês axarem uma solução tongue.gif fiko grato se não eu tnto com session mesmo biggrin.gif

--

desculpa alera o do iped num é com combobox e sim com radio...axo q não foi esse q eu vi tongue.gif foi mal a bola fora...

bom mais se vocês souberem um jeito de fazer com combobox, agradeço tongue.gif

--

opa tive uma ideia, e se eu fizer assim criar 3 tabelas no login ...

parceios

usuarios

admin

dai eu faço assim

--

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("../banco.mdb")

Conn.open

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

nivel2 = Request.Form("txt_nivel")

SQL = "select * from '"&nivel2&"' where login = '"&login2&"' and senha = '"&senha2&"' "

Set RS = Conn.Execute(SQL)

If RS.EOF Then

Response.Write "usuário ou senha inválida!"

Response.End

End If

Response.Redirect "admin.asp" 'página restrita

%>

--

seis axam q funcionaria, tipo eu num testei porque num to em casa, mais q q seis axam ?

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado
então desse tipo com sessions eu sei fazer, e já tnho um ate pronto caso eu nu consiga do meu jeito tongue.gif mais eu qria alguma coisa mais "xique" tongue.gif

tipo

www.iped.com.br

seis viram o login de lá ? tem aqle combobox eu qria fazer um dessa forma...bom se vocês axarem uma solução tongue.gif fiko grato se não eu tnto com session mesmo biggrin.gif

--

desculpa alera o do iped num é com combobox e sim com radio...axo q não foi esse q eu vi tongue.gif foi mal a bola fora...

bom mais se vocês souberem um jeito de fazer com combobox, agradeço tongue.gif

--

opa tive uma ideia, e se eu fizer assim criar 3 tabelas no login ...

parceios

usuarios

admin

dai eu faço assim

--

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("../banco.mdb")

Conn.open

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

nivel2 = Request.Form("txt_nivel")

SQL = "select * from '"&nivel2&"' where login = '"&login2&"' and senha = '"&senha2&"' "

Set RS = Conn.Execute(SQL)

If RS.EOF Then

Response.Write "usuário ou senha inválida!"

Response.End

End If

Response.Redirect "admin.asp" 'página restrita

%>

--

seis axam q funcionaria, tipo eu num testei porque num to em casa, mais q q seis axam ?

Você tem que usar os session, e também ajustar tudo como no bd tipo assim:

session("admin") = RecSet("admin")

Ai é o registro que tem no bd que você pode administrar tudo, mas você tera que arrumar as coisas no bd!!! wink.gif

[]'s

Victor

Link para o comentário
Compartilhar em outros sites
  • 0
§uiciDa£

§uiciDa£

Postado
  • Autor
Postado

mai dai num seria eu usar apenas

<%

If session("nivel") = "" Then

Response.Write "Você não está logado!"

Response.End

End If

If session("nivel") = 2 Then

conteudo da pagina que o adminstrador tem acesso

else if session("nivel") = 1 Then

conteudo da pagina que o moderador tem acesso

else

contedu da pagina que o membro tem acesso

end if

%>

e colocar pra salva sesion na pagina acao.asp de acrodo com o nivel2?

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

porque?

nas pagina que você não quer usar, não usa ué.. hehe

você não é obrigado a usar em todas!

você só usará quando chamar o objeto: Session("nome_sessao")

veja como quer fazer..

estamos aí se quiser ajuda

abraços

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

cara..

a dica que lhe dou, é a começar a desenvolver alguma coisa, do modo que você quer que fique o esquema. Vá fazendo até onde você sabe..

Quando esbarrar com duvidas, estaremos aí para ajudá-lo!

abraços

Link para o comentário
Compartilhar em outros sites
  • 0
§uiciDa£

§uiciDa£

Postado
  • Autor
Postado

poxa vida galera nm deu certo olha como ficou

-- teste.asp

<%

set db = Server.CreateObject("ADODB.Connection")

dim caminho

caminho = Server.MapPath("banco.mdb")

db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho

usuario = request.Form("txt_usuario")

senha = request.form("txt_senha")

nivel = request.Form("txt_nivel")

sql = "select * from '"&nivel&"' where usuario = '"&usuario&"' and senha = '"&senha&"' "

set rs = db.execute(sql)

If rs.EOF Then

Response.Write "Por Favor verifique seus dados!"

Else

Session("nivel") = rs.fields("nivel")

Response.Redirect "administrar.asp"

End If

%>

--

login.htm

--

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

"http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="estilo.css" rel="stylesheet" type="text/css">

<script language="JavaScript" type="text/JavaScript">

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

//-->

</script>

</head>

<body leftmargin="0" topmargin="0">

<form name="form1" method="post" action="login/teste.asp">

<table width="118" border="0">

<tr>

<td width="33" class="style1"><span class="style9">login</span></td>

<td width="60"><input name="txt_login" type="text" class="campoLogin" id="txt_login" size="15" maxlength="10"></td>

</tr>

<tr>

<td height="23" class="style1"><span class="style9">senha</span></td>

<td><input name="txt_senha" type="text" class="campoLogin" id="txt_senha" size="15" maxlength="10"></td>

</tr>

<tr>

<td height="23" colspan="2" class="style1"><p align="center">

<select name="select" class="combobox" id="select">

<option value="usuario" selected>usuario</option>

<option value="parceiro">parceiro</option>

<option value="admin">admin</option>

</select>

<br>

</p>

</td>

</tr>

<tr>

<td height="23" colspan="2" class="style1"><p align="center">

<input name="logar" type="submit" class="buttom" id="logar" value="logar">

<input name="logar2" type="reset" class="buttom" id="logar2" value="Limpar">

</p></td>

</tr>

</table>

</form>

<p>&nbsp;</p>

</body>

</html>

--

ta dando este erro

--

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na consulta. Cláusula de consulta incompleta.

/cs/login/teste.asp, line 10

--

alinha 10 é

--

set rs = db.execute(sql)

--

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

olhe só:

-- teste.asp

<%

set db = Server.CreateObject("ADODB.Connection")

dim caminho

caminho = Server.MapPath("banco.mdb")

db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho

usuario = request.Form("txt_usuario")

senha = request.form("txt_senha")

nivel = request.Form("txt_nivel")

sql = "select * from '"&nivel&"' where usuario = '"&usuario&"' and senha = '"&senha&"' "

set rs = db.execute(sql)

If rs.EOF Then

Response.Write "Por Favor verifique seus dados!"

Else

Session("nivel") = rs.fields("nivel")

Response.Redirect "administrar.asp"

End If

%>

onde está em vermelho, é o nome da tabela que guarda os usuarios no banco.. e não do nivel.. certo?

veja o nome dela e coloque ali..

o resto não olhei..

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

da uma olhada aí brother

http://www.imasters.com.br/web/conteudo/co...?codcoluna=1585

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

puts..

você já começou a montar alguma coisa?

eu não entendi exatamente o que você quer..

Faz assim:

Tem como você montar a estrutura do jeito que você quer, com o tal combobox, e dar um link pra mim ver?

Senao fica dificil me achar aqui..

certo?

ate mais

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...