中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx

<%

Dim oFSO   '定義FSO組件對象

Dim oFile　　'定義讀寫文件對象

Dim nCount　'定義從文件中讀取的記數(shù)值

Dim sFilePath '定義計數(shù)器保存文件的路徑

Const iInterval=2 '定義保存時間間隔為2小時

SFilePath=Server.MapPath("Count/Count.txt")  '假設(shè)計數(shù)器文件在根目錄下的Count目錄中，文件名為Count.txt

IF  Application("TotalCount")=0 or Application("TotalCount")="" THEN

'如果第一次運行網(wǎng)站，比如重啟后，我們就需要從文件中讀取出以前的計數(shù)值

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

      IF not oFSO.FileExists(sFilePath) THEN

          OFile=oFSO.CreateTextFile(sFilePath,true)  '如果文件不存在，則創(chuàng)建一個文

件

　 　　　　oFile.Write("1")   寫入當(dāng)前的計數(shù)值"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  '設(shè)置最后一次訪問的時間為當(dāng)前時間

ELSE

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

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

       '如果當(dāng)前時間與上次保存計數(shù)值的時間差大于設(shè)定的時間間隔，則把計數(shù)值重新寫入文件

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

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

           oFile.Write(Application("TotalCount"))   '寫入當(dāng)前的計數(shù)值

           oFile.close

           Application("LastwriteTime")= Now  '設(shè)置最后一次訪問的時間為當(dāng)前時間

       END IF

End IF

Response.Write("歡迎光臨本網(wǎng)站，你是訪問本網(wǎng)站的第" & Application("TotalCount") & "位訪客！")

%>