<%
Dim oFSO
Dim oFile
Dim nCount
Dim sFilePath
Const iInterval=2
SFilePath=Server.MapPath("Count.txt")
IF Application("TotalCount")=0 or Application("TotalCount")="" THEN
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
IF not oFSO.FileExists(sFilePath) THEN
OFile=oFSO.CreateTextFile(sFilePath,true)
oFile.Write("1")
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")
OFile=oFSO.OpenTextFile(sFilePath,true)
oFile.Write(Application("TotalCount"))
oFile.close
Application("LastwriteTime")= Now
END IF
End IF
Response.Write("欢迎光临本网站，你是访问本网站的第" & Application("TotalCount") & "位访客！")
%>
|
