Lorenzo Pascucci
a- a+

Contatore di Accessi

Il codice qui presente serve per inserire nella propria pagina web un counter per contare il numero di accessi che si hanno nella pagina che contiene tale codice. 

<%
Dim objFSO, objCountFile
Dim strCountFileName
Dim iCount
Dim bUseImages
Dim I

bUseImages = CBool(Request.QueryString("images"))
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName,1,True)

If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If

objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing

%>

Per utilizzare questo script asp, basta copiarlo nella propria pagina web.

Non verrà visualizzato nessun numero sulla pagina, ma verrà creato un file con lo stesso nome della pagina ma con estensione .cnt. Tale file è possibile leggerlo con il Blocco Note (o simili) e all'interno sarà presente un numero che indica gli accessi.



Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Marcello
Ti è piaciuto l'articolo?