Este es un Script que automáticamente lee la fecha de la última modificacion del archivo, y la imprime por pantalla.
Algo muy simple, pero que muchos lo usan para avisar de su última actualizacion del sitio. Bueno... nada mas... aqui
tienen el ejemplo funcionando y abajo el código.
Este archivo fue actualizado por última vez: 4/5/2006 2:21:37 AM
<% ' Creamos el Objeto FileSystemObject
Set FSO = Server.CreateObject("Scripting.FileSystemObject") ' Tomamos el archivo que vamos a estudiar...
Set RS = FSO.GetFile(Server.MapPath("archivo.asp")) ' Extraemos su última modificación y lo guardamos en una variable...
modificado = RS.DateLastModified
%>
Este archivo fue actualizado por última vez:
<%=(modificado)%>
<%
Set RS = Nothing
Set FSO = Nothing
%>
Donde usamos el RS.DateLastModified, estamos pidiendolé al archivo que indicamos, que nos de su fecha de modificación. Eso lo
guardamos en la variable modificado, y luego la mostramos. De esta manera siempre mostraremos su última
modificación de forma automática y dinámica.
Recuerden que si quieren mostrar la fecha con otro formato, deben usar la siguiente función: <%= FormatDateTime(modificado,1)%>
El numero que va después de la coma puede ser: 1, 2, 3 o 4. Prueben las diferentes combinaciones para obtener diferentes
formatos de fecha. Suerte!
