% on error resume next set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(Server.MapPath("visitors/visitors.txt")) counter = clng(act.readline) counter = counter + 1 act.close Set act = fso.CreateTextFile(Server.MapPath("visitors/visitors.txt"),true) act.WriteLine(counter) act.Close %>
![]() |
|||||||||||||||||||||||||
|
Visitor Counter:
|
|
|
|||||||||||||||||||||||
|
|
|||||||||||||||||||||||||
|
Copyright 2003, The Church in Cupertino. All Rights Reserved. |
|||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||