Gostaria de saber como mostrar na tela o login do usuário logado tenho o código de mostrar o login o problema é que em meu sistema uso uma página para validar o login que é "validate.asp" é a essa página que redireciona o usuário de acordo com suas permissões ou se sua conta expirou ou não queria saber se alguém pode me ajudar com esses dois códigos seria juntar o código de mostrar o usúario na tela"acesso.asp" com o "validate.asp" segue abaixo os dois códigos:
Question
Guest Marcelo Guedes
Gostaria de saber como mostrar na tela o login do usuário logado tenho o código de mostrar o login o problema é que em meu sistema uso uma página para validar o login que é "validate.asp" é a essa página que redireciona o usuário de acordo com suas permissões ou se sua conta expirou ou não queria saber se alguém pode me ajudar com esses dois códigos seria juntar o código de mostrar o usúario na tela"acesso.asp" com o "validate.asp" segue abaixo os dois códigos:
VALIDATE.ASP
<%@Language=VBScript%>
<%Response.Buffer = True%>
<!--#INCLUDE FILE="config.inc"-->
<html>
<body>
<%
UserName = Replace(Trim(Request.Form("username")), "'", "''")
PassWord = Replace(Trim(Request.Form("password")), "'", "''")
If UserName = "1" OR PassWord = "1" Then Response.Redirect "breve.htm"
SQL = "Select ID, UserName, [PassWord], Clearance, ExpireDate From Login"
Set RS = MyConn.Execute(SQL)
While Not RS.EOF
If UserName = RS("UserName") And PassWord = RS("Password") Then
If RS("ExpireDate") > Now() Then
Session("allow") = True
Session("clearance") = RS("Clearance")
Level = RS("Clearance")
Else
Response.Redirect "utility.asp?method=expired"
End If
End If
RS.MoveNext
Wend
CleanUp(RS)
If Session("allow") = True Then
If Level = 3 Then Response.Redirect "admin.asp"
If Level < 3 Then Response.Redirect "Principal.asp"
Else
Response.Redirect "login_erro.asp"
End If
%>
</body>
</html>
ACESSO.ASP
<%@ Language=VBScript %>
<% 'Conexão com o banco de dados
conexao="DBQ=C:\Inetpub\wwwroot\Leilao\LOGIN\cadastro funcionando\Dados\login.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open conexao
login=(Request.QueryString("login"))
senha=(Request.QueryString("senha"))
set acesso=DB.Execute("SELECT * FROM login WHERE username='"&login&"' AND password='"&senha&"' ")
' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm
if acesso.eof then
Response.Redirect"entra.htm"
else
Session("login")=login
Session("username")= acesso("username")
Response.redirect "identificado.asp"
end if
DB.close
%>
Bom esse é meu primeiro tópico um abraço a todos e esperam que possam me ajudar......................VALEU
Link to comment
Share on other sites
6 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.