End Sub
Sub Application_End(Sender As Object, E As EventArgs)
'我们捎带实现了 站点的当前在线人数
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("当前访问的页面是 " + Request.FilePath + "<br>")
'既然我们可以得到FilePAth 则我们只要把这个参数进行详细的各种各样的统计就可以了
End Sub
Sub Application_EndRequest(Sender As Object, E As EventArgs)
End Sub
</script>
'好了一切完结之后,我们访问站点的任意一个aspx 文件,都会在最上方发现一行文字:当前访问的页面是 。。。。
怎么样,还不赶快尝试一下??
作者:豆腐()
……