Ir para conteúdo

POWERED BY:

Arquivado

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

sr.silva

Listar arquivos e Pastas do Servidor + Downloads

Por , em ASP Clássico

Recommended Posts

sr.silva    1

sr.silva
Postado

Segue....

 

Código do Ghean

 

Default.asp

<html><head><title></title><style><!--A {color: navy; text-decoration: none;}A:hover {color: navy; text-decoration: underline;}.espacamento{padding-left: 15px;}//--></style></head><body><%'Declara as variáveis a serem usadasDim Local, Folder, File, ObjFS, objRootFolder 'Especifica o endereço do conteúdo a ser exibidoLocal = "e:\caminho\pasta"'Cria o objeto FileSystemObjectSet ObjFS = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = ObjFS.GetFolder(Local)Response.Write "<table border='1' bordercolor='gainsboro' cellpadding=2 cellspacing=0 width='50%' style='font-family: Tahoma, Arial; font-size: 11px;' align='center'>"Response.Write " <tr style='background: gainsboro'>"Response.Write " <td><b>Pasta</b></td>"Response.Write " <td><b>Data da última modificação</b></td>"Response.Write " <td><b>Download</b></td>"Response.Write " </tr>"'Exibe pastas encontradasFor Each Folder in objFolder.Subfolders	Response.Write " <tr>"	Response.Write " <td class='espacamento'><img src='pasta04.gif'> <a href=" & Folder.Name & ">" & Folder.Name & "</a></td>"	Response.Write " <td class='espacamento'>" & Folder.DateLastModified & "</td>"	Response.Write " <td class='espacamento'><a href='download.asp?path="& Local &"\&arquivo=" & Folder.Name & "'> Download</a></td>"	Response.Write " </tr>"Next'Exibe arquivos encontradosFor Each File in objFolder.files	Response.Write " <tr>"	Response.Write " <td class='espacamento'><img src='86.gif'>  <a href=" & File.Name & ">" & File.Name & "</a></td>"	Response.Write " <td class='espacamento'>" & File.DateLastModified & "</td>"	Response.Write " <td class='espacamento'><a href='download.asp?path="& Local &"\&arquivo=" & File.Name & "'> Download</a></td>"	Response.Write " </tr>"NextResponse.Write "</table>"'Elimina variáveis da memória Set Local = NothingSet File = NothingSet objFolder = NothingSet Folder = Nothing%> </body></html><% End If %>

Download.asp

<% Arquivo = Request.QueryString("arquivo")Caminho = Request.QueryString("path")Const adTypeBinary = 1 Response.Clear Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary 'Caminho completo do arquivo para download objStream.LoadFromFile Caminho & Arquivo'Somente o nome do arquivo Response.AddHeader "Content-Disposition", "attachment; filename=" & Arquivo Response.AddHeader "Content-Length", objStream.size Response.Charset = "UTF-8" 'O ContentType da extensão do arquivo ** 'Response.ContentType = "application/asp" for i = 0 to objStream.size 	i = i + 256000 	Response.BinaryWrite(objStream.Read(i)) 	Response.Flush next objStream.Close Set objStream = Nothing %>
============================================

 

Código do jonathandj

 

http://www.codigofonte.net/?secao=down&amp...9&tipo=nada

 

Como é muito extenso, preferi colocar em forma de link!!!

 

Até mais....

 

 

PS..: Todos os créditos são dos autores dos códigos, postei aqui só pela questão de conhecimento.

Se alguém quebrei alguma regra, favor desconsiderar , e excluir o Tópico!!!!

 

Tópico Origem...: http://forum.imasters.com.br/index.php?sho...196880&st=0

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ghean    0

Ghean
Postado

No codigo acima você pode retirar essa parte:

<%if not session("status") = "ok" Then	response.redirect("login.asp?erro=negado") else   %>

Era só um teste de login.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

só pra constar....não sou autor do código, apenas encontri o link com um ótimo código, o autor é Temístocles Sota.

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