% set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("counter.txt")) counter = clng(act.readline) counter = counter + 1 act.close Set act = fso.CreateTextFile(server.mappath("counter.txt"), true) act.writeline(counter) act.close counter_length = len(counter) %>
|
This page has been visited <% Response.Write counter%> times since 21:40 on the 17th March, 2007. |