用ASP統(tǒng)計(jì)用戶在站點(diǎn)的停留時(shí)間

2019-11-18 20:53:05

字體：大中小

供稿：網(wǎng)友

雖然通常使用的點(diǎn)擊注冊(cè)技術(shù)可以計(jì)算出你的Web站點(diǎn)得到多少點(diǎn)擊，但是，如果能夠知道訪問(wèn)者在站點(diǎn)上停留了多長(zhǎng)時(shí)間就更好了。如果有上千人點(diǎn)擊并打開了你的主頁(yè)，但他們卻在漂亮的“歡迎”圖形完全下載之前就已經(jīng)跑到別的站點(diǎn)去了，這樣，你所花在建設(shè)和維護(hù)站點(diǎn)上的投資就沒(méi)有得到很好的回報(bào)。

　　有兩種很好的方法用來(lái)記錄用戶在你的站點(diǎn)上花費(fèi)了多少時(shí)間。第一個(gè)是使用基于asp服務(wù)器的sessions，第二是通過(guò)保持客戶機(jī)端cookies。要記住，使用sessions將給服務(wù)器的處理工作增加負(fù)荷，但是它們確實(shí)提供了最簡(jiǎn)潔的方法。還有一點(diǎn)要注意，那就是如果用戶端的瀏覽器不能支持cookie功能，那么這兩種方法都不能工作。

　　

ASP Session 技術(shù)
　　使用ASP Session 是要求你把這個(gè)session 開始的當(dāng)前時(shí)間保存成那個(gè)用戶的session 級(jí)別變量，這將要用到你的站點(diǎn)或虛擬路徑下的global.asa 文件中的Session_onStart 事件句柄。然后，在Session_onEnd 事件句柄中，你就可以計(jì)算出session 持續(xù)的時(shí)間，并將這個(gè)結(jié)果寫到日志文件或數(shù)據(jù)庫(kù)中。在這里的例子中使用了日志文件：

< 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

‘a(chǎn)ssumes 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)."

　　 ‘a(chǎn)dd 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 >

　　你可以看到，當(dāng)session 結(jié)束時(shí)，我們從當(dāng)前時(shí)間中減去了session 的timeout的數(shù)值，如果考慮到用戶裝載最后一頁(yè)時(shí)所花費(fèi)的時(shí)間，減去的值可以稍微小一點(diǎn)。這個(gè)數(shù)量由你去猜，因?yàn)橛眠@個(gè)技術(shù)并不能測(cè)出實(shí)際值。

　　注意，如果你在任何頁(yè)面中使用了ASP的 Session.Abandon 方法，就不能得到正確的結(jié)果。因?yàn)檫@種方法立即中斷session，這樣，從實(shí)際時(shí)間中減去session長(zhǎng)度就會(huì)給出一個(gè)不正確的訪問(wèn)時(shí)間（有時(shí)候甚至是負(fù)數(shù)）。更糟糕的是，在ASP 2.0版本中，這種方法還經(jīng)常徹底不能啟動(dòng)Session_OnEnd事件。

　　在某些站點(diǎn)上使用一種“中止服務(wù)器操作”的鏈接來(lái)啟動(dòng)Session.Abandon方法，但是根據(jù)經(jīng)驗(yàn)，很少有用戶會(huì)去點(diǎn)擊它。他們只是轉(zhuǎn)到另一個(gè)站點(diǎn)，讓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).

　　如果用戶訪問(wèn)的時(shí)間少于1分鐘（比如說(shuō)，他們的session開始后過(guò)了1分鐘還沒(méi)能裝載另一頁(yè)），用我們的代碼就不顯示在列表中。從整個(gè)session長(zhǎng)度中減去這個(gè)session的timeout ，就會(huì)得到0，在這一點(diǎn)我們的代碼就將其舍棄：

　　If intMinutes > 0 Then ?

　　當(dāng)然你可以修改代碼以適應(yīng)自己的需要。

　　注意：要記住session結(jié)束后才開始寫日志文件的條目。你不能立刻看到它們。如果想試著更快地看到結(jié)果，可以在頁(yè)面上修改Session.Timeout 的屬性。

　　

在數(shù)據(jù)庫(kù)中記錄結(jié)果
　　要將計(jì)算的結(jié)果記錄數(shù)據(jù)庫(kù)中而不是日志文件中，可以創(chuàng)建一個(gè)適當(dāng)?shù)腟QL INSERT聲明，執(zhí)行它來(lái)更新一個(gè)你已經(jīng)提供的數(shù)據(jù)庫(kù)表：

...

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

...

　　然后你就可以用任何方式來(lái)使用這些數(shù)據(jù)了。你可以創(chuàng)建ASP頁(yè)面來(lái)讀取數(shù)據(jù)并將數(shù)據(jù)呈現(xiàn)給管理員，或者從數(shù)據(jù)庫(kù)中將其復(fù)制到一個(gè)電子工作表中，有時(shí)間的時(shí)候再進(jìn)行分析。

