enviar e deletar arquivos do servidor

[formalivre 0]

olá pessoa.primeiramente venho agradecer a ajuda de todos. já resolvi várias dúvidas aqui no forum.gostaria de saber se existe algum código em ASP que faça o upload para o servidor e que o usuário pode também deletar este arquivo. tenho um código onde é possível fazer o upload. mas não deletar os arquivos.agradeço a atenção.

[formalivre 0]

encontrei este escript. ele está funcionando consigo deletar os arquivos.mas ele não está mostrando as imagens. será que existe uma forma de acontecer isto.obrigado.veja código abaixo:<%@LANGUAGE="vb script:'Parametro passado pela URL quando se clica em uma determinada pasta ou arquivo:ParametroPasta = Request.QueryString("Pasta")'A session abaixo deve ser alterada para o caminho físico onde estarão os arquivos e subdiretórios a serem acessados:Session("Path") = "e:home\informnews\web\a1clique\beleza\beleza_02\beleza_02_admin\minhas_imagens\imagens\"&ParametroPasta&""Path = Session("Path")'A variável abaixo deve ser alterada para o caminho virtual das pastas no servidor:PathVirtualArquivos = "http://www.informnews.com.br/a1clique/beleza/beleza_02/beleza_02_admin/minhas_imagens/imagens/"'A variável abaixo deve ser alterada para o caminho virtual deste script:PathScript = "http://www.informnews.com.br/a1clique/beleza/beleza_02/beleza_02_admin/minhas_imagens/"'Criando o objeto Filesystem Object:SET FSO = Server.CreateObject("Scripting.FileSystemObject")'Setando o caminho que será indicado como pasta raiz:Set Pasta = FSO.GetFolder(""&Path&"")'Solicitando a lista de arquivos para a pasta raiz:set arquivos = pasta.files'Setando a pasta raiz:set Raiz = Pasta'Verificando as subpastas da pasta raiz:Set Pastas = Raiz.SubFoldersSub deletar(arquivo)arquivo = Path & "\" & arquivoFSO.deletefile(arquivo) End subvarquivo = request.querystring("del")if varquivo <> empty then deletar(varquivo)'Verificando o Nome da pasta Raiz:Nome = pasta.name'Verificando se há subpastas:contador = 0for each subpastas in pastascontador = contador+1next%></b><%Response.write "<br><div align=left>"Response.Write "<font face=arial size=2>"if contador <> 0 then'Fazendo um loop pelas subpastas da pasta raiz:for each subpastas in Pastasresponse.Write "<img border=0 src='fold.gif' align=top><a href='"&PathScript&"?Pasta="&ParametroPasta&"\"&subpastas.name&"'><font color = #003366>"&subpastas.name&"</font></a><br>"nextend ifresponse.write "<br>"'Fazendo um loop pelos arquivos da pasta:Apostila = "apostilas"for each arquivo in arquivosresponse.write "<img border=0 src='file.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a> (<a href='"&PathScript&"?del="&ParametroPasta&"/"&arquivo.name&"'>deletar imagem</a>)<br>"nextResponse.Write "</font>"response.write "</div><br>"%><hr color=black><font color=black face=Verdana size=2><a href='#' onClick='history.go(-1)'><font color=black>Voltar</font></a> | <%response.write "<a href='"&PathScript&"?Pasta="&ParametroPasta&"'>"response.write "Refresh</font></a>"%></font></body></html>