script "ultima modifica"

[gioska]

Ho questo script che mi stampa la data e' l'ora dell'ultima modifica effettuata su una pagina. Come faccio a formattare il carattere, e a mettere prima della data e l'ora la scritta "ultima modifica" ?
grazie. Lo script e' questo:

<% Dim oFSO,oFile,dMod
Set oFSO=Server.CreateObject("Scripting.FileSystemObje ct")
Set oFile=oFSO.GetFile(Server.MapPath("file.asp"))
dMod=oFile.DateLastModified
Set oFSO=Nothing
Set oFile=Nothing
Response.Write dMod
%>

[kalosjo]

<% Dim oFSO,oFile,dMod 
Set oFSO=Server.CreateObject("Scripting.FileSystemObject") 
Set oFile=oFSO.GetFile(Server.MapPath("file.asp")) 
dMod=oFile.DateLastModified 
Set oFSO=Nothing 
Set oFile=Nothing 
Response.Write "<font face='quellochevuoi' color='quellochevuoi' size='quellochevuoi'>ultima modifica: " & dMod & "</font>" 
%>

[gioska]

ok grazie mille e' perfetto.
L'ultimo aiuto, se volessi far controllare non solamente il file chiamato "file.asp" ma anche il file chiamato "file2.asp" tuti e due insieme come posso fare?

[kalosjo]

Devi ripetere l'operazione due volte, non puoi verificarli insieme.

<% 
  Dim oFSO,oFile,dMod 
  Set oFSO=Server.CreateObject("Scripting.FileSystemObject") 
  Set oFile=oFSO.GetFile(Server.MapPath("file.asp")) 
  dMod=oFile.DateLastModified 
  Set oFile=Nothing 
  Set oFile=oFSO.GetFile(Server.MapPath("file2.asp")) 
  dMod2=oFile.DateLastModified 
  Set oFSO=Nothing 
  Set oFile=Nothing 
  Response.Write "<font face='quellochevuoi' color='quellochevuoi' size='quellochevuoi'>ultima modifica file: " & dMod & "</font>
" 
  Response.Write "<font face='quellochevuoi' color='quellochevuoi' size='quellochevuoi'>ultima modifica file2: " & dMod2 & "</font>" 
%>

[gioska]

si ma cosi' e' brutto non posso fare stampare piu' date, se sono piu' di due viene una lista di date e' non volevo questo, non c'e' alcun metodo?

[kalosjo]

Vuoi che stampa la più recente?

allora le devi confrontare.... e stampare solo quella più grande

[gioska]

si esattamente la piu' recente, ma non so come fare, mi potresti aiutare?

[kalosjo]

Prima devi verificare tutte le pagine che vuoi mettere nella lista.
Credo sia meglio mettere un vettore e non una variabile.

dim dMod(npagine)

fai un ciclo su tutti i files della directory

<% 
  Dim oFSO,oFile,dMod(10) 
  Set oFSO=Server.CreateObject("Scripting.FileSystemObject") 
  Set oDir=oFSO.GetFolder(Server.MapPath("./"))
  nfile=0
  for each file in oDir.files
    dMod(nfile)=file.DateLastModified 
    nfile=nfile+1
  next
  Set oFSO=Nothing 
  Set oDir=Nothing
%>

E poi ordini il vettore trovato

for i=0 to ubound(dMod)-1
  if dMod(i)<dMod(i+1) then
    tempvar=dMod(i)
    dMod(i)=dMod(i+1)
    dMod(i+1)=tempvar
  end if
next

dMod(0) è la più recente

[daniele48]

Scusate se mi intrometto, ma questo script dà la data dell'ultima modifica di cosa? Del codice o dei dati del DB?

[kalosjo]

Data modifica dei files contenuti in una directory.