快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

用ASP统计用户在站点的停留时间(1)

虽然通常使用的点击注册技术可以计算出你的Web站点得到多少点击,但是,假如能够知道访问者在站点上停留了多长时间就更好了。假如有上千人点击并打开了你的主页,但他们却在美丽的“欢迎”图形完全下载之前就已经跑到别的站点
去了,这样,你所花在建设和维护站点上的投资就没有得到很好的回报。

  有两种很好的方式用来记录用户在你的站点上花费了多少时间。第一个是使用基于ASP服务器的sessions,第二是通过保持客户机端cookies。要记住,使用sessions将给服务器的处理工作增加负荷,但是它们确实提供了最简洁的方式。还有一点要注重,那就是假如用户端的浏览器不能支持cookie功能,那么这两种方式都不能工作。

  

ASP Session 技术
  使用ASP Session 是要求你把这个session 开始的当前时间保存成那个用户的session 级别变量,这将要用到你的站点或虚拟路径下的global.asa 文件中的Session_onStart 事件句柄。然后,在Session_onEnd 事件句柄中,你就可以计算出session 持续的时间,并将这个结果写到日志文件或数据库中。在这里的例子中使用了日志文件:

< script language="VBScript" runat="server" >

Sub Session_onStart()

\\\'save the time that the session started

Session("StartTime") = Now()

End Sub



Sub Session_onEnd()

\\\'get the time that the user last loaded a page

\\\'assumes the default session timeout of 20 minutes



On Error Resume Next



\\\'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"

datStartTime = Session("StartTime")

datEndTime = DateAdd("n", -20 , Now())

intMinutes = DateDiff("n", datStartTime, datEndTime)

If intMinutes > 0 Then

   \\\'got a valid time so add it to the log file

   strInfo = "Visit ending at " & datEndTime _

     & " lasted for " & intMinutes & " 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

End If

End Sub

< /script >

  你可以看到,当session 结束时,我们从当前时间中减去了session 的timeout的数值,假如考虑到用户装载最后一页时所花费的时间,减去的值可以轻微小一点。这个数量由你去猜,因为用这个技术并不能测出实际值。

  注重,假如你在任何页面中使用了ASP的 Session.Abandon 方式,就不能得到准确的结果。因为这种方式立刻中断session,这样,从实际时间中减去session长度就会给出一个不准确的访问时间(有时候甚至是负数)。更糟糕的是,在ASP 2.0版本中,这种方式还常常彻底不能启动Session_OnEnd事件。

  在某些站点上使用一种“中止服务器操作”的链接来启动Session.Abandon方式,但是根据经验,很少有用户会去点击它。他们只是转到另一个站点,让session自行中断。

  这是我们从日志文件中得到的一些记录:

  Visit ending at 6/5/00 1:05:26 AM lasted for 2 minute (s).

  Visit ending at 6/5/00 1:06:14 AM lasted for 47 minute(s).

  Visit ending at 6/5/00 1:12:18 AM lasted for 22 minute(s).

  Visit ending at 6/5/00 1:29:54 AM lasted for 9 minute(s).

  假如用户访问的时间少于1分钟(比如说,他们的session开始后过了1分钟还没能装载另一页),用我们的代码就不显示在列表中。从整个session长度中减去这个session的timeout ,就会得到0,在这一点我们的代码就将其舍弃:

  If intMinutes > 0 Then ?

  当然你可以修改代码以适应自己的需要。

  注重:要记住session结束后才开始写日志文件的条目。你不能马上看到它们。假如想试着更快地看到结果,可以在页面上修改Session.Timeout 的属性。

  

在数据库中记录结果
  要将计算的结果记录数据库中而不是日志文件中,可以创建一个适当的SQL INSERT声明,执行它来更新一个你已经提供的数据库表:

...

strSQL = "INSERT INTO YourTable (UserName, SessionEnd, " _

& "SessionLength) VALUES (\\\'" & strUserName & " \\\', #" _

& datEndTime & "#, " & intMinutes & ")"

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.open "DSN=yourdsn;UID=username;PWD=password;"

oConn.Execute strSQL

Set oConn = Nothing

...
返回类别: 教程
上一教程: 计数器的另一用法:自动切换首页图片
下一教程: 在VB组件内调用EXCEL2000实现GIF饼图

您可以阅读与"用ASP统计用户在站点的停留时间(1)"相关的教程:
· 用ASP统计用户在站点的停留时间(2)
· 用ASP统计用户在站点的停留时间
· 关于如何保障Winnt +asp +sql web站点的安全经验(2)
· 在ASP中不借助第三方组件抓取别的站点的页面
· 用ASP编程控制在IIS建立WEB站点的程序代码
    微笑服务 优质保证 索取样品