Ir para conteúdo

POWERED BY:

Arquivado

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

fabiosc80

Apagar Arquivo do Servidor.

Por , em ASP Clássico

Recommended Posts

fabiosc80    0

fabiosc80
Postado

Ola Amigos do Imasters.Estou com uma duvida cruel aqui.Fiz um sistema de upload com a ajuda de vcs que esta funcionando perfeitamente.Porem agora meu cliente quer apagar certos arquivos do servidor com o passar do tempo e quer fazer pelo browser.Como faço isso pelo asp?Pelo FSO?Mas como?Alguem poderia me ajudar?Atenciosamente,Fábio Sanches Carmona

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

bem é só isso mesmo usa fso pra listar os arquivos e passa o seu caminho como parametro

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

usa variaveis de servidor...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

request.servervariables("...")veja qual é melhor pra você passar o que você quer pra outra page

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

request.servervariables("...")veja qual é melhor pra você passar o que você quer pra outra page

Veja as duas páginas.A primeira...
<!--#include file="conexao.asp"--><%F="<font face=Verdana size=2 color='#230697'>"%><%dim codigo1,sql,CodigoJobcodigo1 = request.querystring("cod")'string para exibir os dados'sql = "SELECT Memo.MemoCod AS Memo_MemoCod, Memo.CodigoJob, Arqui.MemoCod AS Arqui_MemoCod, Arqui.Arquivo FROM [Memo] Inner JOIN Arqui ON Memo.MemoCod = Arqui.MemoCod where Memo.CodigoJob = " & codigo1sql = "SELECT [Job Consulta1].Job_CodigoJob, [Job Consulta1].MemoCod, [Job Consulta1].Memo_CodigoJob, MemoConsulta.Memo_MemoCod, MemoConsulta.ArqCod, MemoConsulta.Arqui_MemoCod, MemoConsulta.Arquivo FROM [Job Consulta1] RIGHT JOIN MemoConsulta ON [Job Consulta1].MemoCod = MemoConsulta.Arqui_MemoCod where MemoConsulta.Arqui_MemoCod = " & codigo1'response.write sql'response.end]Codigojob = codigo1%><html><head>	<title><%=(codigo1)%>   </title><meta http-equiv="refresh" content="20"> 	</head><body scroll="auto" bgcolor="#E6E4E4" bgproperties="fixed" background="imagens/fundo_ftp.jpg"><%'executa a instrução SQLDim BC : AbreBancoSet TB = BC.Execute(sql)%>    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">      <tr>        <td width="100%"><%IF TB.EOF = "" then   Response.write "Não existem Jobs Abertos..."ELSE%><%	   While not TB.EOF%> 	   <font face="tahoma" size="2">Arquivo: <a href="Upload/<%=TB("Arquivo")%>" target="Upload/<%=TB("Arquivo")%>"><%=TB("Arquivo")%></a><a  href="deleteadmf3.asp?cod=<%=TB("Arquivo")%>">Excluir</a><br>	<%TB.movenextWendEnd If%>   </td>      </tr>  <TABLE></table></body></html>
E a Segunda a página que precisa redirecionar pra primeira.
<!--#include file="conexao.asp"--><%Session.LCID = 1046%><%dim codigo1,TB,CodigoJobcodigo1 = request.querystring("cod")CodigoJob = request.querystring("CodigoJob")'declara o Objeto FSOSet objFS = Server.CreateObject("Scripting.FileSystemObject")'Use Request.QueryString para pegar o nome do arquivo e armazene em uma variável.'Em Arquivo a deletar você coloca somente o Nome do Arquivo...ArquivoAdeletar = Request.querystring("cod")'Verifica se o Arquivo Existe - Isso para evitar problemas com atualizaçãoIf objFS.FileExists( Server.MapPath("Upload/"&ArquivoAdeletar) ) Then'Deleta o ArquivoobjFS.DeleteFile( Server.MapPath("Upload/"&ArquivoAdeletar) )'Fecha o obj FSOSet objFS = Nothing'Comunica a ExclusãoResponse.Write "O arquivo foi excluido com sucesso"Response.Redirect "admf3.asp?cod="&codigojobElse'Comunica a Não Exclusão pois poderia ja ter sido excluido.response.write codigo1response.endResponse.Write "O arquivo não pode ser excluido, pois não foi encontrado"Response.Redirect "admf3.asp?cod="&codigojobEnd If   %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o que não funciona

Compartilhar este post

Link para o post
Compartilhar em outros sites

FabricioGomes    0

FabricioGomes
Postado

no link que exclui voce nao passa o "codigojob", somente o "cod"<a href="deleteadmf3.asp?cod=<%=TB("Arquivo")%>">Excluir</a>como voce quer recupera-lo na segunda pagina?CodigoJob = request.querystring("CodigoJob")ok?

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