<%
Set ObjFSO = server.CreateObject("Scripting.FileSystemObject")
filename = Server.MapPath("count.dat")
'カウンタファイルを読取専用で開きます
Set ObjTS = ObjFSO.OpenTextFile(filename,1,true)
'カウンタ値を取得します
If ObjTS.AtEndOfStream Then
cnt = 0
Else
cnt = ObjTS.ReadLine
End If
'ファイルを閉じます
ObjTS.Close
'カウンタ値を加算します
cnt = cnt + 1
'カウンタファイルを上書きモードで開きます
Set ObjTS = ObjFSO.OpenTextFile(filename,2,true)
'ファイルにカウンタ値を書き込みます.
ObjTS.WriteLine cnt
'ファイルを閉じます
ObjTS.Close
%>