Visualizzare l'ora corrente

Questo script permette di formattare l'ora corrente per mostrarla all'utente:

<%
function orario()
dim intOra
intOra=datepart("h", time() )
if len(intOra)="1" then
intOra="0" & intOra
end if
dim intMin
intMin=datepart("n", time() )
if len(intMin)="1" then
intMin="0" & intMin
end if
dim intSec
intSec=datepart("s", time() )
if len(intSec)="1" then
intSec="0" & intSec
end if
orario= intOra&":"&intMin&":"&intSec
end function
response.write orario()
%>