Ir para conteúdo

POWERED BY:

Arquivado

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

cesaroet

Verficação

Por , em ASP Clássico

Recommended Posts

cesaroet    0

cesaroet
Postado

Gostaria de saber como posso fazer o segundo ficar com as mesmas funções do primeiro(parte em asp somente), as parte do html ta ok.

1º index.asp
<html>
<head>
<title>Sistema de Controle</title>
<script type="text/javascript">
function goFocus(elementID){
document.getElementById(elementID).focus();
}
</script>
</head>
<body onload="goFocus('usuario')">
<!--#include file="formatacao.txt"-->
<br><br><br><br><br><br>
<form action="vlogin.asp" method="post" name="FormLogin">
<table border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center"><font class="erro">Login</font></td>
</tr>
<tr>
<td align="left"><font class="msg">Usuario</font></td>
<td align="left"><input name="usuario" id="usuario" type="text" maxlength="50" size="20"></td>
</tr>
<tr>
<td align="left"><font class="msg">Senha</font></td>
<td align="left"><input name="senha" type="password" maxlength="50" size="20"></td>
</tr>
<tr>
<td colspan="2" align="center"><input name="entrar" type="submit" value="Entrar"></td>
</tr>
</table>
</form>
</body>
</html>
2º index.asp
<html>
<head>
<title>Página de Login</title>
<link rel="stylesheet" href="style.css"></head>
<body>
<br><br><br><section class="loginform ">
<fieldset>
<legend align="center">Login</legend>
<label>
<span>Usuário</span>
<input type="text" name="usuario" size="22" id="usuario"
placeholder="Digite aqui o seu usuário" required/>
</label>
<label>
<span>Senha</span>
<input type="password" size="22" name="senha" id="senha"
placeholder="Digite aqui a sua senha" required/>
</label>
<label>
<input type="submit" value="enviar" />
</label>
</fieldset>
</section>
</body>
</html>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Fazer o que exatamente e qual o code ASP que quer....

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Somente um include e função js

Compartilhar este post

Link para o post
Compartilhar em outros sites

cesaroet    0

cesaroet
Postado
Vlogin.asp(o daqui <form action="vlogin.asp" method="post" name="FormLogin">)

<html>

<head>

<title>Login</title>

</head>

<body>


<!--#include file="conn.asp"-->

<!--#include file="md5.asp"-->

<%

usuario = Request.Form("usuario")

senha = Request.Form("senha")

Vuser = md5(usuario)

Vsenha = md5(senha)


Set Verificar = Server.CreateObject("ADODB.Recordset")

inst_sql = "SELECT TOP 1 * FROM login WHERE usuario='"&Vuser&"' AND senha='"&Vsenha&"'"


set Verificar=conn.execute(inst_sql)


If not Verificar.eof Then

If Verificar.fields("usuario") = Vuser and Verificar.fields("senha") = Vsenha then

Session.LCID = 1046 'Para datas no formato brasileiro

Session("usuario") = verificar.fields("nome")

Session.Timeout = 240

if Verificar.fields("pr") = "c81e728d9d4c2f636f067f89cc14862c" then

Session("pr") = 2

else

Session("pr") = 1

end if

response.redirect "rel_ser.asp"

else

Response.Redirect "index.asp"

end If

else

Response.Redirect "index.asp"

End If


Verificar.Close

conn.Close

Set Verificar = Nothing

Set conn = Nothing

%>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Inclua os include necessários

 

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
faça o request de seus campos vindo do form ou querystring
<%
variavel 1 = Request.Form("var1")
senha = Request.Form("senha")
Vuser = md5(usuario)
Vsenha = md5(senha)
crie seu obj. recordset
Set Verificar = Server.CreateObject("ADODB.Recordset")
crie sua SQL
inst_sql = "SELECT TOP 1 * FROM login WHERE usuario='"&Vuser&"' AND senha='"&Vsenha&"'"
execute
set Verificar=conn.execute(inst_sql)
e aqui um simples IF referente aos seus critérios
If not Verificar.eof Then
If Verificar.fields("variavel 1") = Vuser and Verificar.fields("campo do recordset") = Vsenha then
Session.LCID = 1046 'Para datas no formato brasileiro
Session("usuario") = verificar.fields("nome")
Session.Timeout = 240
if Verificar.fields("pr") = "c81e728d9d4c2f636f067f89cc14862c" then
Session("pr") = 2
else
Session("pr") = 1
end if
response.redirect "rel_ser.asp"
else
Response.Redirect "index.asp"
end If

Compartilhar este post

Link para o post
Compartilhar em outros sites

cesaroet    0

cesaroet
Postado

 

Inclua os include necessários

 

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
faça o request de seus campos vindo do form ou querystring
<%
variavel 1 = Request.Form("var1")
senha = Request.Form("senha")
Vuser = md5(usuario)
Vsenha = md5(senha)
crie seu obj. recordset
Set Verificar = Server.CreateObject("ADODB.Recordset")
crie sua SQL
inst_sql = "SELECT TOP 1 * FROM login WHERE usuario='"&Vuser&"' AND senha='"&Vsenha&"'"
execute
set Verificar=conn.execute(inst_sql)
e aqui um simples IF referente aos seus critérios
If not Verificar.eof Then
If Verificar.fields("variavel 1") = Vuser and Verificar.fields("campo do recordset") = Vsenha then
Session.LCID = 1046 'Para datas no formato brasileiro
Session("usuario") = verificar.fields("nome")
Session.Timeout = 240
if Verificar.fields("pr") = "c81e728d9d4c2f636f067f89cc14862c" then
Session("pr") = 2
else
Session("pr") = 1
end if
response.redirect "rel_ser.asp"
else
Response.Redirect "index.asp"
end If

obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

76286_671770966200036_1150471179_n.jpg

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