char.asp

来自「asp+access的电影免费网站源码是个很好的学习例子大家可以下来学习」· ASP 代码 · 共 32 行

<!--#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


%>