char.asp

1.可以批量添加电影

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