<%
if session("add")<>"done" then
session("add")="done"
dim fo
set fo=createobject("scripting.filesystemobject")
if fo.fileexists(server.mappath("data\total.txt"))=true then
set f=fo.opentextfile(server.mappath("data\total.txt"),1)
total=cint(f.readline)
f.close
total=total+1
set f=fo.opentextfile(server.mappath("data\total.txt"),2)
f.writeline(total)
f.close
else
total=1
set f=fo.createtextfile(server.mappath("data\total.txt"),2)
f.writeline(1)
f.close
end if
else
set fo=createobject("scripting.filesystemobject")
set f=fo.opentextfile(server.mappath("data\total.txt"),1)
total=cint(f.readline)
f.close
end if
%>