Department of Aeronautics and
Astronautics
Library Page
航空工学科 図書室のページ
<%
Rows = 5 ' カウンタの桁数
Filename = "E:\www\count.txt" ' カウント数を格納するテキストファイル名
' エラーが発生したら中止せずに無視する
On Error Resume Next
' FileSystemObjectの作成
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
' カウンタファイルの読み取りオープン
Set InStream = FileObject.OpenTextFile(Filename, 1, False, False)
' ここでエラーが発生していた場合は初回の処理
If Err.Number > 0 then
' 初回の場合、カウンタを0とする
Count = 0
Else
' エラーでなければ前回のカウンタを読み込む
Count = InStream.ReadLine
' ファイルのクローズ
InStream.Close
End If
' カウンタのインクリメント
Count = Count + 1
' カウンタの保存
Set OutStream = FileObject.CreateTextFile(Filename, True, False)
OutStream.WriteLine Count
OutStream.Close
' カウンタ値の出力
Buff = Right(String(Rows, "0") & Count, Rows)
For i = 1 To Rows
Work = ""
Response.Write(Work)
Next
%>Visitors
since Sep.10 1997