Nednestående er det mest minimalistiske kode jeg kender der kan klare
opgaven:
Dim FSO, file
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set file = FSO.GetFile("filsti + filnavn")
Response.Write formatdatetime(file.DateLastModified,vbshortdate)
Dette burde være nok. Du skal blot indsætte filsti + filnavn til din
database.
mvh
-Erik
"Thomas Pedersen" <thomas-p@mail.dk> skrev i en meddelelse
news:at26lo$a18$1@sunsite.dk...
> Jeg vil have at man kan se hvornår min database(Access) sidst er
> ændret. Jeg har fundet dette, men har problemer med at forstå
> det.
> Hvor mange steder skal der ændres noget, før det virker til min
> side.
>
> <%
> Dim fso1
> Set fso1 = CreateObject("Scripting.FileSystemObject")
> arr_filename = split(Request.ServerVariables("SCRIPT_NAME"),"/")
> intbound = ubound(arr_filename)
> filename = lcase(arr_filename(intbound))
> Set f1 = fso1.GetFile(server.MapPath(filename))
> file_date = lcase(formatdatetime(f1.DateLastModified,vblongdate))
> %>
>
> The file with name <b><% = filename %></b> was last modified on
> <b><% = file_date %></b>
> <br>
> <br>
> <a href="viewsource.asp?file=get_fileattributes.asp">View
> source</a>
>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials