Il componente MSWC.PageCounter, se istallato sul Web Server, permette di realizzare con sole due righe di codice un semplice ma efficace contatore di accessi. Il risultato viene salvato su un file di testo, ed è stesso il server a farsi carico della sua conservazione e di metterlo a disposizione della pagina ad ogni richiesta.

Il suo utilizzo non è personalizzabile, e per certi versi affidabile, alla stregua di un contatore realizzato basandosi sull’oggetto File System o su un database, ma è adatto per un uso veloce su pagine senza troppe pretese.

Vediamo un esempio base, ma già completo e pronto all’uso

<%
    Set contatore = Server.CreateObject("MSWC.PageCounter")
    numero = contatore.PageHit()
    Set contatore = Nothing
%>

<p>Accessi: <%=numero%></p>

Non credo che il codice, data la sua banalità, necessiti di particolari commenti… ma dato che questo componente non è presente su tutti i server, in particolare sul PWS, è il caso di sperimentare che funzioni prima di includerlo nelle proprie pagine, magari gestendo l’eventuale errore

<%
    If Err.Number = 0 Then
        Set contatore = Server.CreateObject("MSWC.PageCounter")
        numero = contatore.PageHit()
        Set contatore = Nothing
        Response.Write "Accessi: " & numero
    Else
        Response.Write "Usa un contatore migliore per favore  "
    End If
%>

Il metodo PageHit() si occupa dell’incremento del contatore e della stampa a video del risultato. Il metodo Reset(), com’è intuibile, azzera il conteggio in base all’URL della pagina specificata, contenente il contatore:

contatore.Reset("http://localhost/contatore.asp")

oppure

contatore.Reset(Server.MapPath("contatore.asp"))