
Untuk membuat counter (jumlah pengunjung) dalam ASP tinggal sisipkan code dibawah ini :
<%
Dim oFileSys,FileCounter,oFS,PageVisit
Set oFileSys = Server.CreateObject(“Scripting.FileSystemObject”)
FileCounter = “C:\Inetpub\Counter.dat”
if not oFileSys.FileExists(FileCounter) then
set oFS = oFileSys.CreateTextFile(FileCounter,True)
oFS.WriteLine “1″
oFS.Close
PageVisit = “1″
else
set oFS = oFileSys.OpenTextFile(FileCounter,1)
PageVisit = oFS.ReadAll
PageVisit = cstr(cint(PageVisit) + 1)
set oFS = oFileSys.OpenTextFile(FileCounter,2)
oFS.WriteLine PageVisit
oFS.Close
end if
Set oFileSys = nothing
%>
Anda adalah pengunjung yang ke : <%=PageVisit%>
Sumber : http://www.sony-ak.com/articles/old/pagecounter.php

