<% Set objFile = Server.CreateObject("Scripting.FileSystemObject") sPathCountFile = Server.MapPath(".\login\src\count2.dat") On Error Resume Next Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE) If Err.Number > 0 Then '***** 初回起動？ iCount = 0 dtOld = Date() iCountT = 0 iCountY = 0 Else '***** カウントファイルの読み込み iCount = strmFile.ReadLine dtOld = CDate(strmFile.ReadLine) iCountT = strmFile.ReadLine iCountY = strmFile.ReadLine End If If dtOld <> Date() Then '***** 日付が変わった？ dtOld = Date() iCountY = iCountT iCountT = 0 End If strmFile.Close %>
　　　

　−ｎｅｔ　−ｎｅｔ

　
saite map