统计网站的在线人数
来源:互联网 发布:5级瓦基丽武神升级数据 编辑:程序博客网 时间:2024/04/30 03:45
第一步: 先在系统中创建一个表,这个表用来存储每个用户的ip.
在Application_Start中添加以下代码。
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在应用程序启动时运行的代码
Dim dt As DataTable = New DataTable()
dt.Columns.Add("UIP", GetType(String))
Dim pk(1) As DataColumn
pk(0) = dt.Columns("UIP")
dt.PrimaryKey = pk
Application("DT") = dt
dim count as integer=0
Application("count")=count
End Sub
第二步:
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在新会话启动时运行的代码
Dim ip As String = Request.ServerVariables("REMOTE_ADDR").ToString '获取客户端IP地址
Dim dt As DataTable = Application("DT")
If dt.Rows.Contains(uid) Then
Application.Lock()
Dim Row As DataRow = dt.NewRow()
Row("UIP") = uid
dt.Rows.Add(Row)
Application.Set("DT", dt)
dim count as integer=Application("count")
count+=1
Application.set("count",count)
Application.UnLock()
End If
End Sub
第三步:
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
Application.Lock()
Dim ip As String = Request.ServerVariables("REMOTE_ADDR").ToString
Try
Dim i As Integer
Dim dt As DataTable = Application("DT")
Dim len as integer=dt.Rows.Count - 1
For i = 0 To len
Dim row As DataRow = dt.Rows(i)
If row("UIP").ToString.Equals(ip) Then
dt.Rows.Remove(row)
Exit For
End If
Next
Application.Set("DT", dt)
dim count as integer=Application("count")
count-=1
Application.set("count",count)
Application.UnLock()
Catch ex As Exception
End Try
End Sub
最后要在web.config文件中设置
sessionstate 模式设置为 ' InProc ',因为只有设置为InProc才会触发Session_End
- 统计网站的在线人数
- 注册的在线人数/统计在线人数/网站总访问量
- 统计网站在线人数
- 统计网站 在线人数
- 统计网站在线人数
- 统计网站在线人数
- 统计网站在线人数
- 网站的在线人数的统计
- 简单的网站在线人数统计
- Session的监听,统计网站在线人数
- 如何统计网站的在线人数呢?
- 网站在线人数以及历史访问人数的统计代码
- 网站在线人数以及历史访问人数的统计代码
- 网站在线人数以及历史访问人数的统计代码
- java 统计网站在线人数
- 网站在线人数的精确统计的个人看法
- 使用servlet统计网站在线人数的方法
- 使用监听器实现一个统计网站在线人数的示例
- 轻量级免费数据库比较
- linux command
- 算了,年轻受点苦,受点欺负,受点气没什么,继续向目标走去
- 炒股十句经典股训:只有持股才能赚大钱(太值得借鉴了!)
- 诺基亚手机大全
- 统计网站的在线人数
- 程序异常捕获库 - CrashRpt
- STL MAP用法详解
- 10分钟用Play!在GAE上实现一个Blog
- 我来了
- ASP.NET 创建母版页导致js出现“ 'document.getElementById(...)' 为空或不是对象”错误
- 运算符优先级
- 单片机学习笔记090710
- 把sql server 2005 express打包到产品中是否合法