Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

[Resolvido] Pagina de Login

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

e ai gente beleza

eu fiz uma pagina em html de login com Nome e Usuario e senha

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title> Sistema De Vendas </title>
<form name="frm1" Method="Post" action="">
<td bgcolor="black"><font color="black">Usuario</td>
<td bgcolor="black"><input type="text" name="Usuario" Size="20">
<br>
<td bgcolor="black"><font color="black">Senha</td>
<td bgcolor="black"><input type="Password" name="Senha" Size="20">

<P> </P>

</BODY>
</HTML>

como que eu faço pra quando eu abrir essa pagina de login e senha como eu coloco senha nessa pagina

Compartilhar este post

Link para o post
Compartilhar em outros sites

Filipe_Moraes    15

Filipe_Moraes
Postado

Sisteminha bem simples, não muito eficaz contra ataques, mas ja é inicio:

 

Obs.: essa pagina tem que estar com extensão .asp

 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
usuario = request("usuario")
senha = request("senha")
If usuario != "" AND senha != "" then
  If usuario = "teste" AND senha = "testesenha" then
   response.write("OK, senha correta!")
  Else
   response.write("ERRO, senha incorreta!")
  End if
End if
%>
<title> Sistema De Vendas </title>
<form name="frm1" Method="Post" action="">
<td bgcolor="black"><font color="black">Usuario</td>
<td bgcolor="black"><input type="text" name="Usuario" Size="20">
<br>
<td bgcolor="black"><font color="black">Senha</td>
<td bgcolor="black"><input type="Password" name="Senha" Size="20">

<P> </P>

</BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

a melhor coisa é utilizar banco de dados, para um simples página, poden usar FSO (arquivo txt), ou sem bd

faz uma pesquisa no fórum que existem vários exemplos

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado 

<%@ Language=VBScript %>
<% 

usuario = Request.Form("usuario")
senha = Request.Form("senha")

logado = "sim"

if usuario = "102030" then
if senha = "102030" then
logado = "nao"
end if



Response.Redirect ("index.asp")
end if

%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title> Sistema De Vendas </title>
<form name="frm1" Method="Post" action="cadastrar_vendas.asp">
<td bgcolor="black"><font color="black">Usuario</td>
<td bgcolor="black"><input type="text" name="Usuario" Size="20">
<br>
<td bgcolor="black"><font color="black">Senha</td>
<td bgcolor="black"><input type="Password" name="Senha" Size="20">
<input type="Submit" name="btn1" value=" Entrar >>">
<%

if Request.QueryString("msg")<> "" then 
Response.Write Request.QueryString("msg")
end if

%>
<P> </P>

</BODY>
</HTML>

e ai gente beleza

 

e o seguinte eu peguei o codigo dessa pagina e coloquei na minha pagina

 

http://forum.imaster..._1entry132914

 

ai eu pego e eu digito o nome de usuario e senha não acontece nada

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum erro ????

 

vê um daqueles exemplos que te passei ´eum tutorial, só seguir ele

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai gente beleza

eu peguei um codigo na internet deu certo

valeu pela ajuda ai

o codigo é

 

<html><head><title>Área Restrita</title>
<script language="javascript">
function validaForm() {
if (document.login.usu.value.length <= 1)
{
alert("Digite o nome de usuário!");
login.usu.focus();
return false;
}
if (document.login.pwd.value.length <= 1)
{
alert("Digite a senha de acesso!");
login.pwd.focus();
return false;
}
return true;
}
</script>
</head>
<body text="#000000" bgcolor="#FFFFFF">

<center>
<table border=0 width=290 bgcolor="#336699">
<tr><td>

<form name="login" method="post" action="index2.asp" onSubmit="return validaForm(this);">
<p align="center"><font color="#ccffcc" face="verdana,arial" size=2><b>Somente pessoas autorizadas e devidamente cadastradas podem acessar esta 
seção.<br>Identifique-se.</b></font>
</p>
<p align="right"><font color="#ccffcc" face="verdana,arial" size=2><br>
Nome de usuário:  
<input type="text" name="usu" size="15"><br> 
Senha: <input type="password" name="pwd" size="15"></font>
</p>

<p align=right>
<input type="submit" value="Entrar">
 </p>


</font>

<p align=right><i>
<font face="Verdana" size=2 color="#FFFFFF">
Códigos fornecidos por <b>Mep Sites</b><br>
</font>

</p>
</center>
</form>
</td></tr>
</table>





</body>

</html>


index2.asp

<%
Dim UsuarioDigitado
UsuarioDigitado=Request.Form("usu")
Dim SenhaDigitada
SenhaDigitada=Request.Form("pwd")
EstadoUsuario="aindanao"  'Nao altere este valor

Dim UsuarioReal
Dim SenhaReal
UsuarioReal = "marcos"   'Troque marcos para o nome desejado
SenhaReal = "102030"   'Troque 123456 para a senha desejada

'Nota: Deixe entre aspas, senão pode dar erros e não funcionar.

If UsuarioDigitado = UsuarioReal And SenhaDigitada = SenhaReal Then
EstadoUsuario = "logado"
Else
EstadoUsuario = "desconectado"
End If

Dim erro1
erro1 = "erro.asp?nome=" & UsuarioDigitado & "&senha=" & SenhaDigitada
If EstadoUsuario = "desconectado" Then
Response.Redirect(erro1)
End If

%>
pode encerrar o aqui

deu certo

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ok, beleza

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