1。建立数据库表
表名为online
设如下字段
id '用来记录每一个访问都的session.sessionid
name '如果是访客,则记录为访客。
online '如果是访各为0 如果是会员1
datetime '最近活动时间
username '会员的登录用户名,访客为空。
ip '记录访问都的登录IP
head.asp '向数据库表写入在线人数,该页面必须搜入到每一个用于浏览ASP页面中。
<%
set rs=Server.CreateObject("ADODB.Recordset")
if session("username")="" then 判断用户未登录
sql="select * from online where id='"&session.sessionid&"' " '判断这个sessionid是否存在于数据库表中.
rs.Open sql,Conn,1,3
if rs.eof then '访客第一次浏览
rs.addnew
rs("id")=session.sessionID
rs("name")="游客"
rs("online")=0 '0表示用户未登陆,是游客身份
rs("datetime")=now()
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip= Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
else '访客非第一次浏览
rs("datetime")=now() '更新活动时间
rs.update
rs.close
end if
else
sql="select * from online where id='" & session.sessionID & "' or admin='"&session("username")&"'" '判断sessionid 或者 用户名记录已存在数据表中。
rs.Open sql,Conn,1,3
if rs.eof then
rs.addnew '会员第一次进入网站(可能从网站首页直接登录进入论坛)。
rs("id")=session.sessionID
rs("name")=session("show") '写入用户昵称
rs("username")=session("username") '写入登录用户名
rs("online")=1 '表示用户已经登陆,是会员身份
rs("datetime")=now() '将当前系统时间设置为用户的登陆时间
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip= Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
else //会员非第一次浏览网站,访客登录网站。
rs("name")=session("show") 更新用户昵称
rs("username")=session("username")
rs("online")=1 '表示用户已经登陆,是会员身份
rs("datetime")=now()
end if
rs.update
rs.close
end if
set rs=nothing
%>
conn.execute("delete from online where datediff('s',datetime,now())>60") '删除60秒没有活动的访客,时间可以自己调整。
asp论坛在线人数统计研究
2019-10-18 11:18asp技术网 ASP教程
asp论坛在线人数统计研究
延伸 · 阅读
精彩推荐
- ASP教程
asp #include命令
在编写ASP程序的时候,通常都会用到!--#includevirtual/file=path/filename--把一段相对独立的文件代码嵌套到当前页面中来。 使用file的时候,等号后面使用的是相...
- ASP教程
ASP变量加变量实现代码
asp下变量的变量实现一句话代码 ...
- ASP教程
服务端 VBScript 与 JScript 几个相同特性的写法与示例
本文演示了ASP服务端脚本的几个重要应用. ...
- ASP教程
检查上传图片是否合法的函数,木马改后缀名、图片加恶意代码均
很多ASP程序检查上传图片是否合法往往只去检查文件的后缀,这样有一个很大的安全隐患,就是如果把ASP文件的后缀名改成.jpg或者.gif上传,或者图片里加...
- ASP教程
chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解
chr(9)、chr(10)、chr(13)、chr(32)、chr(34) 所有关于 ASCII码的表格:[url]http://www.asciitable.com/[/url] chr(13) 是一个回车 Chr(10) 是个换行符 chr(32) 是一个空格符 9\34 是...
- ASP教程
asp 静态页面的另一种思路
最近的两个网站的开发使我产生了不少新的想法!也阅读过了不少优秀的代码,但总没有找到一种符合自己的模式!借鉴缓存的设计,我似乎找到了一种更...
- ASP教程
ASP编码必备的8条原则
本文介绍的是用ASP编写代码的时候,我们应该遵守的八个原则。希望对你有帮助,一起来看吧!...
- ASP教程
asp下tag的实现,简单介绍与部分代码
标签是一种更为自由、灵活,完全由用户决定的分类方式,而非传统的由网站定义的分类。您可以根据自己的理解,对发表的文章、上传的图片、音乐、视...