<% 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 %>