Sortere mapper efter last modified
Hej
Jeg har et script der automatisk henter og lister alle undermapper på min side. Nu vil jeg så gerne have den til at sortere mappevisningen efter "last modified date" eller "last created date" så den seneste ændre mappe bliver vist først i listen.
Kan nogle hjælpe med det?
index.asp:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/ (...)<html dir="ltr" xmlns="
http://www.w3.org/ (...)<head>
<meta http-equiv="Content-Language" content="da" />
<title>PaPdyr's billed galleri</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="index.css" />
</head>
<body id="body">
<div id="masthead">
<div id="top_left">
</div>
<div id="header">
</div>
</div>
<div id="container">
<div id="left_col">
</div>
<div id="page_content">
<span class="style2">
<br />
<br />
<strong><span class="heading">Galleri 2008</span></strong><br />
<br />
<br />
<br />
<table style="width: 100%">
<%
' Rod mappe defineres
folderspec = server.mappath(".")
' FSO oprettes med visning af undermapper
Set fso = CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder(folderspec)
for each subfolder in fold.subFolders
' INDLÆSNING AF ALBUM NAVN
Dim xmlDoc
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.load(Server.Mappath(subfolder.Name & "/ext/xml/albuminfo.xml"))
' Hent titel navn
albumtitel = xmlDoc.documentElement.childNodes(0).attributes.getNamedItem("title").nodeValue
' Billede hentes fra galleri
Set FSO3 = CreateObject("Scripting.FileSystemObject")
Set Folder3 = FSO3.GetFolder(Server.Mappath(subfolder.Name & "/small"))
For Each File In Folder3.Files
strBillede = "<img src=" & subfolder.Name & "/small/" & File.Name & " width='65' height='65' border='0'>"
Exit For
Next
' Link skrives til klienten i tabel
%>
<tr>
<td style="width: 85px"><% response.write strBillede %></td>
<td valign="middle"><%response.write "<a href=" & subfolder.Name & ">" & albumtitel & "</a>"%></td>
</tr>
<%
' Alle forbindelser lukkes
set FSO3 = nothing
set Folder3 = nothing
set albumtitel = nothing
set xmlDoc = nothing
' Næste billed galleri bearbejdes og sidste variabler lukkes
next
set fold = nothing
set fso = nothing
%></span>
</table>
<span class="style2">
<br />
</span>
</div>
</div>
<div id="footer" class="style1" style="width: 75%">
</div>
</body>
</html>
Hvis nogle har forslag til andre optimeringen i koden, er jeg lutter øren :)
Venlig Hilsen
Rasmus Hansen
