家庭/个人应用

开发平台：

ASP/ASPX

char.asp：源码内容

							<!--#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 Replace(request.cookies("userid"), "'", "''")<>"" then
userid=Replace(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
%>

						