用ASP编写计数器的优化方法

用ASP编写计数器的优化方法(2)             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("欢迎光临本网站，你是访问本网站的第" & Application("TotalCount") & "位访客！")

%>

本例程在Windows2000 IIS5.0下通过。