Ir para conteúdo

POWERED BY:

Arquivado

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

designmix

Problema

Por , em ASP Clássico

Recommended Posts

designmix    0

designmix
Postado

Valeu o que faria se nao tivesse vcs hehehhehe VALEU MESMO >> http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

beleza galera agora funciono tudo normal so que ..

 

Mais AGORA quero saber como faço para que cada usuario va para uma pagina de acordo com seu login e senha

 

VOU COLOCAR O ME SCRIPT AQUI PARA você VE SE DA PARA FAZER ISSO NESSE MESMO.

 

O QUE PRECISO CRIAR PARA FAZER ISSO. NO DB VOU TER QUE CRIAR UM CAMPO COM UM LINK .DE CADA USUARIO

 

ENTAR.HTM

 

ASP [/tr][tr]

<html>

<head>

<title>Entrar</title>

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

</head>

<body bgcolor="#FFFFFF" text="#000000">

<form method="get" action="acesso.asp">

<table width="22%" border="0" cellspacing="0" cellpadding="0" align="center">

<tr>

<td width="44%">

<div align="right"><font size="2" face="Arial" color="#000000">login</font><font size="2" face="Arial" color="#f08810">:</font></div>

</td>

<td width="56%">

<div align="left">

<input type="text" name="login" size="11" maxlength="11">

</div>

</td>

</tr>

<tr>

<td width="44%" height="35">

<div align="right"><font size="2" face="Arial" color="#000000">senha</font><font size="2" face="Arial" color="#f08810">:</font></div>

</td>

<td width="56%" height="35">

<div align="left">

<input type="password" name="senha" size="11" maxlength="15">

</div>

</td>

</tr>

<tr>

<td width="44%">  </td>

<td width="56%">

<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif">

<input type="submit" name="Submit" value="entrar">

</font> </div>

</td>

</tr>

</table>

<p></p>

</form>

</body>

</html>

 

 

[/tr]

 

ACESSO.ASP

ASP [/tr][tr]

 

 

<%@ Language=VBScript %>

<!--#include file="../_conn/bib_conexao.asp"-->

 

<%

 

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

 

call abre_conexao

strSQL = "SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"'"

set acesso = conn.Execute(strSQL)

 

if acesso.eof then

call fecha_conexao

Response.Redirect"entrar.htm"

else

Session("login")=login

Session("usuario")= acesso("usuario")

Session("Email")= acesso("Email")

Session("login")= acesso("login")

call fecha_conexao

Response.Redirect"identificado.asp"

end if

%>

 

[/tr]

 

Identificado.ASP

 

ASP [/tr][tr]<html>

<head>

<title>Identificado</title>

</head>

<body topmargin="0" leftmargin="0" background="images/fundo1.gif">

<div align="center">

<table border="0" cellpadding="0" cellspacing="0" width="639" background="images/topo.jpg" height="63">

<tr>

<td width="641" valign="bottom">

<div align="right"></div>

</td>

</tr>

</table>

</div>

<div align="center">

<table border="0" cellpadding="0" cellspacing="0" width="640" height="70">

<tr>

 

<td width="471" bgcolor="#FFFFFF" rowspan="2" valign="top" height="379">

<div align="center">

<p> </p>

<p><font size="2" face="Arial" color="#f08810">Olá,

<% response.write session("Usuario") %>

<% response.write session("login") %>

 

<br>

bem-vindo ao<br>

Seu Site</font></p>

</div>

<p align="center"> <a href="logout.asp">Sair do Sistema</a>

</td>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</div>

<div align="center">

<table border="0" cellpadding="0" cellspacing="0" width="640" bgcolor="#FFFFFF">

<tr>

<td valign="bottom">

<p align="right">

</td>

</tr>

</table>

</div>

</body>

</html>

[/tr]

 

logout.asp

 

ASP [/tr][tr]<html>

<head></head>

<body>

<%

session.abandon

response.write"Logout feito com sucesso!!"

