<% '----------------------------------------------------------------------------------- '#### ACESSO AO ADMINISTRADOR '----------------------------------------------------------------------------------- 'Sub AcessoASP() strTextoHtml = "" strTextoHtml = strTextoHtml & "" & tituloloja & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strAcao = Request.Form("acao") Select Case strAcao Case "valida" '----------------------------------------------------------------------------------- '####### Realiza busca no banco de dados do usuário e senha digitados '####### Programador Responsável : Rogério Silva '####### Email: webmaster_wb@brfree.com.br '####### Site: http://worldbily.cjb.net '----------------------------------------------------------------------------------- '####### O LOGIN DEVE ESTAR NO BANCO DE DADOS - CRIPTOGRAFADO '----------------------------------------------------------------------------------- email = Trim(Request.Form("esqs")) if email <> "digite seu email" then textosql = "SELECT SENHA FROM ACESSO WHERE EMAIL='"&Cripto(email,true)&"'" Set RS = conexao.Execute(textosql) IF NOT RS.EOF THEN Mensagem = "ATENÇÃO: Foi solicitado o envio de senha por você ou alguém que tem conhecimento de seu email.

NUNCA FORNEÇA SUA SENHA OU DEIXE ALGUÉM VENDO DIGITAR A MESMA


Solicitação de senha através da loja "& application("nomeloja") &"
Sua senha é "&DecodeBase64(RS("SENHA"))&"

Área administrativa da loja: http://"&urlloja&"/admin" '----------------------------------------------------------------------------------- '####### Realiza busca no banco de dados o email e envia a senha para o administrador '####### Programador Responsável : Rogério Silva '####### Email: webmaster_wb@brfree.com.br '####### Site: http://worldbily.cjb.net '----------------------------------------------------------------------------------- '####### O EMAIL DEVE ESTAR NO BANCO DE DADOS - CRIPTOGRAFADO '----------------------------------------------------------------------------------- '####### ADVERTENCIA: NÃO RETIRE O LINK DO SITE!!! CASO CONTRÁRIO NÃO TERÁS AJUDA '----------------------------------------------------------------------------------- Host=application("HostLoja") Componente = application("ComponenteLoja") NomeEmail=DecodeBase64(Rs("LOGIN")) ParaEmail=email Assunto="Lembrete de senha :: "&NOW Call EnviaEmail(Host,Componente,Email_da_sua_loja,NomeEmail,ParaEmail,Assunto,Mensagem) response.redirect "?login=mail" else response.redirect "?login=email" end if else login = Trim(Request.Form("usr")) senha = Trim(Request.Form("sen")) textosql = "SELECT * FROM ACESSO WHERE LOGIN='"&Cripto(login,true)&"' AND SENHA= '"&Cripto(senha,true)&"'" Set RS = conexao.Execute(textosql) IF NOT RS.EOF THEN 'If Request.Form("usr") = LCase(Application("nomeadmin")) And Request.Form("sen") = Application("senhaadmin") Then Session("IdAdm") = Rs("IDACESSO") Session("NOME") = login Session("SENHA") = senha Session("Acesso") = (Rs("QTDACESSO")+1) Session("UltAcesso") = Rs("ULTACESSO") '--------------------------------------------------------------------------- '#### ATUALIZA A ULTIMA VISITA E A QUANTIDADE DE VISITAS '--------------------------------------------------------------------------- SQL = "UPDATE ACESSO SET QTDACESSO="& Session("Acesso") &", ULTACESSO='"& NOW() &"' WHERE IDACESSO="&RS("IDACESSO") Set RSU = conexao.Execute(SQL) '--------------------------------------------------------------------------- textosql = "INSERT INTO admin (data, hora, ip, host) VALUES ('" & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & "', '" & Time & "', '" & Request.ServerVariables("remote_addr") & "', '" & Request.ServerVariables("remote_host") & "');" Set gravaentra = conexao.Execute(textosql) Session("admin") = "logado" Response.Redirect "?" & Request.Form("url") '----------------------------------------------------------------------------------- '####### NÃO UTILIZAREMOS MAIS AS LINHAS ABAIXO '----------------------------------------------------------------------------------- 'ElseIf Request.Form("usr") = "789GHDWW45543f" And Request.Form("sen") = "SFGDTE45782FGD" Then 'textosql = "INSERT INTO admin (data, hora, ip, host) VALUES ('" & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & "', '" & Time & "', '" & Request.ServerVariables("remote_addr") & "', '" & Request.ServerVariables("remote_host") & "');" 'Set gravaentra = conexao.Execute(textosql) 'Session("admin") = "logado" 'Response.Redirect "?" & Request.Form("url") '----------------------------------------------------------------------------------- Else Response.Redirect "?login=erro" End If end if Case Else strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
 Login na administração da loja

" strTextoHtml = strTextoHtml & "
" If Len(Day(Date)) = 1 Then dia = "0" & Day(Date) Else dia = Day(Date) End If If Len(Month(Date)) = 1 Then mez = "0" & Month(Date) Else mez = Month(Date) End If strTextoHtml = strTextoHtml & "
  Seu IP é " & Request.ServerVariables("remote_addr") & " e seu HOST é " & Request.ServerVariables("remote_host") & ", são " & Time & " em " & dia & "/" & mez & "/" & Year(Date) & " , por medidas de segurança estas informações serão gravadas em nossa base de dados.
" strTextoHtml = strTextoHtml & "
" If Request("login") = "erro" Then strTextoHtml = strTextoHtml & "
Autorização para login no administrador negada!


" elseIf Request("login") = "mail" Then strTextoHtml = strTextoHtml & "
Email enviado com sucesso!


" elseIf Request("login") = "email" Then strTextoHtml = strTextoHtml & "
Email inválido!


" End If strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
Login no administrador
Esta é uma área de acesso restrito
Usuário:
Senha:
Esqueci minha senha
Digite seu email:
" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "© VirtuaStore - Powered by VirtuaStore OPEN           Hospedagem de sites com loja virtual grátis.  
" strTextoHtml = strTextoHtml & "
" End Select strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" conexao.Close Set conexao = Nothing 'End Sub %>