<!--#include file="../articleconn.asp"-->

<%
Dim ls
dim conn
sql="select time from home"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
maxtime=rs("time")

conn.Execute("Delete * From online where DATEDIFF('s',lastime, now()) > "&maxTime&"*60") '刪除超時的用戶

if chkcookie(request.cookies("userid"))<>"" then
userid=chkcookie(request.cookies("userid"))
Set ls=Server.CreateObject("ADODB.RECORDSET")
ls.Open"Select * FROM online WHERE username='"& userid & "'",CONN,2,2
    
    if not ls.eof then ' 查詢數據庫是否有此用戶的登陸過的信息
	    userip=Request.ServerVariables("REMOTE_ADDR")'取得提交登陸信息用戶的IP
        ls("userip")=userip
        ls("lastime")=now()
        ls.UPDATE
        ls.Close
        Set ls=Nothing
	

    end if

end if


%>
</body>
</html>