File contaclick.asp:
codice:
Clicca qui
<%
MyFile = Server.MapPath( Request.Querystring ("codice") &".txt" )
'il file in cui sono salvati i risultati è contatore.txt
Set FileObject = CreateObject("Scripting.FileSystemObject")
on error resume next
Set InStream = FileObject.OpenTextFile(MyFile, 1, true)
totali = CInt(Instream.ReadLine) + 1
Instream.Close
set instream = Nothing
Set OutStream = FileObject.OpenTextFile(MyFile, 2, true)
Outstream.WriteLine totali
Outstream.Close
Set OutStream = Nothing
set FileObject = Nothing
Response.Redirect ( Request.QueryString("url") )
%>
File contatore.txt:
al suo interno scrivici solo il numero 0 (zero) .
Script molto semplice ma efficace.