“在线访客”的制作方法

======数据表设计=======
新建一个数据表,名为"Online"
删除自动编号字段
建立以下字段
字段名:ID 类型:数字
字段名:IP 类型: 文本
字段名:GUESTNAME 类型:文本
字段名:STATS 类型:文本
字段名:VISITIME 类型:日期/时间
字段名:OUTIME 类型:日期/时间


<%
sub activeonline()
dim ip
'删除180秒内不活动的在线记录.
   sql="Delete FROM online WHERE DATEDIFF(＇＇s＇＇,outime,now())>180"
Conn.Execute sql

if stats="" then '如果stats的值为空,则显示为
     stats="不知在做什么?"
else
     stats=stats
end if

   IP=Request.ServerVariables("REMOTE_HOST")
'检查Online表中是否已有这个IP的记录
   sql="select id from online where iP=＇"&ip&"＇"
set rs=conn.execute(sql)
if rs.eof or rs.bof then '如果没有该IP记录则添加在线记录
     sql="insert into online(iP,guestname,stats,visitime,outime)
          values ("&ip&",'游客','"&stats&"',Now(),Now())"
   else '如果Online表中已有该IP记录则更新该记录
     sql="update online set outime=Now(),stats='"&stats&"',
          guestname='游客' where iP='"&ip&"'"
end if
conn.execute(sql)
end sub
%>