<% Set objFile = Server.CreateObject("Scripting.FileSystemObject") sPathCountFile = Server.MapPath("count2.dat") On Error Resume Next Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE) If Err.Number > 0 Then '***** 初回起動? iCount = 0 dtOld = Date() iCountT = 0 dyOld = Date() - 1 iCountY = 0 Else '***** カウントファイルの読み込み iCount = strmFile.ReadLine dtOld = CDate(strmFile.ReadLine) iCountT = strmFile.ReadLine dyOld = CDate(strmFile.ReadLine) iCountY = strmFile.ReadLine End If '***** カウント処理 If dtOld <> Date() Then '***** 日付が変わった? If dtOld = date() - 1 Then dyOld = dtOld dtOld = Date() iCountY = iCountT iCountT = 0 Else dyOld = Date() - 1 dtOld = Date() iCountY = 0 iCountT = 0 End If End If iCount = iCount + 1 iCountT = iCountT + 1 strmFile.Close '***** カウントファイルへ書き込み Set strmFile = objFile.OpenTextFile(sPathCountFile, 2, TRUE) strmFile.WriteLine iCount strmFile.WriteLine dtOld strmFile.WriteLine iCountT strmFile.WriteLine dyOld strmFile.WriteLine iCountY strmFile.Close %> <% CreateBody() %>

検索するときは、右の地図を
クリック
してね。
下のメニューからも検索できます
最新の蔵書データのアップデ
ートはこちらから。
都道府県を選択してください。

★都道府県名表示は≪Netscape4/IE4≫以上のバージョンの
ブラウザで動作します


あなたは <% =iCount %> 人目のお友達です。
今日は今まで <% =iCountT %>人、昨日は <% =iCountY %>人でした。
株式会社 九州ジェービーエー
  ユーザーサポートセンター

〒880-0866 宮崎市川原町4-19
E-mail:spsupport@jba.co.jp
TEL 0985-38-8088
FAX 0985-38-8091
Copyright 2000 Kyusyu JBA K.K. All rights reserved.