UPLOad

luckynho · Setembro 13, 2003

pessoal, o codigo abaixo está tudo certo, está fazendo upload de 4 imagens, só que, está acontecendo o seguinte, quando eu cadastro 1 produto, seleciono a imagem, para as outras 3, ele joga a mesma da 1...Não sei se vcs entenderam, mas por favor me ajudemicq: 123808247veja<% ' *********************************************************' Versão 4.2 - 07/08/2002 ' *********************************************************' Esta página só pode ser acessada se o visitante já se autenticou' como administrador da lojacheca_senha()Call Valida_Request()'Força autentificação com login e senha do domínio NT'isto é necessário por que somente o dono do domínio pode fazer'o upload de imagem'Response.Buffer = True'Response.Clear'If Request.ServerVariables("LOGON_USER")="" Then ' Response.Status = "401 Not Authorized"' Response.AddHeader "WWW-Authenticate","basic"' Response.Buffer = False' Response.End'End If%><HTML><HEAD><TITLE><%=Application("NomeLoja")%></TITLE></HEAD><BODY BGCOLOR="#FFFFFF" leftmargin="0" topmargin="0"><TABLE border=0 width="780" align="left" cellpadding="0" cellspacing="0"> <TR> <TD colspan="2" align="left"></TD> </TR> <TR> <TD width="129" height="1000" bgcolor="#1A3581" align=LEFT valign="top"> <style> a {color:blue;text-decoration:none} a:hover {color:#353535} </style> <IMG SRC="images/logo_adm.gif" BORDER=0 ALT=""> </TD> <TD width="650" height="1000" bgcolor="#FFFFFF" valign="top"> <table border="0" cellpadding="6" width="560" align="center"> <td> <center> Novo Produto Criado </center> <% ' Esta secao faz o upload do arquivos para o diretório /imagesSet myFileUpload = Server.CreateObject("SoftArtisans.FileUp") ' diretório em que a imagem será salvamyFileUpload.Path = Application("DiretorioRaiz") & "images\"myFileUpload.SaveArquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)If Err Then Response.Write("Erro : " & Err.description & " ") Set myFileUpload = nothing Response.EndEnd If Arquivo2 = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)If Err Then Response.Write("Erro : " & Err.description & " ") Set myFileUpload = nothing Response.EndEnd If Arquivo3 = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)If Err Then Response.Write("Erro : " & Err.description & " ") Set myFileUpload = nothing Response.EndEnd If Arquivo4 = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)If Err Then Response.Write("Erro : " & Err.description & " ") Set myFileUpload = nothing Response.EndEnd If 'Esta secao faz a atualização no banco de dadosSet Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open Application("StringConexaoODBC")Set RS_Produto = Server.CreateObject("ADODB.Recordset")' Insere produtonome = myFileUpload.form("nome")desc = myFileUpload.form("desc")cat = myFileUpload.form("lista")nomecat = request.querystring("nomecat")vitrine = myFileUpload.form("vitrine")' Retira virgula e repoe por ponto, para evitar problemas no UPDATEpreco = replace(myFileUpload.form("preco"),",",".")preco_display = replace(myFileUpload.form("preco"),".",",")peso = replace(myFileUpload.form("peso"),",",".")imagem = "images/" & arquivoimagem2 = "images/" & arquivo2imagem3 = "images/" & arquivo3imagem4 = "images/" & arquivo4Set myFileUpload = Nothing' Le informacoes do produtoRS_Produto.Open "SELECT Max(codigo_produto) AS novo_codigo_produto FROM Produtos " , Conexao' Checa se existem produtos no banco de dados If IsNull(RS_Produto("novo_codigo_produto")) Then novo_codigo_produto = 1Else novo_codigo_produto = RS_Produto("novo_codigo_produto") + 1End If ' Insere produtoIf not erro then Conexao.Execute "insert into Produtos(codigo_produto, codigo_categoria, nome_produto, descricao_produto, preco_unitario, peso, url_imagem, url_imagem2, url_imagem3, url_imagem4, disponivel, vitrine) values(" & novo_codigo_produto & "," & cat & ",'" & nome & "','" & desc & "'," & preco & "," & peso & ",'" & imagem & "','" & imagem2 & "','" & imagem3 & "','" & imagem4 & "',1,"&vitrine&")"end if%> <table border="0" width="80%" align="center"> <tr> <td width="35%"> Categoria: </td> <td > <%= nomecat %> </td> <tr> <td width="35%"> Nome: </td> <td > <%= nome %> </td> <tr> <td width="35%"> Descrição: </td> <td> <%= desc %> </td> <tr> <td width="35%"> Preço Unitário: </td> <td> <%= FormatCurrency(preco_display) %> </td> <tr> <td width="35%"> Imagem Carregada: </td> <td> <%= imagem %> </td> <tr> <td colspan="2"> <div align="center"> Abaixo, as imagens publicada: <%response.write "<IMG SRC=images/" & arquivo & ">"%> <%response.write "<IMG SRC=images/" & arquivo2 & ">"%> <%response.write "<IMG SRC=images/" & arquivo3 & ">"%> <%response.write "<IMG SRC=images/" & arquivo4 & ">"%> </div> <div align="center"></div> </td> </table> <%RS_Produto.CloseConexao.CloseSet RS_Produto = NothingSet Conexao = Nothing%> <hr color=c80222> <%Call Pe_admin_produtos()%> </TD> </table> </TD> </TR></TABLE></BODY></HTML>

lella · Setembro 13, 2003

Porque você não coloca as imagens num diretorio e cria uma tabela com os dados das imagens e simplesmente joga as imagens nos seus lugares???????????????? :lol:

Entrar

Arquivado

UPLOad

Recommended Posts

luckynho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lella 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante