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>
