Ir para conteúdo

POWERED BY:

Arquivado

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

rd111072

Sistema de download - ordem por data

Por , em ASP Clássico

Recommended Posts

rd111072    1

rd111072
Postado

Bom dia, moçada do IMasters!

 

É o seguinte:

 

tenho esse sistema de download (que funciona muito bem, por sinal. Peguei daqui mesmo do fórum.).

 

Atualmente ele ordena os arquivos por ordem alfabética. Gostaria que eles fossem ordenados por data (o mais recente ficaria no topo).

 

Abaixo seguem os códigos.

 

pág. que lista os arquivos:

 

CODE
<%Session.LCID = 1046%>

<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 usadas

Dim Local, Folder, File, ObjFS, objRootFolder

'Especifica o endereço do conteúdo a ser exibido

Local = Server.Mappath("tiss/")

 

'Cria o objeto FileSystemObject

Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = ObjFS.GetFolder(Local)

 

Response.Write "<table border='1' bordercolor='#00CCCC' cellpadding=2 cellspacing=0 width='70%' style='font-family: Tahoma, Arial; font-size: 11px; color:#666666' align='center'>"

Response.Write " <tr style='background: #00CCCC'>"

Response.Write " <td><b>Arquivo</b></td>"

Response.Write " <td><b>Data</b></td>"

Response.Write " <td><b>Download</b></td>"

Response.Write " </tr>"

 

 

 

'Exibe arquivos encontrados

For Each File in objFolder.files

Response.Write " <tr>"

Response.Write " <td class='espacamento'><img src='86.gif'>  " & File.Name & "</td>"

Response.Write " <td class='espacamento'>" & File.DateLastModified & "</td>"

Response.Write " <td class='espacamento'><a href='tiss_download.asp?path="& Local &"\&arquivo=" & File.Name & "'> Download</a></td>"

Response.Write " </tr>"

Next

 

Response.Write "</table>"

 

'Elimina variáveis da memória

Set Local = Nothing

Set File = Nothing

Set objFolder = Nothing

Set Folder = Nothing

%>

 

</body>

</html>

 

 

pág. que faz o download:

 

CODE

<%

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 + 9999999

Response.BinaryWrite(objStream.Read(i))

Response.Flush

next

 

objStream.Close

Set objStream = Nothing

%>

 

Como faço? Alguém sabe???

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