PHP International (S) Pte. Ltd
470 North Bridge Road
#03-07 North Bridge Commercial Complex
Singapore 188735
TEL:65-63333455 FAX:65-63333265
<%
'==================================================
' カウンター処理
'==================================================
filename = "count.dat"
filepath = Server.MapPath(filename)
''ファイルのアクセスをできるようにする
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
''ファイルをオープンする（読込）
Set InStream= FileObject.OpenTextFile (filepath, 1, False, False)
''一行目を読み込む
count = Instream.Readline
Set Instream = Nothing
''カウントを１足す
count = count + 1
''ファイルをオープンする（書込）
Set OutStream = FileObject.CreateTextFile (filepath, True, False)
''書き込む
OutStream.WriteLine count
Set OutStream = Nothing
MaxLen = 6
Cnt = 0
%>
お問い合わせ