基于 Session对象的技术,只要在网页的根目录放置本例中所编写的Global.asa

基于"客户机端Cookie"的技术，只要在用户访问的页面包含By_Cookies.asp页面即可

这个两种方法都是通过查看C:/Visitor.txt（路进可以自己设置)文件查看日志即可知道用户停留的时间 

Global.asa

<Script Language="VBScript" RunAt="Server">
Sub Session_OnStart()
    Session("StartTime") = Now()
 
End Sub
Sub Session_OnEnd()
    On Error Resume Next
 strFileName = "C:/Visitor.txt"
 datStartTime = Session("StartTime")
 datEndTime = DateAdd("n",-20 ,Now())
 If intMinutes > 0 Then
     strInfo = "用户离开时间为" & datEndTime & ",共停留了"& intMinutes & "分钟。"
  Set objFileObject = Server.CreateObject("Scripting.FileSystemObject")
  Set objFile = objFileObject.OpenTextFile(strFileName,8,True)
  objFile.WriteLine strInfo
  objFile.Close
 End If
End Sub
</Script>

By_Cookies.asp

<%
strFileName = "C:/Visitor.Txt"   '设置要创建的日志文件的路径和名字
Sub UpdateLogFile(intVisitLength)
    On Error Resume Next
    If intVisitLength > 0 Then
     strInfo = "用户离开时间为 " & Now() & "，共持续了 " & CStr(intVisitLength) & " 分钟."
  Set objFileObject = Server.CreateObject("Scripting.FileSystemObject")
  Set objFile = objFileObject.OpenTextFile(strFileName, 8, True)
  objFile.WriteLine strInfo
  objFile.Close
  Set objFile = Nothing
  Set objFileObject = Nothing
    End If
End Sub
datStart = CDate(Request.Cookies("SiteVisits")("StartTime"))   '读一个有效的Cookie
If Year(datStart) > 1990 Then
    datLast = CDate(Request.Cookies("SiteVisits")("LastTime"))  '读取存在的Cookie
    If (DateDiff("n", datLast, Now()) > 30) Then  '30分钟过去之后才能看到表格中的任何条目
     intMinutes = DateDiff("n", datStart, datLast)
  UpdateLogFile intMinutes    '执行UpdateLogFile子程序，存储了他们上一次访问的长度
  datStart=Now()   '收集的两个值更新成当前的日期和时间
  datLast=Now()
    Else
        datLast=Now()    '如果自从最后一次执行这个代码的时间少于30分钟，就算成是当前访问的一部分
    End If
Else     '设置默认值，我们没有从访问者那里得到一个有效的cookie时才会执行
    datstart=Now()
    datLast=Now()
End If
Response.Cookies("SiteVisits")("StartTime") = datStart   '创建返回Cookie值
Response.Cookies("SiteVisits")("LastTime") = datLast
Response.Cookies("SiteVisits").path = "/"
Response.Cookies("SiteVisits").expires = DateAdd("m", 3, Now)
Response.Write "记录成功！"
%>