response.redirect "Entra.htm"

%>

</body>

</html>

[/tr]
:blink: :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

bem se no db vai ter um link pra cada usuario redirecione pra este link ja no login

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

tipo assim

 

ASP [/tr][tr]<%

 

 

 

sqls = "select * from usuario where id_do_usuario = '"& session("usuario") &"'"

 

abre_conexao

set rs = conn.execute(sqls)

 

if rs.EOF then

response.redirect "pagina_erro.asp"

else

nome = rs("campo_nome")

rg = rs("campo_rg")

response.Redirect(rs("pagina"))

end if

 

rs.close

 

set rs = nothing

 

fecha_conexao

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

isso mesmo, desque que o nome do campo seja realmente pagina

Compartilhar este post

Link para o post
Compartilhar em outros sites

-_KIKO_-    0

-_KIKO_-
Postado

Isso de redirecionar para pagina diferente é muito usado em sistemas de administração dependendo do cargo de cada usuário, sendo assim , seu nivel de acesso.

 

Um funcionário por exemplo tem numero de acesso 1

Um advogado de uma empresa tem acesso numero 2

O chefe tem acesso numero 3 por exemplo

 

A partir dai você da um redirect de muitos modos...

 

ASP [/tr][tr]

If Recset("nivel_acesso") = 1 then

response.redirect "pagina_x.asp"

elseIf Recset("nivel_acesso") = 2 then

response.redirect "pagina_Y.asp"

end if

[/tr]

OU ENTAO por Case

ASP [/tr][tr]

Select Case Recset("nivel_acesso")

Case "1" then

response.redirect "pagina_x.asp"

Case "2" then

response.redirect "pagina_y.asp"

end select

[/tr]

 

 

Tem outros modos também para evitar esse monte de paginas diferentes é você fazer um redirect para a MESMA PAGINA de TODOS e nela haver um certo controle de permissoes também.

Na página de Login sua, você cria uma Session de acesso

ex.:

Session("nivel_de_acesso") = Recset("nivel_de_acesso")

 

Não precisa ser necessariamente numeros para definir o numero de acesso do usuário, pode ser especificado como varchar() e ter resultados como "Administrador","Moderador","Participante","Cliente","Vendedor"...etc

Esses valores iriam substitiuir os numeros

 

Se você tem um conhecimento em ASP basico e nao apenas Ctrl+C / Ctrl+V, tem como entender simplesmente isso:

ASP [/tr][tr]

If Session("nivel_de_acesso") = "Administrador" then

response.write "<a href=""ADMINISTRAROSITE.ASP"">ADMINISTRAR O SITE INTEIRO</A>"

end if

[/tr]

 

E por ai vai!

 

Permissoes de sistema é algo muito importante e pode ser personalizado de acordo com sua necessidade!

 

[]'z

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

Olá amigo.

 

Um modo bem simples de fazer isso, é, na hora que o usuario fizer o LOGIN, você armazenar os dados dele em SESSION.

E, depois, criar uma pagina simples, e que mostre na tela os dados das sessions criadas!

 

Ex:

 

No login, você cria as sessions:

Session("nome") = "joao"

Session("email") = "joao@imasters.com.br"

Session("cargo") = "moderador"

 

Na pagina que você quer mostrar os dados:

crie uma pagina nova, com o nome que preferir, como: dados_usuario.asp

E nela, coloque algo como:

ASP [/tr][tr]<%

If Session("nome") = "" then

Response.Write "Acesso negado!<br> Efetue o Login para acessar esta área!"

Response.End

else

Response.Write "Olá " + Session("nome")

 

Response.Write "<br><br>Seus dados são:"

Response.Write "<br><br>Nome: " + Session("nome")

Response.Write "<br>E-mail: " + Session("email")

Response.Write "<br>Cargo: " + Session("cargo")

end if

%>

[/tr]

 

Eu acabei de fazer este trecho de codigo.. teste ele, e veja se consegue entender como funciona!

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito