asp访问量统计代码

1、设置数据库表
表名在线
设置以下字段
ID用来记录每一个访问session.sessionid
名字如果是访客，它是作为访客记录的。
在线如果访问是0如果它是一个成员1
在最近的活动时间
用户名的成员的登录用户名，访问者是空的。
IP记录访问所有登录IP
head.asp写道在线号码数据库表的数量，必须在每个ASP页面浏览。
<
集= server.createobject（ADODB。记录集）
如果会话（用户名，则确定用户没有登录
SQL =SELECT * FROM在线id是session.sessionid '''确定SessionID存在于数据库中的表。
的。打开SQL，Conn，1,3
如果rs.eof然后访问者第一次访问
rs.addnew
RS（ID）= session.sessionid
RS（name）
RS（在线）= 0尺表明用户无法登陆，是一个旅游者的身份
RS（时间）=现在（）
userip = request.servervariables（http_x_forwarded_for ）
如果userip =
userip = request.servervariables（remote_addr ）
最后如果
RS（IP）= userip
否则游客不会第一次到访
RS（时间）=现在（）的更新活动时间
rs.update
关闭
最后如果
其他的
SQL =SELECT * FROM在线id是session.sessionid或管理=会议（用户名）或判断用户名记录存在于数据表。
的。打开SQL，Conn，1,3
如果rs.eof然后
rs.addnew成员首次进入网站（可直接登录从主页进入论坛）。
RS（ID）= session.sessionid
RS（name）=会话（）写用户昵称
RS（用户名）=会话（用户名）写登录用户名
RS（=）=1表示用户已登陆，是成员状态。
RS（时间）=现在（）设置为用户的登陆时间当前系统时间
userip = request.servervariables（http_x_forwarded_for ）
如果userip =
userip = request.servervariables（remote_addr ）
最后如果
RS（IP）= userip
否则，第一批非成员访问站点，站点上的访问者。
RS（name）=会话（）更新用户昵称
RS（用户名）=会话（用户名）
RS（=）=1表示用户已登陆，是成员状态。
RS（时间）=现在（）
最后如果
rs.update
关闭
最后如果
设置=无
%>
conn.execute（删除从网上，DateDiff（的日期，现在，（））> 60）中删除60秒没有主动来访，时间可以调整自己。