Comparer la date du fichier à la date actuelle

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 863 fois - Téléchargée 29 fois

Contenu du snippet

Ce petit script permet de comparer la date de mise à jour d'un fichier avec l'heure courante.
Dans le cas présent, il affiche une image différente si le fichier à moins d'une heure, moins d'une journée, ou plus d'une journée. Ces données sont paramètrables.
Note : 3600000 millisecondes = 1h

Source / Exemple :


<head>
<% 
Function affichedate(nomfichier)
on error resume next
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath(".")
set f=fs.GetFile(dir & "\" & nomfichier)
affichedate=f.DateLastModified
set f=nothing
set fs=nothing 

end Function
%>

</head>

<body>
<% df= affichedate("nomdufichier")%>
<% if ( ((now*24*60*60*1000) )-(df*24*60*60*1000) )< 3600000 then %><img src="image1.gif">
				  <% end if %>
				  <% if ( ((now*24*60*60*1000) )-(df*24*60*60*1000) ) > 3600000 and ( ((now*24*60*60*1000) )-(df*24*60*60*1000) )< 86400000 then %><img src="image2.gif">
				  <% end if %>
				  <% if ( ((now*24*60*60*1000) )-(df*24*60*60*1000) )> 86400000 then %><img src="image3">
				  <% end if %>

</body>

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_fabrice69

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.