if session("s_in")<>1 and session("s_name")="" then '如果用户是第一次登陆
rs.open "select * from online",conn,3,3 rs.addnew rs("id")=session.sessionID rs("name")="游客" & session.sessionID rs("user")=0 '0表示用户未登陆，是游客身份 rs("tt")=now rs.update rs.close session("s_in")=1 '设置用户的资料已经存入数据库，表示已经在线 end if
if session("s_name")<>"" then '如果用户已经通过登录框登录 rs.open "select * from online where id='" & session.sessionID & "'",conn,3,3 rs("name")=session("s_name") rs("admin")=session("s_admin") '将用户的姓名更新为会员名称 rs("user")=1 '表示用户已经登陆，是会员身份 rs("tt")=now '将当前系统时间设置为用户的登陆时间 rs.update rs.close end if
... ...
%>
... ...
<head>
... ...
<script language=javascript> function Test() { var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP"); xmlhttp.open("POST","onceonline.asp",false); // 向onceonline.asp发送更新请求 xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded"); xmlhttp.send(); } setInterval("Test();",10); // 10秒钟发送一次更新请求 </script>
