<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: ADM_mostra_usuario_admin.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 12/09/06 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() If Session("usuario_admin") <> Request("user_id_admin") And checa_perfil_admin_menu(""&ADMUser&"") = false Then Response.redirect "ADM_home.asp?msg=SEU PERFIL DE USUÁRIO NÃO PERMITE ACESSO A ESTA PÁGINA" Response.end End If %>

<% If Request("user_id_admin") = Session("usuario_admin") Then %> • Perfil do usuário <% Else %> • Altera Usuário Admin <% End if %> <% Call abre_conexao(conexao) msg_resultado = request("msg_resultado") Set RS_UsuariosAdmin = Server.CreateObject("ADODB.Recordset") RS_UsuariosAdmin.CursorLocation = 3 RS_UsuariosAdmin.CursorType = 0 RS_UsuariosAdmin.LockType = 3 RS_UsuariosAdmin.Open "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("user_id_admin") & "'" , Conexao If RS_UsuariosAdmin.EOF Then Response.write "Usuário Apagado - Voltar à pagina de consulta" Else If Instr(RS_UsuariosAdmin("perfil_usuario"),",") <> 0 Then varPerfil = split(RS_UsuariosAdmin("perfil_usuario"),",") for i=0 to ubound(varPerfil) Select Case varPerfil(i) Case "ADMPed" pADMPed = "checked" Case "ADMProd" pADMProd = "checked" Case "ADMMeioPagto" pADMMeioPagto = "checked" Case "ADMRelat" pADMRelat = "checked" Case "ADMText" pADMServ = "checked" Case "ADMTarifas" pADMTarifas = "checked" Case "ADMMailing" pADMMailing = "checked" End Select next Else varPerfil = RS_UsuariosAdmin("perfil_usuario") Select Case varPerfil Case "ADMPed" pADMPed = "checked" Case "ADMProd" pADMProd = "checked" Case "ADMMeioPagto" pADMMeioPagto = "checked" Case "ADMRelat" pADMRelat = "checked" Case "ADMText" pADMServ = "checked" Case "ADMTarifas" pADMTarifas = "checked" Case "ADMMailing" pADMMailing = "checked" Case "ADMGeral" pADMGeral = "checked" End Select End If If checa_perfil_admin_menu(""&ADMGeral&"") = false Then varReadonly = "disabled" End If %> "> <% If msg_resultado <> "" Then %> <% End If %> <% If Request("user_id_admin") = Session("usuario_admin") Then %> <% Else %> <% End If %> <% If (checa_perfil_admin_menu(""&ADMUser&"")) Then %> <% End If %> <%=msg_resultado%> DADOS DO USUÁRIO <%=UCASE(RS_UsuariosAdmin("user_id_admin"))%><%If RS_UsuariosAdmin("status") = 1 Then response.write " ( BLOQUEADO )" End if%> NOME:  "> E-MAIL:  "> DDD/TELEFONE:  " onKeyUp='this.value=this.value.replace(/[^\d]*/gi,""); return autoTab(this, 2, event);' maxlength="2"> " maxlength="15"> PERMISSÃO <%If pADMGeral <> "" Then%><%End If%> class="FORMbox" <%= pADMPed%>> Adm. Pedidos class="FORMbox" <%= pADMMeioPagto%>> Adm. Formas de Pagamento class="FORMbox" <%= pADMProd%>> Adm. Categorias, Produtos e Câmbio class="FORMbox" <%= pADMServ%>> Adm. Textos class="FORMbox" <%= pADMTarifas%>> Adm. Tarifas class="FORMbox" <%= pADMMailing%>> Adm. Mailing class="FORMbox" <%= pADMRelat%>> Gerar Relatórios class="FORMbox" Onclick="javascript: perfil_usuarioadm('perfil_usuario');" <%= pADMGeral%>> Perfil Administrador DESEJO TROCAR MINHA SENHA SENHA ATUAL:  NOVA SENHA:  CONFIRME NOVA SENHA:  <% If RS_UsuariosAdmin("status") = 1 Then %> DESBLOQUEAR ESTE USUÁRIO <% Else %> BLOQUEAR ESTE USUÁRIO <% End if %> <% End If RS_UsuariosAdmin.Close Set RS_UsuariosAdmin = nothing %>