<%
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
'カウンタ値を表示します。
For i = 1 to Len(cnt)
Response.Write "
![](image/" & Mid(cnt, i, 1) & ".gif)
"
Next
'オブジェクトを解放します。
Set ObjTS = Nothing
Set ObjFSO = Nothing
%>
