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>
