/*
豆腐制作 都是精品
http://www.asp888.net 豆腐技術(shù)站
如轉(zhuǎn)載 請(qǐng)保留這個(gè)版權(quán)信息
*/
在asp的以前的文章里我講了一下如何在asp中實(shí)現(xiàn)頁(yè)面統(tǒng)計(jì)，但是這樣的程序有這樣的一個(gè)問題，就是只能統(tǒng)計(jì)單個(gè)的頁(yè)面，我們?cè)赼sp+中可以很輕松的實(shí)現(xiàn)對(duì)整個(gè)站點(diǎn)頁(yè)面的統(tǒng)計(jì)
在asp.net 中 原來 asp 中的 global.asa 被調(diào)整成為了 global.asax 其中除了以前的
四個(gè)事件又 增加了 兩個(gè)事件Application_BeginRequest 和 Application_EndRequest
這兩個(gè)事件在站點(diǎn)的任意一個(gè)文件被請(qǐng)求的時(shí)候都會(huì)被激發(fā)，因此我們便利用這個(gè)事件實(shí)現(xiàn)對(duì)站點(diǎn)的訪問統(tǒng)計(jì)
我們首先來看看這個(gè)global.asax 文件
<script language="VB" runat="server">
Sub Application_Start(Sender As Object, E As EventArgs)

End Sub

Sub Application_End(Sender As Object, E As EventArgs)
'我們捎帶實(shí)現(xiàn)了 站點(diǎn)的當(dāng)前在線人數(shù)
dim intOnlineNumber as integer
intOnlineNumber=cInt(Application("ONLINENUMBER"))-1
Application("ONLINENUMBER")=intOnlineNumber
End Sub

Sub Session_Start(Sender As Object, E As EventArgs)
Application.Lock
intOnlineNumber=cInt(Application("ONLINENUMBER"))+1
Application("ONLINENUMBER")=intOnlineNumber+1
Application.UnLock
End Sub

Sub Session_End(Sender As Object, E As EventArgs)

End Sub

Sub Application_BeginRequest(Sender As Object, E As EventArgs)
'就是這里
response.write("當(dāng)前訪問的頁(yè)面是 " + Request.FilePath + "<br>")
'既然我們可以得到FilePAth 則我們只要把這個(gè)參數(shù)進(jìn)行詳細(xì)的各種各樣的統(tǒng)計(jì)就可以了
End Sub

Sub Application_EndRequest(Sender As Object, E As EventArgs)

End Sub
</script>
'好了一切完結(jié)之后，我們?cè)L問站點(diǎn)的任意一個(gè)aspx 文件，都會(huì)在最上方發(fā)現(xiàn)一行文字：當(dāng)前訪問的頁(yè)面是 。。。。
怎么樣，還不趕快嘗試一下？？

作者:豆腐()