ASP编写计数器的优化方法(2)

           oFile.close

           Application("TotalCount")=1

      ELSE

            Set oFile = oFSOt.OpenTextFile(sFilePath)

            NCount=OFile.ReadLine

            Application("TotalCount")=Clng(nCount)+1

            OFile.close

      End IF

      Application("LastwriteTime")= Now  '设置最后一次访问的时间为当前时间

 ELSE

      Application("TotalCount")= Application("TotalCount")+1

      IF DateDiff("H", Application("LastwriteTime"),Now)>iInterval THEN

       '如果当前时间与上次保存计数值的时间差大于设定的时间间隔，则把计数值重新写入文件

           Set oFSO=Server.CreateObject("Scripting.FileSystemObject")　'实例化文件操作对象oFSO

           OFile=oFSO.OpenTextFile(sFilePath,true)  '打开文件

           oFile.Write(Application("TotalCount"))   '写入当前的计数值

           oFile.close

           Application("LastwriteTime")= Now  '设置最后一次访问的时间为当前时间

       END IF

End IF

Response.Write("欢迎光临本网站，你是访问本网