'get session start time from existing cookie if it exists
datStart = CDate(Request.Cookies("SiteVisits")("StartTime"))
If Year(datStart) > 1990 Then
'cookie already exists, so get values
datLast = CDate(Request.Cookies("SiteVisits")("LastTime"))
If (DateDiff("n", datLast, Now()) > 30) Then
'more than 30 minutes since last visit so count as new visit
'get length of last visit and update log file
intMinutes = DateDiff("n", datStart, datLast)
UpdateLogFile intMinutes
...
这时，通过在页面的顶端执行UpdateLogFile子程序，我们已经存储了他们上一次访问的长度， 这是他们上次访问的分钟数。然后就可以把我们收集的两个值更新成当前的日期和时间，可以开始记录这次访问的长度了。
要注意，30分钟过去之后才能看到表格中的任何条目。在试验时，你可以用一个较短的值来修改代码。
记录访问的时间长度
...
'update values for cookie
'use new start time and new 'last page load' time
datStart = Now()
datLast = Now()
Else
...
如果自从最后一次执行这个代码的时间少于30分钟，我们把它算成是当前访问的一部分，因此我们只需要更新cookie中的值作为他们上次访问的时间:
...
'less than 30 minutes since last visit so count as the same visit
'update values for cookie - just change the 'last page load' time
datLast = Now()
End If
Else
...
设置默认值
这里的代码只是在我们没有从访问者那里得到一个有效的cookie时才会执行，因此我们所能做的就是使用一个当前日期和时间的新cookie来得到最后一次访问的开始和最后的数值:
...
'valid cookie does not exist so set values for a new one
datStart = Now()
datLast = Now()
End If
...
创建返回Cookie值
现在，我们已经涉及到了cookie中现存值的所有可能的情况，并且我们把新的cookie值存储在datStart和datLast变量中。这样我们就可以创建发送回这个访问者的cookie了。注意，每次我们都要重新创建整个cookie，因为当试图修改其中一个值而更新cookie时，会破坏其它的所有现存值：
...
'create cookie to send back to client
'have to recreate whole cookie - can't just change some values
Response.Cookies("SiteVisits")("StartTime") = datStart 上一页 [1] [2] [3] [4] [5] 下一页 |
|
用ASP统计用户在站点的停留时间
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）