|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Última Atualização do Site
|
 |
|
|
|
Postada em 2/10/2003 por ^HEAVY-METAL^
<SCRIPT LANGUAGE=VBScript RUNAT=SERVER>
Function FileLastMod()
Dim loFs, lsFile, lsPath, loFile, ldLast
' cria uma chamada ao objeto File SystemObject
Set loFs = CreateObject("Scripting.FileSystemObject")
' Pega o caminho logico do atual arquivo
lsFile = Request.ServerVariables("SCRIPT_NAME")
' pega o caminho fisico do arquivo
lsPath = Server.MapPath(lsFile)
' faz uma ligacao direto ao arquivo
Set loFile = loFs.GetFile(lsPath)
' pega a "ultima modificacao" deste arquivo
ldLast = loFile.DateLastModified
' Finaliza os objetos
Set loFile = Nothing
Set loFs = Nothing
' Formato:. "MM/DD/YY"
FileLastMod = CStr(FormatDateTime(ldLast, 2))
End Function
</SCRIPT>
Qualquer coisa, é só alterar a data para o formato nacional
DD/MM/YYYY
[]'s!
|
|
|
|
|
