Lorenzo Pascucci
a- a+

Contatore di Accessi

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

<%Dim objFSO, objCountFileDim strCountFileNameDim iCountDim bUseImagesDim IbUseImages = 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 TheniCount = CLng(objCountFile.ReadAll)ElseiCount = 0End IfobjCountFile.CloseSet objCountFile = NothingiCount = iCount + 1Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)objCountFile.Write iCountobjCountFile.CloseSet objCountFile = NothingSet objFSO = Nothing%>

Per utilizzare questo script asp, basta copiarlo nellapropria pagina web.

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