onlines.asp

一个WAP站

<%
dim rsse
set rsse=Server.CreateObject("ADODB.Recordset")
rsse.open "select date from login where id='"&request("shouji")&"'",conn,1,3
if rsse.bof and rsse.eof then
response.redirect "index.asp"
else
rsse("date")=now
rsse.update
end if
rsse.close
set rsse=Server.CreateObject("ADODB.Recordset")
rsse.open "select mark,date from login",conn,1,2
do while not rsse.EOF
if rsse("mark") then
else
if datediff("s",rsse("date"),now)>300 then
rsse.delete
rsse.update
end if
end if
rsse.movenext
loop
%>