<%
'--- count.datのサーバ上での絶対ファイル名を準備
filename = Server.MapPath("count.dat")
'--- ファイル読み書き用オブジェクトの準備
Set FO = Server.CreateObject("Scripting.FileSystemObject")
'--- ファイル(filename)の中身を count に読み込む
Set R = FO.OpenTextFile( filename, 1, False, False )
count = R.ReadLine
Set R = Nothing
count = count + 1
%>
現在のカウントは「<%=count%>」です
<%
'--- ファイル(filename)に count を書き込む
Set W = FO.CreateTextFile( filename, True, False )
W.WriteLine count
Set W = Nothing
'--- グラフィカルにアクセスカウンタを表示
j = count + 100000
For i=2 to 6
'--- 変数j の i桁目から 1文字を 変数k に取り出す
k = mid( j, i, 1 )
%>
.gif><%
Next
%>