line.asp

来自「一个小巧的论坛程序 本程序基本功能： 可开设任意数目的讨论区类别和版块 使用C」· ASP 代码 · 共 33 行

<%
riqi=now+timeset/24
myconn.execute("delete*from online where ltime<now+"&timeset&"/24-0.05")
if lgtype="s" then
if lgname="" then
set jilu=myconn.execute("select ip from online where ip='"&ip&"'")
if jilu.eof then
myconn.execute("insert into online (ip,ltime,pic)VALUES('"&ip&"','"&riqi&"',"&admin&")")
else
myconn.execute("update online set ltime='"&riqi&"' where ip='"&ip&"'")
end if
set jilu=nothing
end if
if lgname<>"" then
set ujilu=myconn.execute("select name from online where name='"&lgname&"'")
if ujilu.eof then
myconn.execute("delete*from online where ip='"&ip&"'")
myconn.execute("insert into online (name,ltime,pic)VALUES('"&lgname&"','"&riqi&"',"&admin&")")
else
myconn.execute("update online set ltime='"&riqi&"' where name='"&lgname&"'")
end if
set ujilu=nothing
end if
end if
mostonline=myconn.execute("select mostonline from bbsinfo")(0) 
usno=myconn.execute("Select count(ltime)from online where name<>''")(0)
lineno=myconn.execute("Select count(ltime)from online")(0)
if int(lineno)>int(mostonline) then
myconn.execute("update bbsinfo set mostonline="&lineno&"")
mostonline=lineno
end if
nusno=lineno-usno
%>