<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_lista_log_admin.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 16/11/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() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMGeral&"") %>

• Histórico de acessos "> <% If Request.form("msg_resultado") <> "" Then %> <% End If %> DATA: ">    <%= Request.form("msg_resultado")%> <% '------------------------------------------------------------------------------------- ' Verifica se houve alguma requisição de remoção If Request.form("Remover") <> "" Then ' cria o objeto Set objFSO = CreateObject("Scripting.FileSystemObject") 'Remove todos os LOGs de acesso If Request.form("Remover") = "Remover todos os LOGS" Then 'diretorio do LOG escolhido caminhoLOG = Application("LogsADM") ' Verifica se existe o diretorio de LOGS e o remove If objFSO.FolderExists(caminhoLOG) Then Response.write caminhoLOG objFSO.DeleteFolder Mid(caminhoLOG,1,LEN(caminhoLOG)-1) End If 'Cria novamente o diretorio de LOGS vazio Set dirLOG = objFSO.CreateFolder(caminhoLOG) Set dirLOG = nothing postDataLog = false ElseIf Request.form("Remover") = "Remover LOGS desta data" Then 'diretorio do LOG escolhido caminhoLOG = Application("LogsADM") ' Data do LOG selecionado dataLog = Split(Request.form("dataLog"),"/") ' Ano do LOG selecionado anoSel = dataLog(2) ' Mes do LOG selecionado mesSel = dataLog(1) ' Dia do LOG selecionado diaSel = dataLog(0) Set usuarioLOG = objFSO.GetFolder(caminhoLOG) For Each usuario In usuarioLOG.SubFolders ' Caminho do LOG escolhido caminhoLOGsel = caminhoLOG & usuario.Name & "\" & anoSel & "\" & mesSel ' Localização do LOG escolhido LOGsel = caminhoLOGsel & "\" & diaSel & mesSel & anoSel & ".xml" ' Verifica se existe LOG para o usuário do LOOP If objFSO.FileExists(LOGsel) Then objFSO.DeleteFile LOGsel End If Next Set usuarioLOG = Nothing Response.end postDataLog = false ' Remove um LOG específico ElseIf Request.form("Remover") = "Remover LOGS deste usuário desta data" Then 'caminho do LOG escolhido caminhoLOG = Request.form("caminhoLOG") ' Verifica se existe o arquivo de LOGS e o remove If objFSO.FileExists(caminhoLOG) Then objFSO.DeleteFile caminhoLOG End If postDataLog = true End If Set objFSO = Nothing msg_resultado = "LOG(s) excluido(s) com sucesso." 'Postagem de retorno %> <% If postDataLog = true Then %> "> <% End If %> <% Response.end End If '------------------------------------------------------------------------------------- ' Verifica se houve alguma requisição de pesquisa If Request.form("dataLog") <> "" Then msgSemResultado = " Sem resultado para sua pesquisa. " ' diretorio dos LOGS dirLOG = Application("LogsADM") dataLog = Split(Request.form("dataLog"),"/") ' Ano do LOG selecionado anoSel = dataLog(2) ' Mes do LOG selecionado mesSel = dataLog(1) ' Dia do LOG selecionado diaSel = dataLog(0) '------------------------------------------------------------------------------------- 'Pesquisa pela data do LOG If Request.form("dataLog") <> "" Then %> "> RESULTADO DA PESQUISA PELA DATA <%= Request.form("dataLog")%> <% ' cria o objeto Set objFSO = CreateObject("Scripting.FileSystemObject") ' Verifica se existe o diretorio de LOGS If objFSO.FolderExists(dirLOG) Then '------------------------------------------------------------------------------------- Set usuarioLOG = objFSO.GetFolder(dirLOG) ' Verifica se existe registro de LOG If usuarioLOG.SubFolders.Count <> 0 Then titulo = false ' LOOP de usuários administrativos que contém LOG For Each usuario In usuarioLOG.SubFolders ' Caminho do LOG escolhido caminhoLOGsel = dirLOG & usuario.Name & "\" & anoSel & "\" & mesSel ' Localização do LOG escolhido LOGsel = caminhoLOGsel & "\" & diaSel & mesSel & anoSel & ".xml" ' Verifica se existe LOG para o usuário do LOOP If objFSO.FileExists(LOGsel) Then '------------------------------------------------------------------------ If strColor = "class='Linha1Tabela'" Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If If titulo = false Then %> <% End If %> > "> id="dados<%= usuario.Name%>" style="display:none;"> <% titulo = true '------------------------------------------------------------------------ End If Next ' Exibe que não houve resultado If titulo = false Then Response.write msgSemResultado Else Response.write " USUÁRIO <%= usuario.Name%> <% ' Exibe os detalhes de acesso de um determinado usuario de acordo com o dia selecionado '----------------------------------------------------------- %> <% ' Abre o LOG Call abre_ArquivoXML(LOGsel,FctobjXML,FctobjRoot) set nodeACESSO = FctobjRoot.getElementsByTagName("ACESSO") array_nodeACESSO = nodeACESSO.length ' LOOP para exibir os dados do LOG for i = 0 to (array_nodeACESSO - 1) If strColor2 = "class='Linha1Tabela'" Then strColor2 = "class='Linha2Tabela'" Else strColor2 = "class='Linha1Tabela'" End If Set acesso = nodeACESSO.item(i) %> > <% Set acesso = Nothing Next strColor2 = NULL set nodeLOGS = Nothing ' Fecha o LOG Call fecha_ArquivoXML(LOGsel,FctobjXML,FctobjRoot) %> DATA HORA IP <%= acesso.getAttribute("DIA") %> <%= acesso.getAttribute("HORA") %> <%= acesso.getAttribute("IP") %> <% '----------------------------------------------------------- %> " End If Else Response.write msgSemResultado End If Set usuarioLOG = Nothing '------------------------------------------------------------------------------------- Else Response.write msgSemResultado End If Set objFSO = Nothing End If '------------------------------------------------------------------------------------- End If %>