02/09/2012 Development / asp3

Essa funçãozinha retorna a data e hora da modificação do arquivo. Isso é usada pra controle de cache! No caso, usei uma expressão regular pra trazer apenas os números, sem a barra da data / e os 2 : das horas/min/seg

<%
function getDateLastModified(file)

Set objER            = New RegExp
    objER.IgnoreCase    = True
    objER.Global        = True
    objER.Pattern        = "\D+"

dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(file)
getDateLastModified = objER.Replace(f.DateLastModified, "")
Set objER            = Nothing
set f=nothing
set fs=nothing
end function
%>