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

Exclusão De Arquivo No Servidor!


adrianollp

Pergunta

ae galera.. meu codigo de exclusao de arquivo no servidor teoricamnete tah certo.. mas num exclui o arquivo manja?! tipo.. alguém axa o erro ae?

<!-- #include file="conexao.asp" --> 

<%
menu = Session("menu")
if menu = "excluir_obra" then
   pg = "Lançamento"
   bd = "obra"
end if
%>

<% 
bd = request("bd")

' Cria rs que vai receber pesquisa
Set rsObra = Server.CreateObject("ADODB.Recordset")

For cont = 1 to Cint(Request("num_nomes"))
	ob_id = Cint(Request("nome" & cont))
'----------------------Verifica se estava selecionado--------------------------
	If NOT IsEmpty(ob_id) AND ob_id <> 0 Then

'-----------------------------Deletando o Arquivo---------------------------------
  ' Monta string SQL que vai retornar do bd o nome do arquivo selecionado.
    sql = "SELECT ob_img FROM obra WHERE ob_id = " & ob_id
  'response.Write(sql):response.End()
  ' Executa a consulta e coloca o resultado no recordset
  rsObra.Open sql, conexao, 3, 1 
  
   if not rsObra.EOF then
  	nome_fisico = rsObra("ob_img")
  	caminho_fisico = ("e:\home\wdot\web\fkf\adm\obra\")
  	
  	set fso = Server.CreateObject("Scripting.FileSystemObject")
  	set pasta = fso.getfolder(caminho_fisico)
  	set arquivo_leg = Server.CreateObject("Scripting.FileSystemObject") 
    If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) Then
    	fso.deletefile server.MapPath("obra") & "\" & nome_fisico
    End If
  	set fso = nothing
  	set pasta = nothing
  	set arquivo_leg = nothing

  	'--------------------Deletando do Banco de Dados-------------------
  	sql = "DELETE * FROM obra WHERE ob_id = " & ob_id
  	conexao.execute sql
  end if	
  	set rsDestaque = Server.CreateObject("ADODB.Recordset")
  	sql = "SELECT * FROM destaques WHERE categoria = '" & bd & "' AND id_info	= " & ob_id
  	rsDestaque.open sql, conexao
  	' Se o rs do resultado dessa pesquisa for vazio, significa q o id excluido não era o destaque  
  	if not rsDestaque.EOF then
    sql = "UPDATE destaques SET id_info = 0 WHERE categoria = '" & bd & "'"
    conexao.execute sql
    ' Fazer o update na tabela de destaque, na categoria = bd, com id_info = 0
  	end if	
	rsObra.Close
	End If  
Next

set rsObra = nothing

Response.Redirect("admin.asp?resposta=11")

conexao.close
Set conexao = Nothing
%>

tipo... ele exclui do banco normalmente....

vlwsss galera!!! ^^

Editado por cyberalexxx
Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0

cara tenta usar o botão Editar para não floodear o forum huahuah

seguinte... se ele tá funcionando no servidor e não está funcionando local é alguma configuração do seu iis

dá um look nos topicospendurados, aqui na seção ASP mesmo ali tem bastente coisa ..

posta ai depois

Link para o comentário
Compartilhar em outros sites

  • 0

faz esse teste e posta o resultado aki:

If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) = true Then
   response.write "arquivo: " & "e:\home\wdot\web\fkf\adm\obra\" & nome_fisico & "encontrado"
   response.end
   fso.deletefile server.MapPath("obra") & "\" & nome_fisico
else
   response.write "arquivo: " & "e:\home\wdot\web\fkf\adm\obra\" & nome_fisico & "não encontrado"
   response.end
End If

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

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