<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_altera_layout.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 03/10/07 ' '----------------------------------------------------------------------------- ' 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&"") %> <%=Application("NomeLoja")%>
<% 'Função para efetuar o UPLOAD do novo logo Set UPLlayout = Server.CreateObject("SoftArtisans.FileUp") If UPLlayout.form("acao_admin") = "Atualizar" Then Call abre_ArquivoXML(Application("XMLArquivoConfiguracao"),FctobjXML,FctobjRoot) Set configuracao = FctobjRoot.selectSingleNode("dados/configuracao_dados") FOR EACH count in UPLlayout.Form If count <> "acao_admin" And Instr(count,"XML_") <> 0 Then configuracao.setAttribute Mid(count,5,Len(count)),(Trim(UPLlayout.Form(count))) End If NEXT Set configuracao = Nothing Set objRoot = Nothing FctobjXML.save(Application("XMLArquivoConfiguracao")) 'Define o nome padrão da imagem File = "logo.gif" ' Altera o logo da loja If UPLlayout.Form("img_loja").UserFilename <> "" Then UPLlayout.Form("img_loja").Path = Application("DiretorioImagensConteudo") & "\padrao" UPLlayout.Form("img_loja").SaveAs File End If 'Chama a função para efetuar a alteração das cores Call atualiza_layout() msg_resultado = "Alterações efetuadas com sucesso!" %>
">
<% 'response.redirect "ADM_altera_layout.asp?msg_resultado=" & msg_resultado response.end End If %> • Customização de Layout

"> <% If UPLlayout.Form("msg_resultado") <> "" Then %>
<%= UPLlayout.Form("msg_resultado")%>
<% End If %>
Abaixo customize as cores do layout de sua loja. Para selecionar uma cor, clique no campo correspondente e depois na tabela ao lado ou digite no campo correspondente o código da cor em valores hexadecimais.
+
FORMATAÇÃO GERAL
+
CABEÇALHO
+
RODAPÉ
+
LATERAL ESQUERDA
+
LATERAL DIREITA
+
CENTRO


Abaixo customize o cabeçalho de sua loja. Para alterar o logo exibido no cabeçalho da loja e da administração, selecione uma nova imagem para publicação. Para exibir/ocultar o nome definido para loja do cabeçalho da loja, selecione a opção deseja no respectivo combo.
 NOVA IMAGEM
 EXIBIÇÃO DO NOME DA LOJA <%Call Cria_Combo_opcao("XML_ExibirNomeLoja",Application("ExibirNomeLoja"),"")%>
<% 'Habilita as tabelas que já estavam abertas antes do processo de alteração If Instr(UPLlayout.Form("camposAtivos"),"FormatacaoGeral") <> 0 Then Response.write "" If Instr(UPLlayout.Form("camposAtivos"),"Cabecalho") <> 0 Then Response.write "" If Instr(UPLlayout.Form("camposAtivos"),"Rodape") <> 0 Then Response.write "" If Instr(UPLlayout.Form("camposAtivos"),"LateralEsquerda") <> 0 Then Response.write "" If Instr(UPLlayout.Form("camposAtivos"),"LateralDireita") <> 0 Then Response.write "" If Instr(UPLlayout.Form("camposAtivos"),"Centro") <> 0 Then Response.write "" ' Finaliza o objeto Set UPLlayout = nothing %>