用数据库简单

那能不能把原代码发一下啊，我不会哎，呜……

有谁知道吗？？？急哎。。。

表：online
字段：id/sessionID，username/用户名，ip/IP地址，datetime/活动时间

我这里用的是session登陆、也可以该成cookies
把下面的代码，嵌到每个页面
dim username
username=Session("username")

set rs=Server.CreateObject("ADODB.Recordset")
if session("username")<>"" then '判断用户未登录
sql="select * from online where username='"&session("username")&"'" '判断sessionid 或者 用户名记录已存在数据表中。
rs.Open sql,Conn,1,3
if rs.eof then
rs.addnew '会员第一次进入网站（可能从网站首页直接登录进入论坛）。
rs("id")=session.sessionID
rs("username")=session("username") '写入登录用户名
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()
end if
rs.update
rs.close
end if
set rs=nothing

conn.execute("delete from online where datediff('s',datetime,now())>600") '删除60秒没有活动的访客,时间可以自己调整。

显示的话很简单的，我就不写了

[此贴子已经被作者于2006-5-10 14:04:48编辑过]