|
雖然通常使用的點擊注冊技術可以計算出你的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
...
然后你就可以用任何方式來使用這些數據了。你可以創建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子程序，我們已經存儲了他們上一次訪問的長度， 這是他們上次訪問的分鐘數。然后就可以把我們收集的兩個值更新成當前的日期和時間，可以開始記錄這次訪問的長度了。
要注意，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
Response.Cookies("SiteVisits")("LastTime") = datLast
Response.Cookies("SiteVisits").path = "/" ‘apply to entire site
‘make it stay on the user‘s system for three months
Response.Cookies("SiteVisits").expires = DateAdd("m", 3, Now)
% >
cookie技術的一個問題是當訪問者重新回到你的站點時，你只能測量他上次訪問的長度。為此，我們允許cookie在他們的機器上存在3個月，你可以修改這個時間值來適應你的需求。
|
