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.
- Articolo precedente Cancellare record da database in una pagina ASP attraverso una check form. Come realizzarlo con Dreamweaver
- Articolo successivo Realizzare un Forum in ASP (1)