如何將訪問者數(shù)目周期性地保存?
如何將訪問者數(shù)目周期性地保存?
<script LANGUAGE="VBScript" RUNAT="Server">
SUB Session-OnStart
...
Application.Lock
Application("visitors")=Application("visitors") + 1
' 增加訪問計數(shù)
t-visitors = Application("visitors")
Application.UnLock
Session("VisitorID")=t-visitors
If t-visitors MOD 15 = 0 Then
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile-(Application
("VisitorCountFilename"),trUE,FALSE)
' 周期性地保存到文件中
Application.Lock
Out.Write(t-visitors)
Application.UnLock
End If
...
END SUB
</script>
相關(guān)文章
如何制作一個防止多次刷新計數(shù)的圖片計數(shù)器?
如何制作一個防止多次刷新計數(shù)的圖片計數(shù)器?...2006-11-11