Check.asp
Function test ()
{
VAR XMLHTTP = New ActiveXObject ("msxml2.xmlhttp");
Xmlhttp.Open ("post", "online.asp", false); // Send an update request to the overcenline.asp
Xmlhttp.SetRequestHettp.SetRequestHeader ("Content-Type", "Application / X-WWW-FORM-URLENCODED");
Xmlhttp.send ();
}
SETINTERVAL ("Test ();", 10); // 10 seconds to send an update request
script>
Online.asp
<%
Conn.execute "Update Hand_us Set i = '" & II & "' Where H = True and A = '" & Request.Cookies ("Login_Hand") & "'" update the last online time
Conn.execute "Update Hand_us Set H = FALSE WHERE DATEDIFF ('S', I, NOW ()> 1" deletes unused users
Enddata ()
%>