如何获得当前页面正在有哪些用户访问——在线等！

zcwmxn 2004-11-15 10:38:42
如题，如果觉得我描述不清，请留言
...全文
391 29 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
29 条回复
切换为时间正序
请发表友善的回复…
发表回复
zcwmxn 2004-11-16
  • 打赏
  • 举报
 回复
偶突然想出一办法，大家来点评一下
在body里添加onload和onbeforeunload事件，<body onload="onpage('onpage.aspx',1)" onbeforeunload="onpage('onpage.aspx',0)">

onpage函数用来打开一新窗口(onpage.aspx)，此窗口执行完事件后自动关闭，onpage.aspx的功能是前面几位DX提到的，在数据库里保存用户-页面状态。
zcwmxn 2004-11-16
  • 打赏
  • 举报
 回复
明白您说的意思，只是如果用户退出后，怎么处理？比如用户点了“关闭”，怎么能够知道用户已经退出了此页面
zcwmxn 2004-11-16
  • 打赏
  • 举报
 回复
顶
vzxq 2004-11-15
  • 打赏
  • 举报
 回复
如果当前页面用户打开了，但是不是活动的，算正在访问吗？
zcwmxn 2004-11-15
  • 打赏
  • 举报
 回复
多谢 myexam(exam) ;您能不能帮我把我所描述的问题解决，那样就应该可以彻底搞定了
zcwmxn 2004-11-15
  • 打赏
  • 举报
 回复
