<%
mp = Server.MapPath("../cnt.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set fh = fs.OpenTextFile(mp,1)
nth = fh.ReadLine
fh.Close
'●初回アクセスのみカウントアップします
'●二回目以降はそのままの数字を出します
If "" & Session("vCnt") = "" Then
nthi = cLng(nth) + 1
nthx = Right("0000000" & nthi, 6)
Set fh = fs.CreateTExtFile(mp,True)
fh.WriteLine "" & nthi
fh.Close
Else
nthi = cLng(nth)
nthx = Right("0000000" & nthi, 6)
End If
'●セッションで管理します
Session("vCnt") = 1
%>