[asp]统计在线人数情况
以前ASP版本的统计在线。因为是从以前的系统中提取出来的。使用的话要修改下。
Function CheckOnline()
DIM IP,rsPrv,Sql
If DBSTATE = False Then DbOpen()
Set rsPrv=Server.CreateObject("ADODB.Recordset")
If Session("UserName") = "" then
Sql="select * from [Online] where SessionID='"& Session.Sessionid &"'"
rsPrv.Open Sql,Conn,1,3
If rsPrv.Eof then
rsPrv.AddNew
rsPrv("SessionID") = Session.SessionID
rsPrv("GroupChargeLv") = -1
rsPrv("LastActTime")=Now()
rsPrv("UserIP") = GetIP
rsPrv("OnLineTime") = 0
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
Else
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
rsPrv("OnLineTime") = rsPrv("OnLineTime") + DateDiff("n",rsPrv("LastActTime"),Now())
rsPrv("LastActTime") = Now()
End If
rsPrv.Update
rsPrv.Close()
'response.Write "notlogin"
Else
'response.Write "logined"
Sql="select * from [Online] where UserName='"& Session("UserName") &"'"
rsPrv.Open sql,Conn,1,3
If rsPrv.Eof then
rsPrv.AddNew
rsPrv("SessionID") = Session.SessionID
rsPrv("UserName") = Session("UserName")
rsPrv("GroupChargeLv") = Session("GroupChargeLv")
rsPrv("LastActTime") = Now()
rsPrv("OnLineTime") = 0
rsPrv("UserIP")= GetIP
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
Else
If rsPrv("SessionID") <> Session.SessionID And Application("LoginSet")(1) = False Then
Response.Write("<script>alert('该帐户已在其他地方登陆,网站设置1个ID只能有1个登陆\n你可以稍候尝试登陆。');location.href='LoginOut.asp'")
Response.End()
End If
rsPrv("UserWhere") = Request.ServerVariables("HTTP_REFERER")
rsPrv("OnLineTime") = rsPrv("OnLineTime") + DateDiff("n",rsPrv("LastActTime"),Now())
rsPrv("LastActTime")=Now()
End If
rsPrv.Update
rsPrv.Close()
End If
If DateDiff("s",Application("OnLineLastDelete"),Now()) > Int(Application("DELETEONLINEDIFF")) Then
Application.Lock()
Application("OnLineLastDelete") = now
Application.UnLock()
Conn.ExeCute("delete from [Online] where datedIff('s',LastActTime,Now())>"& Int(Application("CHECKONLINEDIFF") &"")) '删除x秒没有活动的访客
End If
Set rsPrv = Nothing
End Function
转载于:https://www.cnblogs.com/zkxp/archive/2006/03/31/363443.html
[asp]统计在线人数情况相关推荐
- asp论坛在线人数统计研究
自我感觉用的方法能比较准确的统计在线人数.当然一定也有不足的地方,希望各位老师纠正. 特别说明: 本论坛登录是采用用户名登录,登录后取得用户昵称.整个网站不显示用户名,我想相对来说安全一点吧,所以有昵 ...
- 利用php比较精确的统计在线人数的办法
利用php比较精确的统计在线人数的办法,注意这里所说的精确是指个数,如果需要精确在时间上,则需要根据实际情况调整代码中的有效时间.(自己没有写,从别人那拿过来的,先放着然后再研究) <?php/ ...
- 浏览器刷新、关闭页面与统计在线人数
项目中可能需要统计在线人数,也可能需要在用户在退出时进行用户注销登录,既为统计实时在线人数,也为及时清理暂时不再使用的session,节约资源提高性能. 对于以上的情况,若用户使用页面的注销按钮退出登 ...
- 用PHP来统计在线人数的四个方法详解
1 用表统计方式 用数据表统计在线人数,这种方式只能用在并发量不大的情况下. 首先我们先新建表:user_login 编辑 user_login 表 模拟用户登录,不存在用户就存入表,存在的则更新登录 ...
- [精选] 统计在线人数,用php 如何来实现 ?
一个业务系统网站每天人数的访问量是多少,在线人数是多少?这种业务我们在开发中就要预留,也是在我们的设计范围内的咯!因为一个正在运营的网站,每天都会用到统计. 那在线人数是如何统计的呢,这里有几种方案, ...
- java统计在线人数并退出_统计在线人数以及在线人信息
通过监听Session对象的方式来实现在线人数的统计和在线人信息展示,并且让超时的自动销毁 1. web.xml http://java.sun.com/xml/ns/javaee/web-app_2 ...
- session监听器统计在线人数存入数值后不能取出其值
session监听器统计在线人数存入数值后不能取出其值 首先这是一个在线统计人数的需求,给大家看看我的代码 监听器的类: import javax.servlet.annotation.WebList ...
- php 固定人数拼手气_独立统计在线人数和访问数代码分享(php)
代码有2张,和一个sql 1.conn_count.php < ?php $host="localhost"; //请在双引号内填写你的mysql数据库主机 $root=&q ...
- servlet监听完成统计在线人数,显示在线人员列表(附源码)
ServletContext事件监听器---->针对applicationScope ServletContextListener(*) 对整个Web应用的装载和卸载进行监听. ServletC ...
最新文章
- 3D溜溜网站用的是php吗_浩辰3D软件中全面的阵列特征你会用吗?快来看看吧
- 阿里云DDoS基础防护详解防护阈值黑洞时间详细说明
- boost::signals2模块thread_safe_signals 库替代线程模型的基本测试
- mysql常用sql命令
- JSP -java service pages
- java生成mib文件_【snmp】使用MIB Builder生成MIB文件
- C语言---------俄罗斯方块(源代码)
- java的图标及由来
- 光缆故障定位检测仪使用方法简介
- win10计算机切换用户,win10账户切换,详细教您win10怎么切换账户
- 中文转换为拼音插件guiHz2Py
- 【蓝桥杯备战】 Day02
- Flume或Kafka和Elasticsearch整合
- 批处理Bat建立微信多开程序
- 【数学建模】多元线性回归(PythonMatlab代码实现)
- Oracle账户被锁定解决方法
- iPhone4s提示:iPhone尚未激活
- win10安装rational rose
- 小程序/公众号抽奖活动页面-逻辑
- Nirvana NA公链 NAC公链的两面观
热门文章
- Laravel 中的 视图和模型
- ES6-12 array/数值拓展、ArrayOf、ArrayFrom
- hashcat源码分析1
- 搭建于 Cubieboard 之上的超小型实时监控平台 - mjpg篇
- Windows部署服务WDS实例
- You can't specify target table 'tablename' for update in FROM clause的解决方法
- exchange命令整理
- 【Python数据结构】——二叉查找树(查找、构建、删除、插入、打印)
- 现代制造工程课堂笔记07——应力应变分析(考点应力莫尔圆)
- 深度学习之tensorflow (一) XORerr1 -修改