Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

betobto

[Resolvido] Excluir arquivos fisicamente

Por , em ASP Clássico

Recommended Posts

betobto    0

betobto
Postado

Olá estou com um pequeno problema para excluir os arquivos fisicamente.

 

no banco de dados (ACCESS) tenho os seguintes campos com fotos:

 

foto, fotopeq, fotoprin, fotopromo, foto2, fotopeq2, foto3, fotopeq3, foto4, fotopeq4, foto5, fotopeq5

 

Abaixo o codigo para exclusão

Excluir.asp

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

<% 
'primeiro crie o objeto fso...
Set Fso = Server.CreateObject("Scripting.FileSystemObject")

'Declare o caminho da pasta onde estão os arquivos, 
'no caso coloquei o MapPath mas você pode colocar o 
'caminho físico tambem se quiser
Caminho = Server.MapPath("images/produtos/")

'Verifica se o arquivo existe.. caso sim, deleta o mesmo
If Fso.FileExists(Caminho & foto) Then
   Fso.DeleteFile(Caminho & fotoprin)
End If

wcodigo = request.QueryString("txtcodigo")

wsql2 = "DELETE FROM tabprodutos WHERE Produto_ID=" & wcodigo

SET wrs2 = wcon.EXECUTE(wsql2)  

Response.Redirect("adminDefault.asp?pagina=produto")

Set Fso = Nothing
%>

Espero que me ajudem..... Grato pela atenção

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

qual erro dado ?

da onde você esta recuperando o wcodigo = request.QueryString("txtcodigo")

Compartilhar este post

Link para o post
Compartilhar em outros sites

Pedro PH    0

Pedro PH
Postado

tenho a solução para deletar arquivo em FSO

 

 

dim fs

set fs=Server.CreateObject("Scripting.FileSystemObject")

 

fs.DeleteFile "C:\arquivos de programas\teste.txt"

set fs=nothing

 

 

neste exemplo irá deltar um arquivo em bloco de notas(TXT) chamado teste

 

adequa aí e manda "V" xD

 

fuiz

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

a função de excluir vai ter que ficar abaixo do sql, e você colocar um for contado os campos que tem imagem e assim pega o nome delas e joga na função de excluir, assim ficará mais fácil!

Compartilhar este post

Link para o post
Compartilhar em outros sites

betobto    0

betobto
Postado 

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

<% 
wcodigo = request.QueryString("txtcodigo")

wsql = "DELETE FROM tabprodutos WHERE Produto_ID=" & wcodigo

Set fso = Server.CreateObject("Scripting.FileSystemObject")
	fso.DeleteFile= "images/produtos/"& wrs("foto")

SET wrs = wcon.EXECUTE(wsql)  

Response.Redirect("adminDefault.asp?pagina=produto")

Set Fso = Nothing
%>

tem q usar if's e tals????

Compartilhar este post

Link para o post
Compartilhar em outros sites

betobto    0

betobto
Postado

RESOLVIDO hehe

 

segue abaixo o arquivo

 

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

<%
 wcodigo = request.QueryString("txtcodigo")

'recupero o caminho do arquivo
 set rs = wcon.execute("select * from tabprodutos where produto_id="&request.querystring("txtcodigo")&"")
 arquivo = rs("foto")
 arquivo2 = rs("fotopeq")
 arquivo3 = rs("fotoprin")
 arquivo4 = rs("fotopromo")

'apago os dados do banco
 SQL = "delete from tabprodutos where produto_id ="&Request.querystring("txtcodigo")
 wcon.execute (SQL)

'apago os arquivos
 Set fs = Server.CreateObject("Scripting.FileSystemObject")
 fs.DeleteFile("c:\home\www\nome_site\images\produtos\"&arquivo)
 fs.DeleteFile("c:\home\www\nome_site\images\produtos\"&arquivo2)
 fs.DeleteFile("c:\home\www\nome_site\images\produtos\"&arquivo3)
 fs.DeleteFile("c:\home\www\nome_site\images\produtos\"&arquivo4)
 set fs = nothing

 Response.Redirect ("adminDefault.asp?pagina=produto")
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo de excluir com a opção de selecionar com checkbox

 

lista.asp

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Application("StringConexaoODBC")

c1 = "SELECT * FROM XAssunto ORDER BY assunto asc"
Set Proposta1 = Conexao.Execute (c1)

'O value dos checkboxes deve ser a chave primária da tabela (código sequencial)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<div align="center"><br>
  <br>
  <br>
  <font size="2" face="Arial, Helvetica, sans-serif" color="#0066CC"><b>Fórum 
  - Exclusão de Assuntos<br>
  <br>
  </b></font><b><br>
  </b> </div>
<form method="post" action="exclui_assunto.asp" name="form">
  <div align="center"><font color="#0066CC" size="1"><b><font face="Arial, Helvetica, sans-serif"> 
	</font></b></font></div>
  <table width="50%" border="0" cellspacing="2" cellpadding="0" align="center" vspace="0" hspace="0">
	<tr> 
	  <td colspan="5" bgcolor="#E4E4E4" height="15"><font color="#0066CC" size="1"><b><font face="Arial, Helvetica, sans-serif">Assunto 
		</font></b></font></td>
	</tr>

	<tr> <%
'Apresenta mensagem se nao encontrou no bd
If Proposta1.EOF = true then%><b><font face="Arial, Helvetica, sans-serif" color="#0066CC" size="1"> 
		Não há assuntos cadastrados.</font></b><% End If
If not Proposta1.EOF then Proposta1.MoveFirst
While Not Proposta1.EOF
%> 
	  <td colspan="4"><font color="#0066CC" size="1"><b><font face="Arial, Helvetica, sans-serif"> 
		</font><font color="#0066CC" size="1"><b><font face="Arial, Helvetica, sans-serif"> 
		</font></b></font><font face="Arial, Helvetica, sans-serif"> 
		<input type="checkbox" name="delete" value="<%= Proposta1("cod")%>">
		</font></b></font></td>
	  <td width="86%"><font color="#0066CC" size="1"><b><font face="Arial, Helvetica, sans-serif"><%= Proposta1("assunto") %> 
		</font><font color="#0066CC" size="1"><b><font face="Arial, Helvetica, sans-serif"> 
		</font></b></font><font face="Arial, Helvetica, sans-serif"> </font></b></font></td>
	</tr>
	<%
Proposta1.MoveNext
wend 
%>
	<tr> 
	  <td colspan="5"> 
		<div align="center"> <br>
		  <input type="submit" name="Submit" value="Excluir">
		  <input type="reset" name="Reset" value="Cancelar">
		</div>
	  </td>
	</tr>
  </table>
  </form>
</body>
</html>

excluir.asp

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Application("StringConexaoODBC")

box = request.form("delete")

u = "DELETE from XAssunto WHERE cod IN (" & box & ")"
Set Exclui = Conexao.Execute (u)

Conexao.Close
%>
<html>
<head>
<title>Assunto excluído com sucesso!</title>
</head>
<style>
<!-- 
 a {text-decoration:none} 
 a:hover {text-decoration:underline; color:black} 
-->
</style>
<body bgcolor="#FFFFFF" text="#0066CC" link="#0066CC" vlink="#0066CC" alink="#0066CC">
<div align="center"> 
  <p><font size="2" face="Arial, Helvetica, sans-serif"><b><br>
	<br>
	<br>
	<br>
	<br>
	<br>
	<br>
	Assunto(s) excluído(s) com sucesso! </b></font></p>
  </div>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito