La funzione Timer del VBScript restituisce il numero di secondi trascorsi dalla mezzanotte fino al secondo corrente; arrotondando il valore con la funzione Round, col parametro 4, otterremo un risultato intero preciso. Un simile script può tornare utile a quei Webmaster che amano fornire ai visitatori statistiche precise sul proprio sito.
Lo script che segue è diviso in due fasi: la prima va posta prima dell’apertura del codice HTML e la seconda va posta dopo l’apertura del body, o meglio alla fine del codice HTML della pagina.
Ecco il codice che non necessita di commenti
<%@LANGUAGE = VBScript%>
<%
Dim i, f, ris
i = Timer
%>
<html>
<head>
<title>Tempo di caricamento di una pagina ASP</title>
</head>
<body>
<%
f = Timer
ris = f - i
ris = Round(ris, 4)
%>
<p>Tempo di caricamento: <%=ris%> secondi</p>
</body>
</html>