呵呵， 多谢fly980218(天魔六少）。为什么是session呢？你对session了解多少呢？
zcwmxn 2004-11-15
  • 打赏
  • 举报
 回复
也有可能，用户只是离开了页面，并没有离开系统
fly980218 2004-11-15
  • 打赏
  • 举报
 回复
应该是用session记录吧～～
zcwmxn 2004-11-15
  • 打赏
  • 举报
 回复
假使有用户A使用 该页面5秒后，第六秒时用户B登录，能够知道当前有用户A在线
而如果A在第5秒时，按了“关闭”按钮，退出了改页面，假设系统超时为10分钟
那么（delete from Forum_Online where Datediff(minute,ActiveTime,getdate())>10）是不起做用的，所以数据库里仍认为用户A在线，而其实A已经退出系统了。请问myexam(exam) 以及其它高人，这个问题怎么解决？
myexam 2004-11-15
  • 打赏
  • 举报
 回复
刚才SQL是这个.不好意思,发错了.
---------------------------------

CREATE PROCEDURE sp_Accounts_OnLineUser
(
@UserName varchar(50),
@UserGuid uniqueidentifier,
@UserSystem varchar(50),
@UserBrowser varchar(50),
@UserUrl varchar(1000),
@UserIp varchar(30),
@ActiveTime dateTime,
@LoginTime datetime
)
AS
DECLARE @Count int

--删除超时的记录
delete from Accounts_Online where Datediff(minute,ActiveTime,getdate())>10

Select @Count = Count(UserGuid) from Accounts_Online where UserGuid=@UserGuid

IF @Count = 0
begin
Insert Into Accounts_Online (UserName,UserGuid,UserSystem,UserBrowser,UserUrl,UserIp,ActiveTime,LoginTime)
Values
(@UserName,@UserGuid,@UserSystem,@UserBrowser,@UserUrl,@UserIp,@ActiveTime,@LoginTime)
end
else
begin
Update Accounts_Online set UserUrl=@UserUrl,ActiveTime=@ActiveTime where UserGuid=@UserGuid
end

GO
myexam 2004-11-15
  • 打赏
  • 举报
 回复
回复人： zcwmxn(千里猪) ( ) 信誉：100 2004-11-15 12:18:00 得分: 0


多问一句，是不是用户离开页面后会从数据库里清除其相应信息？




--删除超时的记录
delete from Forum_Online where Datediff(minute,ActiveTime,getdate())>10

这就是删除超时的.如果在线10分不活动就删除.也可以把这时间缩小.看自己定了.如果离开页面就会马上更新数据. 刚才那SQL主要是删除不在线的用户和长时间不活动的用户.


zcwmxn 2004-11-15
  • 打赏
  • 举报
 回复
多问一句，是不是用户离开页面后会从数据库里清除其相应信息？
myexam 2004-11-15
  • 打赏
  • 举报
 回复
SQL
---------------------------
CREATE PROCEDURE sp_Forums_OnLineUser
(
@UserName varchar(50),
@UserGuid uniqueidentifier,
@UserSystem varchar(50),
@UserBrowser varchar(50),
@UserAction varchar(1000),
@UserIp varchar(30),
@ActiveTime dateTime,
@LoginTime datetime,
@UserbClass int,
@UsersClass int
)
AS
DECLARE @Count int

--删除超时的记录
delete from Forum_Online where Datediff(minute,ActiveTime,getdate())>10

Select @Count = Count(UserGuid) from Forum_Online where UserGuid=@UserGuid

IF @Count = 0
begin
Insert Into Forum_Online (UserName,UserGuid,UserSystem,UserBrowser,UserAction,UserIp,ActiveTime,LoginTime,UserbClass,UsersClass)
Values
(@UserName,@UserGuid,@UserSystem,@UserBrowser,@UserAction,@UserIp,@ActiveTime,@LoginTime,@UserbClass,@UsersClass)
end
else
begin
Update Forum_Online set UserAction=@UserAction,ActiveTime=@ActiveTime,UserbClass=@UserbClass,UsersClass=@UsersClass where UserGuid=@UserGuid
end
GO
myexam 2004-11-15
  • 打赏
  • 举报
 回复
你写一个函数,然后在page_load里调用 OnLineUser()就OK了.

Public Function OnLineUser(ByVal UserName As String, ByVal UserGuid As String, _
ByVal UserSystem As String, ByVal UserBrowser As String, ByVal UserUrl As String, _
ByVal UserIp As String, ByVal ActiveTime As Date, ByVal LoginTime As Date) As Boolean

Dim rowsAffected As Integer
Dim parameters As SqlParameter() = { _
New SqlParameter("@UserName", SqlDbType.VarChar, 50), _
New SqlParameter("@UserGuid", SqlDbType.VarChar, 50), _
New SqlParameter("@UserSystem", SqlDbType.VarChar, 50), _
New SqlParameter("@UserBrowser", SqlDbType.VarChar, 50), _
New SqlParameter("@UserUrl", SqlDbType.VarChar, 1000), _
New SqlParameter("@UserIp", SqlDbType.VarChar, 30), _
New SqlParameter("@ActiveTime", SqlDbType.DateTime), _
New SqlParameter("@LoginTime", SqlDbType.DateTime)}

parameters(0).Value = UserName
parameters(1).Value = UserGuid
parameters(2).Value = UserSystem
parameters(3).Value = UserBrowser
parameters(4).Value = UserUrl
parameters(5).Value = UserIp
parameters(6).Value = ActiveTime
parameters(7).Value = LoginTime

RunProcedure( _
"sp_Accounts_OnLineUser", parameters, rowsAffected)

Return CBool(rowsAffected = 1)

End Function

------------------------------------------
Public Shared Function OnLineUser() As Boolean

Dim Context As System.Web.HttpContext = System.Web.HttpContext.Current
Dim UserName, UserGuid, UserSystem, UserBrowser, UserUrl, UserIp As String
Dim ActiveTime As Date = Date.Now
Dim LoginTime As Date = Date.Now

UserName = Context.User.Identity.Name
If UserName = "" Then UserName = "Guest User"
If Context.Request.Cookies("myxOnlineUser") Is Nothing Then
UserGuid = System.Guid.NewGuid.ToString
Context.Response.Cookies("myxOnlineUser").Value = UserGuid
Context.Response.Cookies("myxOnlineUser").Expires = Date.Now.AddHours(24)
Else
UserGuid = Context.Request.Cookies("myxOnlineUser").Value
End If
UserSystem = GetUserInfo(Context.Request.UserAgent, 1)
UserBrowser = GetUserInfo(Context.Request.UserAgent, 2)
UserUrl = Context.Request.Url.PathAndQuery.ToString.Trim
UserIp = Context.Request.UserHostAddress

Dim dataUser As New tmpData.User(Configuration.ModuleConfig.GetSqlConnectionString)

Return dataUser.OnLineUser(UserName, UserGuid, UserSystem, UserBrowser, UserUrl, UserIp, ActiveTime, LoginTime)


End Function


Private Shared Function GetUserInfo(ByVal Info As String, ByVal Type As Integer)
Dim GetInfo As String = ""
Select Case (Type)
Case 1
If (Instr(Info, "NT 5.2") > 0) Then
GetInfo = "操作系统：Windows 2003"
ElseIf (Instr(Info, "NT 5.1") > 0) Then
GetInfo = "操作系统：Windows XP"
ElseIf (Instr(Info, "Tel") > 0) Then
GetInfo = "操作系统：Telport"
ElseIf (Instr(Info, "webzip") > 0) Then
GetInfo = "操作系统：操作系统：webzip"
ElseIf (Instr(Info, "flashget") > 0) Then
GetInfo = "操作系统：flashget"
ElseIf (Instr(Info, "offline") > 0) Then
GetInfo = "操作系统：offline"
ElseIf (Instr(Info, "NT 5") > 0) Then
GetInfo = "操作系统：Windows 2000"
ElseIf (Instr(Info, "NT 4") > 0) Then
GetInfo = "操作系统：Windows NT4"
ElseIf (Instr(Info, "98") > 0) Then
GetInfo = "操作系统：Windows 98"
ElseIf (Instr(Info, "95") > 0) Then
GetInfo = "操作系统：Windows 95"
Else
GetInfo = "操作系统：未知"
End If
Case 2
If (Instr(Info, "NetCaptor 6.5.0") > 0) Then
GetInfo = "浏 览 器：NetCaptor 6.5.0"
ElseIf (Instr(Info, "MyIe 3.1") > 0) Then
GetInfo = "浏 览 器：MyIe 3.1"
ElseIf (Instr(Info, "NetCaptor 6.5.0RC1") > 0) Then
GetInfo = "浏 览 器：NetCaptor 6.5.0RC1"
ElseIf (Instr(Info, "NetCaptor 6.5.PB1") > 0) Then
GetInfo = "浏 览 器：NetCaptor 6.5.PB1"
ElseIf (Instr(Info, "MSIE 6.0b") > 0) Then
GetInfo = "浏 览 器：Internet Explorer 6.0b"
ElseIf (Instr(Info, "MSIE 6.0") > 0) Then
GetInfo = "浏 览 器：Internet Explorer 6.0"
ElseIf (Instr(Info, "MSIE 5.5") > 0) Then
GetInfo = "浏 览 器：Internet Explorer 5.5"
ElseIf (Instr(Info, "MSIE 5.01") > 0) Then
GetInfo = "浏 览 器：Internet Explorer 5.01"
ElseIf (Instr(Info, "MSIE 5.0") > 0) Then
GetInfo = "浏 览 器：Internet Explorer 5.0"
ElseIf (Instr(Info, "MSIE 4.0") > 0) Then
GetInfo = "浏 览 器：Internet Explorer 4.0"
Else
GetInfo = "浏 览 器：未知"
End If
End Select
Return GetInfo
End Function

Private Shared Function Instr(ByVal strA As String, ByVal strB As String) As Integer
If (String.Compare(strA, strA.Replace(strB, "")) > 0) Then
Return 1
Else
Return 0
End If
End Function

-------------------------------
Jack2013tong 2004-11-15
  • 打赏
  • 举报
 回复
其实方法很多，关键看你怎么去做，你可以在进入该页面的时候为用户设个session，
也可以参照楼主xzq686(瞬)的做法
zcwmxn 2004-11-15
  • 打赏
  • 举报
 回复
xzq686(瞬) ,哈，不是玩我吧？开玩笑，不过你这样做是不是太不科学了？
xzq686 2004-11-15
  • 打赏
  • 举报
 回复
<body onmouseover="javascript:insert()" onmouseout="javascript:delete()">
像上面那样。。当鼠标移到页面上的时候执行insert();当鼠标移出你的页面的时候执行delete()；

哈。。这样也许符合楼主的意图。。
xzq686 2004-11-15
  • 打赏
  • 举报
 回复

你要是想实现就在客户端实现。捕捉客户端鼠标事件。
比如：
鼠标在你的页面上的时候你将访问者名字(session里面的)提交到一个处理(插入正在访问表)。
当将鼠标离开你的页面的时候再将访问者的名字(session里面的)再提交到那个页面处理(从正在访问表中删除)
galahadzzy 2004-11-15
  • 打赏
  • 举报
 回复
恩。。。就是不太精确？！。。
来客心动 2004-11-15
  • 打赏
  • 举报
 回复
用SessionID去唯一标记一个用户是最可靠的！

建一个表，
字段包括：
SessionID varchar
starttiem datetime
lasttime datetime
ip varchar
UserID nvarchar
每个用户访问站点时，就会创建一个Session，每个Session会有一个SessionID，
向数据库中插入这个用户的信息；
当再点击网站的内容时就修改这个用户的lasttime；
如果这个用户在一个回话时间内还没有活动的话，就将这个用户删除！
原理是这样的，欢迎指教！
加载更多回复（9）
C#全能速查宝典
1.1.19 typeof运算符——获得系统原型对象的类型 21 1.1.20 using关键字——引入命名空间 22 1.1.21 WriteLine方法——写入流 23 1.2 数学方法类——Math 25 1.2.1 Abs方法——返回指定数字的绝对值 25 1.2.2 Acos...
js统计网页在线时间的脚本
每xxxxx毫秒检测一次是否在线, TR_COUNT次之后设定改用户为假死状态(即不在当前页面活动,afk..) 当页面关闭时把停留时间送出, /**//* —————————————————————————- * Script Name: on...
Get Location关键字——获取当前窗口页面的访问的路径——不接收任何参数
Get Location关键字——获取当前窗口页面的访问的路径——不接收任何参数； ============================================================= Open Browser http://www.baidu.com chrome ${Location}...
关于h5页面手机访问获取用户地理位置的功能——Geolocation位置API
Geolocation是由H5提供的新的获取用户使用的设备的地理位置的API，它可以让访问者在访问当前页面的时候，经过用户同意获取访问者当前的地理坐标位置。 此属性只能在网站为https的协议下运行 他提供了三个有效的方法...
iframe获得当前页面的父页面的document-——父页面获得iframe页面的document
iframe获得当前页面的父页面的document parent.document.getElementById("xx").innerHTML="2222"; 父页面获得iframe页面的document document.frames("frame").document.getElementById("xx")....
.NET社区

62,244

社区成员

668,998

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章