　　但是要記住，使用ASP sessions會(huì)帶來(lái)一些問(wèn)題。在ASP 2.0中，當(dāng)主應(yīng)用程序目錄下的嵌套目錄中有g(shù)lobal.asa 的副本時(shí)，有時(shí)sessions 會(huì)丟失。還有，如果你在URL、頁(yè)面文件名以及頁(yè)面之間的超級(jí)鏈接中使用字母的大小寫不同的話，象Navigator那樣的瀏覽器就把URL作為大小寫敏感來(lái)對(duì)待，因此不把特殊的ASP session cookie發(fā)送回來(lái)，這樣這種方法的使用也是不可靠的。

　　

“客戶機(jī)端Cookie”技術(shù)
　　使用客戶機(jī)端Cookie也很容易。完成這一工作的代碼可以放在一個(gè)ASP #include 文件中，然后將它插入到站點(diǎn)中用戶肯定會(huì)去訪問(wèn)的主頁(yè)面中。當(dāng)然，如果愿意的話可以將其插入所有的頁(yè)面。只要在用戶訪問(wèn)的過(guò)程中它工作正常，就能給出正確的結(jié)果。

　　設(shè)置了路徑和日志文件名之后，代碼定義一個(gè)子程序，將一個(gè)值附加到日志文件的，就象前面的“ASP Sessions”的例子一樣。如果你愿意的話，可以取代我們使用的代碼來(lái)更新一個(gè)數(shù)據(jù)庫(kù)表而不是一個(gè)日志文件。

< %

‘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)."

　　 ‘a(chǎn)dd 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

讀一個(gè)存在的Cookie
　　現(xiàn)在我們可以進(jìn)行實(shí)質(zhì)性的工作了。代碼的其余部分檢查是否有一個(gè)現(xiàn)存的Cookie供這個(gè)用戶使用，如果有的話就確認(rèn)它包含有效的日期和時(shí)間（我們檢查它必須是一個(gè)1990年之后的日期）。如果cookie是有效的，它隨后檢查自從這個(gè)用戶裝載最后一頁(yè)（也就是他們執(zhí)行這個(gè)代碼的最后一次）是否已經(jīng)過(guò)了30分鐘以上。如果已經(jīng)超過(guò)了30分鐘，我們就把它算做一個(gè)新的訪問(wèn)，你可以根據(jù)你的站點(diǎn)和需求來(lái)修改這個(gè)值。

...

‘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

　　 ...

　　這時(shí)，通過(guò)在頁(yè)面的頂端執(zhí)行UpdateLogFile子程序，我們已經(jīng)存儲(chǔ)了他們上一次訪問(wèn)的長(zhǎng)度，這是他們上次訪問(wèn)的分鐘數(shù)。然后就可以把我們收集的兩個(gè)值更新成當(dāng)前的日期和時(shí)間，可以開始記錄這次訪問(wèn)的長(zhǎng)度了。

　　要注意，30分鐘過(guò)去之后才能看到表格中的任何條目。在試驗(yàn)時(shí)，你可以用一個(gè)較短的值來(lái)修改代碼。

記錄訪問(wèn)的時(shí)間長(zhǎng)度
　　 ...

　　 ‘update values for cookie

　　 ‘use new start time and new ‘last page load‘ time

　　 datStart = Now()

　　 datLast = Now()

Else

　　 ...

　　如果自從最后一次執(zhí)行這個(gè)代碼的時(shí)間少于30分鐘，我們把它算成是當(dāng)前訪問(wèn)的一部分，因此我們只需要更新cookie中的值作為他們上次訪問(wèn)的時(shí)間:

　　 ...

　　 ‘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

...

設(shè)置默認(rèn)值
　　這里的代碼只是在我們沒(méi)有從訪問(wèn)者那里得到一個(gè)有效的cookie時(shí)才會(huì)執(zhí)行，因此我們所能做的就是使用一個(gè)當(dāng)前日期和時(shí)間的新cookie來(lái)得到最后一次訪問(wèn)的開始和最后的數(shù)值:

...

‘valid cookie does not exist so set values for a new one

datStart = Now()

datLast = Now()

End If

...

創(chuàng)建返回Cookie值
　　現(xiàn)在，我們已經(jīng)涉及到了cookie中現(xiàn)存值的所有可能的情況，并且我們把新的cookie值存儲(chǔ)在datStart和datLast變量中。這樣我們就可以創(chuàng)建發(fā)送回這個(gè)訪問(wèn)者的cookie了。注意，每次我們都要重新創(chuàng)建整個(gè)cookie，因?yàn)楫?dāng)試圖修改其中一個(gè)值而更新cookie時(shí)，會(huì)破壞其它的所有現(xiàn)存值：

...

‘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 = "/" ‘a(chǎn)pply to entire site

‘make it stay on the user‘s system for three months

Response.Cookies("SiteVisits").expires = DateAdd("m", 3, Now)

% >

　　cookie技術(shù)的一個(gè)問(wèn)題是當(dāng)訪問(wèn)者重新回到你的站點(diǎn)時(shí)，你只能測(cè)量他上次訪問(wèn)的長(zhǎng)度。為此，我們?cè)试Scookie在他們的機(jī)器上存在3個(gè)月，你可以修改這個(gè)時(shí)間值來(lái)適應(yīng)你的需求。

上一篇：jsp強(qiáng)于asp,但不是asp.net

下一篇：用ASP技術(shù)編制隱藏用戶密碼程序