<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 12/09/06
' Arquivo: ADM_check_usuario.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 13/02/07
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
%>
<%
'Carrega a configuração dos caminhos a serem usuados na Loja
Call identifica_caminhos()
Call Valida_Request()
varLang = Application("varLang")
varSkin = "default"
'Abre o banco de dados
Call abre_conexao(conexao)
'Chamada da função ENCRIPTOR para encriptar a senha registrada no banco
sEncrypted = Encriptor(Request.Form("senha"),"encriptar")
If request("alterar") <> "" Then
Conexao.execute "UPDATE usuarios_admin SET chave_admin ='"&sEncrypted&"', status='0' where user_id_admin = '" & request("usuario") & "'"
Session("StatusSenha") = ""
End if
If Request.Form("senha") <> "" or Request("usuario") <> "" Then
senha = Request.Form("senha")
Set RS_pass = Server.CreateObject("ADODB.Recordset")
SQL = " SELECT user_id_admin, nome_usuario, email_usuario, ddd_usuario, fone_usuario, chave_admin, perfil_usuario, status FROM usuarios_admin where user_id_admin='"&Request("usuario")&"' and status <> 1 "
RS_pass.Open SQL,Conexao,3,3
If RS_pass.Eof Then
RS_pass.Close
Conexao.Close
set RS_pass = nothing
set Conexao = nothing
msgLogin = "?msgLogin=" & Server.URLEncode("USUÁRIO NÃO CADASTRADO.")
Response.Redirect Application("URL_Senha_Admin") & msgLogin
Else
acao = request("acao")
If (acao = "esquecisenha") Then
envia_senha = Envia_mail_senha(Request("usuario"),"admin",adicional)
msgLogin = "?msgLogin=" & Server.URLEncode("SENHA ENVIADA COM SUCESSO PARA O E-MAIL CADASTRADO.")
If request("url_redirect") <> "" Then
Response.Redirect request("url_redirect")
Else
Response.Redirect Application("URL_Senha_Admin") & msgLogin
End if
response.end
End If
End If
'Chamada da função ENCRIPTOR para decriptar a senha registrada no banco
sDecrypted = Encriptor(RS_pass("chave_admin"),"decriptar")
If Request("usuario") = RS_pass("user_id_admin") and senha = sDecrypted then
session("nome_usuario") = RS_pass("nome_usuario")
session("perfil_usuario") = RS_pass("perfil_usuario")
session("LogadoAdmin") = "LogadoAdmin"
session("usuario_admin") = RS_pass("user_id_admin")
'Verifica se a senha do usuário é inicial
If RS_pass("status") = "2" Then
Session("StatusSenha") = "inicial"
End if
Else
msgLogin = "?msgLogin=" & Server.URLEncode("DADOS INVÁLIDOS.")
Response.Redirect Application("URL_Senha_Admin") & msgLogin
End if
RS_pass.Close
set RS_pass = nothing
End If
'Destroi objeto
Set oEncryptor = Nothing
'Fecha o banco de dados
Call Fecha_conexao
If Session("StatusSenha") = "inicial" Then
%>
<%=Application("NomeLoja")%>
IP de acesso: <%= Request.ServerVariables("REMOTE_ADDR")%>
Prezado Administrador, seja bem vindo!
<%
Else
'Registra log de acesso do usuario
Call RegistraLog()
Response.redirect "adm_home.asp"
End if
%>
