用ASP统计用户在站点的停留时间(2)
程序员文章站
2023-12-29 14:21:10
然后你就可以用任何方式来使用这些数据了。你可以创建asp页面来读取数据并将数据呈现给管理员，或者从中将其复制到一个电子工作表中，有时间的时候再进行分析。 但是要记住，使用asp sessions...
然后你就可以用任何方式来使用这些数据了。你可以创建asp页面来读取数据并将数据呈现给管理员，或者从中将其复制到一个电子工作表中，有时间的时候再进行分析。
但是要记住，使用asp sessions会带来一些问题。在asp 2.0中，当主应用程序目录下的嵌套目录中有global.asa 的副本时，有时sessions 会丢失。还有，如果你在url、页面文件名以及页面之间的超级链接中使用字母的大小写不同的话，象navigator那样的就把url作为大小写敏感来对待，因此不把特殊的asp session cookie发送回来，这样这种
方法的使用也是不可靠的。
“客户机端cookie”技术
使用客户机端cookie也很容易。完成这一工作的代码可以放在一个asp #include 文件中，然后将它插入到站点中用户肯定会去访问的主页面中。当然，如果愿意的话可以将其插入所有的页面。只要在用户访问的过程中它工作正常，就能给出正确的结果。
设置了路径和日志文件名之后，代码定义一个子程序，将一个值附加到日志文件的，就象前面的“asp sessions”的例子一样。如果你愿意的话，可以取代我们使用的代码来更新一个数据库表而不是一个日志文件。
< %
measure visit length with cookie
set path and name of log file to be created
edit to suit your own machine directory layout
remember to give the directory write or full
control permission for the iusr_machine account
strfilename = "c:tempvisit_lengths.txt"
sub updatelogfile(intvisitlength)
on error resume next
if intvisitlength > 0 then
got a valid time so enter it into a log file
strinfo = "session ending at " & now() _
& " lasted for " & cstr(intvisitlength) & " minute(s)."
add user name to the log entry string here if required
strinfo = strinfo & " user name: " & strusername
set objfileobject = server.createobject("scripting.filesystemobject")
open text file to append data (the forappending constant = 8)
set objfile = objfileobject.opentextfile(strfilename, 8, true)
objfile.writeline strinfo
objfile.close
set objfile = nothing
set objfileobject = nothing
end if
end sub
读一个存在的cookie
现在我们可以进行实质性的工作了。代码的其余部分检查是否有一个现存的cookie供这个用户使用，如果有的话就确认它包含有效的日期和时间（我们检查它必须是一个1990年之后的日期）。如果cookie是有效的，它随后检查自从这个用户装载最后一页（也就是他们执行这个代码的最后一次）是否已经过了30分钟以上。如果已经超过了30分钟，我们就把它算做一个新的访问，你可以根据你的站点和需求来修改这个值。
...
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子程序，我们已经存储了他们上一次访问的长度， 这是他们上次访问的分钟数。然后就可以把我们收集的两个值更新成当前的日期和时间，可以开始记录这次访问的长度了。
但是要记住，使用asp sessions会带来一些问题。在asp 2.0中，当主应用程序目录下的嵌套目录中有global.asa 的副本时，有时sessions 会丢失。还有，如果你在url、页面文件名以及页面之间的超级链接中使用字母的大小写不同的话，象navigator那样的就把url作为大小写敏感来对待，因此不把特殊的asp session cookie发送回来，这样这种
方法的使用也是不可靠的。
“客户机端cookie”技术
使用客户机端cookie也很容易。完成这一工作的代码可以放在一个asp #include 文件中，然后将它插入到站点中用户肯定会去访问的主页面中。当然，如果愿意的话可以将其插入所有的页面。只要在用户访问的过程中它工作正常，就能给出正确的结果。
设置了路径和日志文件名之后，代码定义一个子程序，将一个值附加到日志文件的，就象前面的“asp sessions”的例子一样。如果你愿意的话，可以取代我们使用的代码来更新一个数据库表而不是一个日志文件。
< %
measure visit length with cookie
set path and name of log file to be created
edit to suit your own machine directory layout
remember to give the directory write or full
control permission for the iusr_machine account
strfilename = "c:tempvisit_lengths.txt"
sub updatelogfile(intvisitlength)
on error resume next
if intvisitlength > 0 then
got a valid time so enter it into a log file
strinfo = "session ending at " & now() _
& " lasted for " & cstr(intvisitlength) & " minute(s)."
add user name to the log entry string here if required
strinfo = strinfo & " user name: " & strusername
set objfileobject = server.createobject("scripting.filesystemobject")
open text file to append data (the forappending constant = 8)
set objfile = objfileobject.opentextfile(strfilename, 8, true)
objfile.writeline strinfo
objfile.close
set objfile = nothing
set objfileobject = nothing
end if
end sub
读一个存在的cookie
现在我们可以进行实质性的工作了。代码的其余部分检查是否有一个现存的cookie供这个用户使用，如果有的话就确认它包含有效的日期和时间（我们检查它必须是一个1990年之后的日期）。如果cookie是有效的，它随后检查自从这个用户装载最后一页（也就是他们执行这个代码的最后一次）是否已经过了30分钟以上。如果已经超过了30分钟，我们就把它算做一个新的访问，你可以根据你的站点和需求来修改这个值。
...
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子程序，我们已经存储了他们上一次访问的长度， 这是他们上次访问的分钟数。然后就可以把我们收集的两个值更新成当前的日期和时间，可以开始记录这次访问的长度了。