Ir para conteúdo

POWERED BY:

Arquivado

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

arldin

cria um script em asp de login

Por , em ASP Clássico

Recommended Posts

arldin    1

arldin
Postado

Boa noite amigos estou querendo fazer um script em asp de login da sequinte forma

Que quando se logar apareça a imagem junto vinda do db

O db esta assim

 

id=numero aultomatico(chave primaria)

login=texto

snha=texro

imagem=memorando

 

a imagem vem da pasta "fotos"

já dei uma pesquisada aqui e não encontrei nada pesquisei no google e tambem não encontrei

seria uma pagina para fazer o longin e outra para visualizar

Tem como fazer

Desde já agradeço a todo

E um feliz natal a todos

 

 

 

O nome do db e login.mdb

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existem alguns ótimos artigos sobre como desenvolver um sistema de login,

vai te ajudar muito

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

se os registros tiverem um campo com o caminho da imagem basta escrever o caminho na tag html img que a imagem aparecerá

Compartilhar este post

Link para o post
Compartilhar em outros sites

Giancarlo Braga    0

Giancarlo Braga
Postado

Imaginei algo com o post acima.

A pessoa se logou, e então você criou uma session ou um cookie ou alguma outra coisa para guardar o login e o caminho da imagem(vindo do banco de dados).

Na próxima página, temos um código simples. Supondo que você use sessions.

 

Exemplo:

 

Na página de login a pessoa clica em 'logar' e cai no seguinte código abaixo:

Dim login, senha, ssql

Set rsConsultaBancoDeDados = Server.CreateObject("ADODB.RecordSet")
login = funcaoAntiSqlInjection(request.form("txt_login"))
senha = funcaoAntiSqlInjection(request.form("txt_senha"))

ssql = " SELECT u.login, u.CAMINHOIMAGEM FROM tb_usuarios as u with (nolock) WHERE (u.login = '"&login&"' and u.senha = '"&senha&"'); "

If NOT rsConsultaBancoDeDados.EoF Then
Session("login") = "FULANO"
Session("caminhoimagem") = rsConsultaBancoDeDados("CAMINHOIMAGEM")
Response.Redirect("logado.asp")
Else
Response.Write("SENHA INVÁLIDA.")
End If

Agora na próxima página, a logado.asp, a pessoa estará logada e pronta para usar o sistema.

Bastará usar a sua session de caminho.

 

<img src="<%=Session("caminhoimagem")%>">

Entendeu como faz?

Tem outras formas, mas essa é uma das.

 

Abraço,

Giancarlo Braga.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha aki, pode te ajudar

 

lembrando k você pode fazer com duas imagem uma para quando o user estiver off-line e outra para quando ele se conectar mostrando a imagem k ele quiser, fica legal tb...

Compartilhar este post

Link para o post
Compartilhar em outros sites

arldin    1

arldin
Postado

Amigo veja se assim eu criei a pagina

 

login.asp

<html>
<head>
<title>Login</title>
</head>
<body>
<center><font face="Arial" size="4"><b>Login</b></h2></center>

<form name="form" method="post" action="logar.asp">
<table border=0 width="80%" align=center>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">Usuário:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="Login" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">Senha:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=password name="Senha" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
   
</form>
    </TD>
  </TR>  
  </font>
</table>
<center><input type=submit name=submit value=Logar style="{<font-family:Arial; font-size:12}"></center>
</form>

</body>
</html>
mais quando clico e nao vai para a pagina

logar.asp

que e esta

<%

Dim login, senha, ssql

Set rsConsultaBancoDeDados = Server.CreateObject("ADODB.RecordSet")

login = funcaoAntiSqlInjection(request.form("txt_login"))

senha = funcaoAntiSqlInjection(request.form("txt_senha"))

ssql = " SELECT u.login, u.imagem FROM tb_login as u with (nolock) WHERE (u.login = '"&login&"' and u.senha = '"&senha&"'); "

If NOT rsConsultaBancoDeDados.EoF Then

Session("login") = "FULANO"

Session("imagem") = rsConsultaBancoDeDados("imagem")

Response.Redirect("logado.asp")

Else

Response.Write("SENHA INVÁLIDA.")

End If

%>

e na pagina logado.asp a imagem não aparece que esta abaixo

<html>

<head>

<title>ASP Coders - O portal do programador ASP</title>

</head>

<body>

<br>

Hoje é: <img src="<%=Session("imagem")%>">

 

</body>

</html>

a onde pode esta o erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

no request.form você esta chamando outro nome, o nome do campo é <input type=text name="Login" , você esta recuperando "txt_login", mude para apenas login

 

 

login = funcaoAntiSqlInjection(request.form("txt_login"))

senha = funcaoAntiSqlInjection(request.form("txt_senha"))

Set rsConsultaBancoDeDados = Server.CreateObject("ADODB.RecordSet")

ssql = " SELECT u.login, u.imagem FROM tb_login as u with (nolock) WHERE (u.login = '"&login&"' and u.senha = '"&senha&"'); "

rsConsultaBancoDeDados ssql,nome_conexao,1,3

 

tente usar esse tipo de consulta

 

SQL="SELECT login,imagem FROM login WHERE login='"&varlogin&"'"

 

e depois a senha compare assim

 

if Lcase (senha) <> Lcase(rsConsultaBancoDeDados("senha")) then

response.redirect("logincli_form_treina.asp?msgeof=4")

session("logado")=False

else

session("logado")=True

session("senha")=varsenha

session("login")=varlogin

session("imagem")=rsConsultaBancoDeDados("imagem")

response.Redirect("administracao_treina.asp")

end if

 

fica melhor, evita sqlinject e naun sobrecarrega o server

 

olha um exemplo de login:

<% Option Explicit
'declara as var
dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data
'recupera as var
varlogin=Trim(request.form("login"))
varsenha=Trim(request.form("senha"))
varlogin=Replace(varlogin,"'","")
varsenha=Replace(varsenha,"'","")
if varlogin="" then
response.redirect("logincli_form_treina.asp?msgeof=1")
end if
if varsenha="" then
response.redirect("logincli_form_treina.asp?msgeof=2")
end if
if Session("logado")=True then
response.redirect("logincli_form_treina.asp?msgeof=5")
end if 
%>
<!--#include file="conn/conexao1.asp"-->
<%
 call abreconexao
'cria o recordset
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM login WHERE login='"&varlogin&"'"
rs.open SQL,conexao,1,3
	if rs.eof then
	   response.redirect("logincli_form_treina.asp?msgeof=3")
	else
		if Lcase (varsenha) <> Lcase(rs("senha")) then
			response.redirect("logincli_form_treina.asp?msgeof=4")
			session("logado")=False
		else
			session("logado")=True
			session("senha")=varsenha
			session("login")=varlogin
			response.Redirect("administracao_treina.asp")
		end if
	end if
set rs=nothing
call fechaconexao%>

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