> Hejsa
>
> Er der en, der ligger inde med et simpelt script, der kan læse
> indholdet af af filer i et bibliotek.
>
> Jeg skal bruge det i forbindelse med en billededatabase, hvor jeg vil
> lave en automatisk opdatering af denne.
Med tilladelse fra Jens Gyldenkærne Clausen - nedenstående script anbragt i
body på en asp-side genererer automatisk en tabel med links til samtlige
filer af typerne .gif, .jpg og .png i samme mappe som asp-siden:
<table summary="">
<%
' Scriptet er lavet af Jens Gyldenkærne Clausen
Dim FSO, F, filer, fil
Dim kolonner
kolonner = 3
Dim i
i = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(Server.Mappath("."))
Set filer = F.Files
For Each fil In filer
If ( lcase(FSO.GetExtensionName(fil)) = "gif") OR (
lcase(FSO.GetExtensionName(fil)) = "jpg") OR (
lcase(FSO.GetExtensionName(fil)) = "png") Then
'Case "gif", "jpg", "png"
' Vis filen
If i mod kolonner = 0 Then
%>
<tr> <% End If %>
<td><a href="<%= fil.Name %>" title="Sidst ændret: <%=
fil.DateLastModified %>, oprettet: <%= fil.DateCreated %>" <% If
DateDiff("w", fil.DateLastModified, Now()) < 2 Then %>class="ny"<% End If
%>><%= fil.Name %></a></td>
<%
i = i + 1
If i mod kolonner = 0 Then
%>
</tr>
<% End If
End IF
Next
IF i mod kolonner > 0 Then
%>
</tr>
<% end if
'End Select
%>
</table>
--
Med venlig hilsen
Erik Ginnerskov
http://hjemmesideskolen.dk/ -
http://ginnerskov.dk/
http://html-faq.dk/