Apagar Imagem

Outubro 17, 2005

Olá, eu tenho um sistema de upload...o mesmo está enviando a imagem para o BD e para um pasta...na hora de apagar, ele esta apagando do BD, mas não da pasta...eu fiz conforme o modelo abaixo, mas ele da o erro que relato no final...o que pode ser?

Case "excluir"

If id = "" Then
Sql="SELECT * FROM fotos"
Set rs=Conexao.Execute(Sql)
If rs.EOF Then
Response.Write "Nenhuma foto encontrada<BR><A href=admin.asp>Voltar</a>"
Else 
While not rs.EOF
Response.Write "<BR><BR>"
rs.Movenext
Wend
End If
Else
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
Set Pasta = FSO.GetFile(Server.MapPath(rs("foto")))
pasta.delete
Sql="DELETE * FROM fotos WHERE id="&id&""
Conexao.Execute(Sql)
End If

e ae ele gera o seguinte erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0035)

Arquivo não encontrado

/site/lote1/default1.asp, line 31

A linha 31 é esta: Set Pasta = FSO.GetFile(Server.MapPath(rs("foto")))

o que faço?

Ceh · Outubro 17, 2005

Tenta colocar o rs("foto") da linha 31 em uma variável antes dessa linha e dá um response.write na variável.

Talvez esteja deletando do banco 1º!

[]'s

Marcos-rj · Outubro 17, 2005

É por q a foto já foi apagada, da uma conferida na pasta onde estão as fotos.

bareta · Outubro 17, 2005

verifique se o arquivo existe antes de tentar apagar usando ifs....

Outubro 17, 2005

Galera,

Tentei colocar para checar se existe...fiz assim:

<html>
<%
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("db/dados.mdb")   

strSQL = "SELECT * FROM fotos"
Set rs = conexao.Execute(strSQL)

sPathTemp = Server.MapPath(rs("foto"))
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
If ObjFso.FileExists(sPathTemp) Then
%>
<%
'#####EXCLUSÃO DE DADOS#######
id = request.querystring("id")
sessao = request.querystring("sessao")
Select case sessao

Case "excluir"

If id = "" Then
Sql="SELECT * FROM fotos"
Set rs=Conexao.Execute(Sql)
If rs.EOF Then
Response.Write "Nenhuma foto encontrada<BR><A href=admin.asp>Voltar</a>"
Else 
While not rs.EOF
Response.Write "<BR><BR>"
rs.Movenext
Wend
End If
Else
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
Set Pasta = FSO.GetFile(Server.MapPath(rs("foto")))
pasta.delete
Sql="DELETE * FROM fotos WHERE id="&id&""
Conexao.Execute(Sql)
End If

Response.write "<b><font size=3>Dados Excluidos com Sucesso!</font></b>"
response.write "<br><br>Você será redirecionado em 1 segundos..<br>"
response.write "<meta http-equiv='refresh' content='1; url=default1.asp'/>"

End Select
End If
%>

<head>
<meta http-equiv="Content-Language" content="pt-br">
<title>MODELO DE CADASTRO COM FOTO</title>
</head>

<body>

<p><font face="Verdana"><b><img border="0" src="imagem/livro.jpg"><a href="index.asp"><font size="2" color="#73B6F7">Novo Cadastro</font></a></b></font></p>

<p><font size="2" face="Verdana"><b><br>
Registros Cadastrados:</b></font></p>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" id="table1">
	<tr>
<%
If rs.EOF or rs.BOF Then
Response.Write "<font face=Verdana size=2>Não foi encontrado nenhum registro.</font>"
Else %>

<%
Do While not rs.EOF
intCounter=intCounter+1
intMod=intcounter mod 2
if intmod=0 then 
rcolor = "#c0c0c0"  
elseif intmod=1 then 
rcolor = "#FFFFFF"  
end if

%>
	</tr>
	<tr>
  <td><font face="Verdana" size="2"><b>Foto1: </b> <img src=<%=rs("foto")%> width="80" height="80"></font></td>
	</tr>
	<tr>
  <td><font face="Verdana" size="2"><b>Texto: </b> <%=rs("texto")%>
  <br>
  </font></td>
	</tr>
	<tr>
  <td><b><font face="Verdana">
        <a href="default1.asp?id=<%=rs("id")%>&sessao=excluir"><font color="#73B6F7"><img border="0" src="imagem/lixeira.jpg" width="40" height="38">
        <font size="2">Excluir Registro</font></font></a></font></b></td>
	</tr>
	<tr>
  <td><hr></td>
	</tr><%
rs.MoveNext
Loop
End If
rs.close
set rs = nothing
set conexao = nothing 

%>
</table>

<p align="center"><font face="Verdana" size="1"><a href="administracao.asp"><img border="0" src="imagem/seta.jpg" width="19" height="19">
<font face="Verdana" size="2" color="#001888">voltar</font></a></p>

</body>

</html>

Fiz assim, mas dá o seguinte problema:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'Server.mappath'

/site/lote1/default1.asp, line 34

A linha 34 é Set Pasta = FSO.GetFile(Server.MapPath(rs("foto")))

dentro da pasta a imagem continua lá...não apaga.

Como faço para apagar e para mostrar onde está gravando...só para ter certeza q é a pasta q estou olhando.

Entrar

Apagar Imagem

Pergunta

Guest - Mateus -

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

Ceh

Link para o comentário

Compartilhar em outros sites

Marcos-rj

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Guest - Mateus -

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades