用ASP实现上下线

用ASP实现上下线，方法是用来在线刷新的时间来做到。

一：

dd=rs("time")
  
   if dd=0 then
   dd="0:0:0"
   end if

当ACC里TIME为空是自己定。
    if DateDiff("s",dd,time())=<60 then
  
   errmsg= "用户在线了"  
   exit sub
   else

如果少60S 那就知道它是在线的

二：

<meta http-equiv=refresh content="55"> 55S刷新一次

<%
dim user
user=Request.Cookies("name")
%>

<%
set rs=server.createobject("adodb.recordset")
sql="select * from user where user='"&user&"'"
rs.open sql,conn,3,3



rs("time")=time()
rs.update
rs.close
刷新后提交

QQ：9231333

http://www.yy66.net

%>