Åter till sidans början
<% on error resume next set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("05.txt")) counter = clng(act.readline) counter = counter + 1 act.close Set act = fso.CreateTextFile(server.mappath("05.txt"), true) act.WriteLine(counter) act.Close %> <% on error resume next set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("05.txt")) counter = clng(act.readline) counter = counter + 0 act.close Set act = fso.CreateTextFile(server.mappath("05.txt"), true) act.WriteLine(counter) act.Close Response.Write counter %>
|