<%
sql="select * from online where ip='"&Request.ServerVariables("REMOTE_ADDR")&"' and username='"&Request.Cookies("username")&"' or sessionid='"&session.sessionid&"' "
rs.Open sql,Conn,1,3
if rs.eof then rs.addnew
rs("act")=""&act&""
rs("acturl")=""&Request.ServerVariables("script_name")&"?"&Request.ServerVariables("Query_String")&""
rs("forumid")=forumid
rs("bbsname")=""&bbsname&""
rs("lasttime")=now
if Request.Cookies("eremite")<>empty then rs("eremite")=Request.Cookies("eremite")
rs("userface")=membercode
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("username")=Request.Cookies("username")
rs("sessionid")=session.sessionid
rs.update
rs.close

if Request.Cookies("username")="" then
sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li><font color=#004aff>一位客人</font>高高兴兴地来到了论坛,欢迎欢迎！"
rs.update
rs.close
end if




if Request.Cookies("username")<>empty then


Randomize
eddi=Fix(9*Rnd)
select case eddi
case 1

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li>"&Request.Cookies("username")&"缓缓地步入夕阳下的论坛！"
rs.update
rs.close



case 2

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li>"&Request.Cookies("username")&"大步流星地来到了论坛！"
rs.update
rs.close



case 3

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li>"&Request.Cookies("username")&"听着耳机哼着小曲姗姗来到论坛！"
rs.update
rs.close



case 4

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li>"&Request.Cookies("username")&"开着宝马呼啸而来....哎哟,好威风呀！"
rs.update
rs.close



case 5

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li>"&Request.Cookies("username")&"若有所思地来到论坛...."
rs.update
rs.close



case 6

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li>"&Request.Cookies("username")&"匆忙赶来,大声嚷嚷说是要做今天的水状元！"
rs.update
rs.close



case 7

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li>"&Request.Cookies("username")&"蹦蹦跳跳地来到论坛！"
rs.update
rs.close



case else


sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend1")="<li>Here comes <font color=#004aff>"&Request.Cookies("username")&"</font>... That is fine,You are welcome！"
rs.update
rs.close


end select

end if

conn.execute("delete from [online] where DateDiff("&SqlChar&"s"&SqlChar&",lasttime,"&SqlNowString&")>"&OnlineTime&" ")
onlinemany=conn.execute("Select count(sessionid)from online")(0)
%>