Ir ao conteúdo
  • Cadastre-se

Asp Login - Favor, Ajudar.


Yuri Valle

Posts recomendados

Bom dia Pessoal do Clube do Hardware!(Feliz 2009)

Estou com um grande problema, estou precisando desenvolver um script em asp que funcione da seguinte forma.

(aparentemente é um If statement que eu não to sabendo fazer...)

Tenho um banco de dados no access e nele tenho duas colunas a de usuario e a de senha.

tenho uma pagina de login que faz o seguinte, caso o usuario e a senha sejam iguais as do banco de dados a pagina redireciona para onde eu quiser, MAS eu preciso que faça da seguinte forma.

Se usuário e senhas digitados são iguais aos do banco de dados e são do grupo "amigo" redireciona para "amigo.html". (essa parte do grupo, seria mais uma coluna a ser verificada no banco de dados.

Ou seja.

If user e pass digitados na pagina de login = user e pass do bda

verifica o nivel de acesso, se 1 redireciona p/ 1.html, se 2 redireciona para 2.html

e por aí vai~

Ficarei deveras grato para aquele que me ajudar.

Atenciosamente

Yuri Valle.

Link para o comentário
Compartilhar em outros sites

Yuri, em 1º lugar você precisa criar no bd tb 1 3º campo d nivel..

a logica que vai ser inserida na pg d login é a seguinte:

"se login = fulano, senha = xxx e nivel = etc" ai sim carregar a pg...

mas observe bem: essa restrição você precisa inserir tb na pg a ser aberta senão qqer 1 abre, ok?

(obs: não é if statement, use "request" mesmo porque o usuario vai digitar os dados num form, ok?)

bem.. ai vai 1 pg d login q criei pelo Dreamweaver; v c t ajuda:

<%

' *** Validate request to log in to this site.

MM_LoginAction = Request.ServerVariables("URL")

If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)

MM_valUsername=CStr(Request.Form("login"))

If MM_valUsername <> "" Then

MM_fldUserAuthorization="cargo"

MM_redirectLoginSuccess="bomdia.asp"

MM_redirectLoginFailed="login_erro.asp"

MM_flag="ADODB.Recordset"

set MM_rsUser = Server.CreateObject(MM_flag)

MM_rsUser.ActiveConnection = MM_livro_STRING

MM_rsUser.Source = "SELECT login, senha"

If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization

MM_rsUser.Source = MM_rsUser.Source & " FROM login WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'"

MM_rsUser.CursorType = 0

MM_rsUser.CursorLocation = 2

MM_rsUser.LockType = 3

MM_rsUser.Open

If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then

' username and password match - this is a valid user

Session("MM_Username") = MM_valUsername

If (MM_fldUserAuthorization <> "") Then

Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)

Else

Session("MM_UserAuthorization") = ""

End If

if CStr(Request.QueryString("accessdenied")) <> "" And false Then

MM_redirectLoginSuccess = Request.QueryString("accessdenied")

End If

MM_rsUser.Close

Response.Redirect(MM_redirectLoginSuccess)

End If

MM_rsUser.Close

Response.Redirect(MM_redirectLoginFailed)

End If

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

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

<title>Untitled Document</title>

</head>

<body>

<p>Pagina de login</p>

<form id="form1" name="form1" method="POST" action="<%=MM_LoginAction%>">

<label>login

<input name="login" type="text" id="login" />

</label>

<br />

<label>senha

<input name="senha" type="password" id="senha" />

</label>

<p>

<label>

<input type="submit" name="Submit" value="enviar" />

</label>

</p>

</form>

<p> </p>

<p> </p>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

Arquivado

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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...