<%@ Language=VBScript %>
<%
const size = 6
Set fs = CreateObject("Scripting.FileSystemObject")
file = Server.MapPath("count.dat")
Set counter = fs.OpenTextFile(file, 1, true)
if counter.AtEndOfStream then
cnt = 1
else
if session("countflag")=false then
cnt = counter.ReadAll + 1
session("countflag") = true
else
cnt = counter.ReadAll
end if
end if
counter.Close
Set counter = fs.CreateTextFile(file, true)
counter.Write(cnt)
counter.Close
for i=1 to size-len(cnt)
zero = zero & "0"
next
cnt = zero & cnt
%>
