<%
if request("link") = "ver" then
%>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
<%
'CHAMA OS DEPARTAMENTOS CADASTRADOS
Set rs = Server.CreateObject("adodb.recordset")
registroporpagina = 15
RS.PageSize = registroporpagina 'quantidade de registros por página. Você pode alterar sem conforme precise.
RS.CursorLocation = 3
RS.CacheSize = registroporpagina
'Vamos fazer a busca na tabela contatos
if request("chave") ="" then
sql = "SELECT * FROM produtos ORDER by nome"
else
sql = "SELECT * FROM produtos WHERE nome LIKE '%"&request("chave")&"%' or detalhe LIKE '%"&request("chave")&"%' or preco LIKE '%"&request("chave")&"%' ORDER by nome ASC"
end if
rs.Open sql,conexao,3
If rs.EOF Or rs.bof Then%>
Nenhum produto foi encontrado. Clique
aqui para voltar.
<%else
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> rs.PageCount then
intpagina=rs.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
rs.AbsolutePage = intpagina
' Inicia o contador que vai controlar os registros mostrados
intrec=0
%>
Foram encontrados
<%=rs.RecordCount %> produtos cadastrados
divididos em <%=rs.PageCount %> páginas
Você está navegando na página de número
<%=intpagina %>
<%
'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < rs.PageSize and not rs.EOF
'numiz = CInt(intpagina & "0")
'iz = iz + numiz
iz = iz + 1
%>
<%
rs.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF rs.EOF then
response.write " "
END IF
Wend 'fim do loop%>
|
| |
|
| |
|
<% 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF (intpagina) <> 0 then %>
Página:
<% for i = 1 to RS.PageCount %>
&pagina=<%=i%>">
[
<%Response.Write i%>
]
<%response.Write" "%>
<%next%>
<% END IF %>
|
| |
|
| |
<%end if%>
|
<%
elseif request("link") = "verpromo" then%>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
<%
'CHAMA OS DEPARTAMENTOS CADASTRADOS
Set rs = Server.CreateObject("adodb.recordset")
registroporpagina = 15
RS.PageSize = registroporpagina 'quantidade de registros por página. Você pode alterar sem conforme precise.
RS.CursorLocation = 3
RS.CacheSize = registroporpagina
'Vamos fazer a busca na tabela contatos
if request("chave") ="" then
sql = "SELECT * FROM produtos WHERE anunciado='s' ORDER by nome "
else
sql = "SELECT * FROM produtos WHERE nome LIKE '%"&request("chave")&"%' and anunciado='s' ORDER by nome ASC"
end if
rs.Open sql,conexao,3
If rs.EOF Or rs.bof Then%>
Nenhum produto foi encontrado. Caso esteja
fazendo uma busca, clique
aqui para voltar.
<%else
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> rs.PageCount then
intpagina=rs.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
rs.AbsolutePage = intpagina
' Inicia o contador que vai controlar os registros mostrados
intrec=0
%>
Foram encontrados
<%=rs.RecordCount %> produtos sendo
anunciados divididos em <%=rs.PageCount %>
páginas
Você está navegando na página de número
<%=intpagina %>
<%
'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < rs.PageSize and not rs.EOF
'numiz = CInt(intpagina & "0")
'iz = iz + numiz
iz = iz + 1
%>
<%
rs.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF rs.EOF then
response.write " "
END IF
Wend 'fim do loop%>
|
| |
|
| |
|
<% 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF (intpagina) <> 0 then %>
Pagina:
<% for i = 1 to RS.PageCount %>
&pagina=<%=i%>">
[
<%Response.Write i%>
]
<%response.Write" "%>
<%next%>
<% END IF %>
|
| |
|
| |
<%end if%> |
<%
elseif request("link") = "editar" then
codigo = request("id")
set rs = conexao.execute("SELECT * FROM produtos WHERE idprod='"&codigo&"'")
%>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "incluir" then
%>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "opcoes" then
%>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
<%
'Número total de registros a serem exibidos por página
Const RegPorPag = 15
'Número de páginas a ser exibido no índice de paginação
VarPagMax = 10
%>
<%
Dim objRS, ComandoSQL
If Request.QueryString("PagAtual") = "" Then
PagAtual = 1
NumPagMax = VarPagMax
Else
NumPagMax = CInt(Request.QueryString("NumPagMax"))
PagAtual = CInt(Request.QueryString("PagAtual"))
Select Case Request.QueryString("Submit")
Case "Anterior" : PagAtual = PagAtual - 1
Case "Proxima" : PagAtual = PagAtual + 1
Case "Menos" : NumPagMax = NumPagMax - VarPagMax
Case "Mais" : NumPagMax = NumPagMax + VarPagMax
Case Else : PagAtual = CInt(Request.QueryString("Submit"))
End Select
If NumPagMax < PagAtual then
NumPagMax = NumPagMax + VarPagMax
End If
If NumPagMax - (VarPagMax - 1) > PagAtual then
NumPagMax = NumPagMax - VarPagMax
End If
End If
If Request("id") <> "" Then
Conectar
ComandoSQL = "DELETE FROM especificacoes_detalhes WHERE especificacao LIKE '" & Request("titulo") & "'"
Set objRS_delete = conexao.Execute(ComandoSQL)
Set objRS_delete = Nothing
ComandoSQL = "DELETE FROM especificacoes WHERE id = " & Request("id")
Set objRS_delete = conexao.Execute(ComandoSQL)
Set objRS_delete = Nothing
Desconectar
End If
If trim(request("especificacao")) <> "" Then
Set objRS_verifica = Server.CreateObject("ADODB.Recordset")
objRS_verifica.CursorLocation = 2
objRS_verifica.CursorType = 0
objRS_verifica.LockType = 2
ComandoSQL = " SELECT * FROM especificacoes WHERE titulo like '" & Trim(Request("especificacao")) & "'"
objRS_verifica.Open ComandoSQL, conexao, , , &H0001
If Not objRS_verifica.EOF Then
objRS_verifica.Close
Set objRS_verifica = Nothing
%>
Especificação
já cadastrada |
A especificação
<%=Request("especificacao")%> já
está cadastrada
|
<%
Else
ComandoSQL = " SELECT * FROM especificacoes WHERE 1<>1"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 1
objRS.LockType = 2
objRS.Open ComandoSQL, conexao,,, &H0001
objRS.AddNew
objRS("titulo") = Trim(request("especificacao"))
objRS.Update
objRS.Requery
objRS.Close
Set objRS = Nothing
End If
End If
If Request("PagAtual") <> "" Then
ComandoSQL = Session("ComandoSQL")
Else
ComandoSQL = "SELECT * FROM especificacoes"
ComandoSQL = ComandoSQL & " ORDER BY titulo ASC"
Session("ComandoSQL") = ComandoSQL
End If
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
objRS.CacheSize = RegPorPag
objRS.Open ComandoSQL, conexao,,, &H0001
objRS.PageSize = RegPorPag
If Not objRS.EOF Then
objRS.AbsolutePage = PagAtual
TotPag = objRS.PageCount%>
| Admin |
Especificação |
Opções |
Referência |
<% For Cont = 1 to objRS.PageSize%>
"> |
<% =objRS("titulo") %>
|
<% ComandoSQL = "SELECT * FROM especificacoes_detalhes Where especificacao LIKE '" & objRS("titulo") & "'"
ComandoSQL = ComandoSQL & " ORDER BY titulo ASC"
Set objRS_opcoes = Server.CreateObject("ADODB.Recordset")
objRS_opcoes.CursorLocation = 3
objRS_opcoes.CursorType = 2
objRS_opcoes.LockType = 1
objRS_opcoes.Open ComandoSQL, conexao,,, &H0001
If Not objRS_opcoes.EOF Then
While Not objRS_opcoes.EOF
Response.Write objRS_opcoes("titulo")
objRS_opcoes.MoveNext
If Not objRS_opcoes.EOF Then Response.Write ", "
Wend
End If%>
|
<% total = 0
ComandoSQL = "SELECT * FROM produtos_especificacoes_detalhes WHERE titulo LIKE '" & objRS("titulo") & "'"
Set objRS_total = Server.CreateObject("ADODB.Recordset")
objRS_total.CursorLocation = 3
objRS_total.CursorType = 2
objRS_total.LockType = 1
objRS_total.Open ComandoSQL, conexao,,, &H0001
total = objRS_total.RECORDCOUNT
Set objRS_total = Nothing
If total > 0 Then%>
Referência com <%= total %> produto(s)
<% Else%>
Nenhuma referência - "> Remover
<% End If%>
|
<%objRS.MoveNext
If objRS.Eof then Exit For
Next%>
<%
LinksNavegacao()
Else%>
Nenhuma especificação
foi encontrada!
<%End If
Set ComandoSQL = Nothing
Set objRS = Nothing
%>
<%
Sub LinksNavegacao()
'O código a seguir insere uma tabela com todos os links de navegação das páginas%>
Página
<%= PagAtual %> de <%= TotPag%> |
|
<%
If PagAtual > 1 Then%>
" style='text-decoration=none'><
Anterior
<%End If%> |
<%If NumPagMax - VarPagMax <> 0 then%>
style="text-decoration=none"><<
<%End If
for i = NumPagMax - (VarPagMax - 1) to NumPagMax
If i <= TotPag then
If i <> CInt(PagAtual) then%>
style="text-decoration=none"><%= i%>
<% Else
If PagAtual <> TotPag Then
Response.Write " " & i & " "
End If
End If
End If
Next
If NumPagMax < TotPag then
Response.Write " >>"
End If%> |
<%If PagAtual <> TotPag Then%>
" style="text-decoration=none">Proxima
>
<%End If%> |
<%
End Sub
%>
|
<%
elseif request("link") = "abrir_esp" then
%>
|
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "fabricantes" then
Set fb = Server.CreateObject("adodb.recordset")
fb.CursorLocation = 3
fb.Open "SELECT * FROM fabricantes",conexao,3
%>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
<%IF fb.eof or fb.bof then%>
Nenhum fabricante cadastrado foi encontrado
em sua loja virtual.
<%else%>
Foram encontrados <%=fb.recordcount%>
fabricantes cadastrados
|
<%
fb.close
set fb = nothing
end if%>
<%
elseif request("link") = "incluirfabricante" then
%>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "editarfabricante" then
set fb = conexao.execute("SELECT * FROM fabricantes WHERE id='"&request("id")&"'")
%>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
|
<%
elseif request("link") = "gerarxml" then
%>
<%
FUNCTION calcular(valor_total,qntparcelas, minima)
if valor_total/6 >= 1 + minima - 1 and qntparcelas >=6 then
act.WriteLine("6" )
act.WriteLine(""& formatnumber((valor_total/6),2)&"" )
elseif valor_total/5 >= 1 + minima - 1 and qntparcelas >=5 then
act.WriteLine("5" )
act.WriteLine(""& formatnumber((valor_total/5),2)&"" )
elseif valor_total/4 >= 1 + minima - 1 and qntparcelas >=4 then
act.WriteLine("4" )
act.WriteLine(""& formatnumber((valor_total/4),2)&"" )
elseif valor_total/3 >= 1 + minima - 1 and qntparcelas >=3 then
act.WriteLine("3" )
act.WriteLine(""& formatnumber((valor_total/3),2)&"" )
elseif valor_total/2 >= 1 + minima - 1 and qntparcelas >=2 then
act.WriteLine("2" )
act.WriteLine(""& formatnumber((valor_total/2),2)&"" )
end if
END FUNCTION
'ESTE ARQUIVO É RESPONSÁVEL POR GERAR O ARQUIVO XML
'PARA BUSCAPÉ, UOLSHOPPING E QUEM MAIS PRECISE.
set rs = conexao.execute("SELECT * FROM produtos WHERE anunciado='s'")
' Nome do documento XML de saida
arquivo_xml= "../anuncio.xml"
' cria um arquivo usando o file system object
set fso = createobject("scripting.filesystemobject")
'verifica se o arquivo existe
If fso.FileExists(arquivo_xml) = true Then
FSO.DeleteFile arquivo_xml
End If
masterp = master("master_quantidade_sjuros")
masterpm = master("master_parcela_minima")
visap = visa("visa_quantidade_sjuros")
visapm = visa("visa_parcela_minima")
if visa("visa_utilizar") = "Sim" then
visa = "sim"
calcular_parcela = "s"
else
visa = "nao"
end if
if master("master_utilizar") = "Sim" then
master = "sim"
calcular_parcela = "s"
else
master = "nao"
end if
if master = "sim" and visa = "sim" then
if 1 + visap - 1 >= 1 + masterp - 1 then
cartao = "Visa"
parcelas = visap
minima = visapm
else
cartao = "Mastercard"
parcelas = masterp
minima = masterpm
end if
else
if master = "sim" and visa = "nao" then
cartao = "Mastercard"
parcelas = masterp
minima = masterpm
elseif master = "nao" and visa = "sim" then
cartao = "Visa"
parcelas = visap
minima = visapm
end if
end if
FUNCTION calcular(valor_total,qntparcelas, minima)
if valor_total/6 >= 1 + minima - 1 and qntparcelas >=6 then
act.WriteLine("6" )
act.WriteLine(""& formatnumber((valor_total/6),2)&"" )
elseif valor_total/7 >= 1 + minima - 1 and qntparcelas >=7 then
act.WriteLine("7" )
act.WriteLine(""& formatnumber((valor_total/7),2)&"" )
elseif valor_total/8 >= 1 + minima - 1 and qntparcelas >=8 then
act.WriteLine("8" )
act.WriteLine(""& formatnumber((valor_total/8),2)&"" )
elseif valor_total/9 >= 1 + minima - 1 and qntparcelas >=9 then
act.WriteLine("9" )
act.WriteLine(""& formatnumber((valor_total/9),2)&"" )
elseif valor_total/10 >= 1 + minima - 1 and qntparcelas >=10 then
act.WriteLine("10" )
act.WriteLine(""& formatnumber((valor_total/10),2)&"" )
elseif valor_total/11 >= 1 + minima - 1 and qntparcelas >=11 then
act.WriteLine("11" )
act.WriteLine(""& formatnumber((valor_total/11),2)&"" )
elseif valor_total/12 >= 1 + minima - 1 and qntparcelas >=12 then
act.WriteLine("12" )
act.WriteLine(""& formatnumber((valor_total/12),2)&"" )
elseif valor_total/5 >= 1 + minima - 1 and qntparcelas >=5 then
act.WriteLine("5" )
act.WriteLine(""& formatnumber((valor_total/5),2)&"" )
elseif valor_total/4 >= 1 + minima - 1 and qntparcelas >=4 then
act.WriteLine("4" )
act.WriteLine(""& formatnumber((valor_total/4),2)&"" )
elseif valor_total/3 >= 1 + minima - 1 and qntparcelas >=3 then
act.WriteLine("3" )
act.WriteLine(""& formatnumber((valor_total/3),2)&"" )
elseif valor_total/2 >= 1 + minima - 1 and qntparcelas >=2 then
act.WriteLine("2" )
act.WriteLine(""& formatnumber((valor_total/2),2)&"" )
end if
END FUNCTION
' cria o arquivo texto no disco com opção de sobrescrever o arquivo existente
Set act = fso.CreateTextFile(server.mappath(arquivo_xml), true)
' cabecalho do XML
act.WriteLine(" ")
act.WriteLine("")
'percorre o recordset e com o dados escreve no arquivo XML
do while not rs.eof
set categoria = conexao.execute("SELECT * FROM categoria WHERE idcategoria='"&rs("idcategoria")&"'")
set sessao = conexao.execute("SELECT * FROM sessoes WHERE id='"&rs("idsessao")&"'")
act.WriteLine("" & rs("idprod") & "" )
act.WriteLine("" & rs("nome") & "" )
act.WriteLine("")
if rs("moeda") = "dolar" then
preco = rs("preco")*loja("cotacao_dia")
else
preco = rs("preco")
end if
act.WriteLine("" & formatnumber(preco,2) & "" )
if calcular_parcela = "s" then
calcular preco, parcelas, minima
end if
act.WriteLine("http://"&loja("url_loja")&"/detalhes.asp?produto=" & rs("idprod") & "" )
If len(cstr(rs.fields("foto1")))<3 then
act.WriteLine("http://"&loja("url_loja")&"/produtos/pequena/pequena.gif" & rs.fields("foto1") & "" )
else
act.WriteLine("http://"&loja("url_loja")&"/produtos/foto1/pequena/" & rs.fields("foto1") & "" )
end if
act.WriteLine(""&sessao("nome")&" - "&categoria("nome")&" " )
act.WriteLine("")
' move para o proximo registro
rs.movenext
loop
' fecha a tag
act.WriteLine("")
' fecha o objeto xml
act.close%>
<%
end if
%>
| |
MANUTENÇÃO
DE CADASTRO DE PRODUTOS DA LOJA
|
|
|
|
|
