Comparer la date du fichier à la date actuelle

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 403 fois - Téléchargée 31 fois

Commenter

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 Commentaire
cs_fabrice69 Messages postés 1765 Date d'inscription jeudi 12 octobre 2000 Statut Membre Dernière intervention 11 décembre 2013 5
7 févr. 2004 à 00:46
Il te manque le .gif pour l'image 3 sinon c'est une bonne idée que tu peux assez facilement paramétrer via global.asa ou Web.config (pour les valeurs de limite).

F___
S'inscrire maintenant

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.