Ir para conteúdo
Fórum Script Brasil
  • 0

Excluir Arquivos Que Upei


Zek

Pergunta

Bom meu problema é o seguinte:

Estou fazendo um upload sem componentes, até aí tudo bem, funcionou, eu faço o upload e gravo o caminho da imagem no BD, acontece que quando eu vou excluir este arquivo, tenho uma pagina onde o usuário escolhe os itens que quer excluir com check box, se ele escolhe apenas um meu codigo funciona, mas se ele escolhe mais de um ele não exclui todas as imagens, somente a do primeiro chek box, aqui segue o código:

id = Request("chkId")

array_id = split(id,",")

For i=0 to ubound(array_id)

sql_id = sql_id & "tbJogos.IdJogo = " & Trim(array_id(i)) & " OR "

Next

sql_id = left(sql_id,(len(sql_id)-4))

stringSQL = "SELECT * FROM tbJogos WHERE "&sql_id&""

Set objRs = objConexao.Execute(stringSQL)

strAFotoPeq = objRs("FotoPequena")

strAFotoGran = objRs("FotoGrande")

SET strDeletaImagem1 = CreateObject("Scripting.FileSystemObject")

SET strDeletaImagem2 = CreateObject("Scripting.FileSystemObject")

IF (strDeletaImagem1.FileExists(Server.MapPath(strAFotoPeq))) THEN

strDeletaImagem1.DeleteFile(Server.MapPath(strAFotoPeq))

END IF

IF (strDeletaImagem2.FileExists(Server.MapPath(strAFotoGran))) THEN

strDeletaImagem2.DeleteFile(Server.MapPath(strAFotoGran))

END IF

objConexao.close

Set objConexao = Nothing

Coloquei somente a parte de excluir o arquivo, a parte de excluir os dados do BD está funcionando, acho que tenho que usar outro FOR, mas não to conseguindo, se alguém puder me ajudar eu agradeço. Obrigado!!!

Link para o comentário
Compartilhar em outros sites

13 respostass a esta questão

Posts Recomendados

  • 0

tentei o codigo mas deu o seguinte erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/lojazek/admin/NovoJogoBD.asp, line 163, column 28

For i=0 to Lbound(array_id) to Ubound(array_id)

-------------------------------^

tem ideia do que eu devo fazer?

obrigado...

Link para o comentário
Compartilhar em outros sites

  • 0

Coloquei:

id = Request("chkId")

array_id = split(id,",")

For i= Lbound(array_id) to Ubound(array_id)

dados = Trim(array_id(i))

sql_id = sql_id & "tbJogos.IdJogo = " & dados & " OR "

Next

sql_id = left(sql_id,(len(sql_id)-4))

stringSQL = "SELECT * FROM tbJogos WHERE "&sql_id&""

Set objRs = objConexao.Execute(stringSQL)

strAFotoPeq = objRs("FotoPequena")

strAFotoGran = objRs("FotoGrande")

SET strDeletaImagem1 = CreateObject("Scripting.FileSystemObject")

SET strDeletaImagem2 = CreateObject("Scripting.FileSystemObject")

IF (strDeletaImagem1.FileExists(Server.MapPath(strAFotoPeq))) THEN

strDeletaImagem1.DeleteFile(Server.MapPath(strAFotoPeq))

END IF

IF (strDeletaImagem2.FileExists(Server.MapPath(strAFotoGran))) THEN

strDeletaImagem2.DeleteFile(Server.MapPath(strAFotoGran))

END IF

objConexao.close

Set objConexao = Nothing

Set objRs = Nothing

Mas continua deletando a imagem apenas do primeiro check box, se eu selecionar apenas um ela deleta normalmente, mas se eu selecionar mais de um deleta apenas o primeiro.

Obrigado.

Link para o comentário
Compartilhar em outros sites

  • 0

Pessoal já consegui solucionar o problema, muito obrigado ao Marcos-rj, e ao bareta, graças as dicas deles que consegui.

Estou muito contente com o forum, se interessar pra alguém, o código correto ficou assim:

id=request.form("chkId")

array_id = split(id,",")

For i= Lbound(array_id) to Ubound(array_id)

dados = Trim(array_id(i))

sql="SELECT * FROM tbJogos WHERE IdJogo=" & dados

Set objRs = objConexao.Execute(sql)

strAFotoPeq = objRs("FotoPequena")

strAFotoGran = objRs("FotoGrande")

SET strDeletaImagem1 = CreateObject("Scripting.FileSystemObject")

SET strDeletaImagem2 = CreateObject("Scripting.FileSystemObject")

IF (strDeletaImagem1.FileExists(Server.MapPath(strAFotoPeq))) THEN

strDeletaImagem1.DeleteFile(Server.MapPath(strAFotoPeq))

END IF

IF (strDeletaImagem2.FileExists(Server.MapPath(strAFotoGran))) THEN

strDeletaImagem2.DeleteFile(Server.MapPath(strAFotoGran))

END IF

Next

objConexao.close

Set objConexao = Nothing

Set objRs = Nothing

valeu abraços à todos...

Link para o comentário
Compartilhar em outros sites

  • 0

Eu estou com um problema parecido mas isso não resolveu, eu tenho um esquema de upload de componente, é um formulário de envio de currículo e tem vários campos, destre eles há alguns checkboxes e só consigo pegar o valor do primeiro checkbox que for marcado. Li em diversos sites, inclusive em francês que é possível coletar todos os checkboxes, mas o código é muito difícil de entender e nem consigo descobrir como funciona, alguém pode me ajudar?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...