<% dim newuser,maxonline,maxontime,onnum1,onnum,paper,papern,papers,realnowtime,nowtime,nowon response.write"" Response.Write"
" if isnull(lguserid) or lguserid="" then response.write"
用户登陆

用户名：  密 码： 验证码： 

记   录：  方 式：  

" else response.write"
"&checktitle(lgname)&" [ "&gradename(session(prefix&"usergrade"))&" ]
我的页面, 我的发表, 我的参与, 我的留言板("&newnum&")
" end if set rs=conn.execute("select maxonline,maxtopic,maxontime,nowtime,todaynum,topicnum,allnum,usernum,newuser from config") newuser=rs("newuser") newuser=split(newuser,"|") maxonline=rs("maxonline") maxontime=rs("maxontime") realnowtime=formatdatetime(now()+timeset/24,2) nowtime=replace(rs("nowtime"),",","") if nowtime<>realnowtime then conn.execute("update bdinfo set todaynum=0") conn.execute("update config set todaynum=0,nowtime='"&realnowtime&"'") end if response.write"
论坛信息
共有 "&rs("usernum")&" 位会员 , 欢迎新会员:"&checktitle(newuser(1))&"
主题:"&rs("topicnum")&" 篇 , 帖子:"&rs("allnum")&" 篇 / 今日:"&rs("todaynum")&" 篇 , 最高记录:"&rs("maxtopic")&" 篇
" set rs=nothing dim rs1,lasttopic,lastinfo set rs=conn.execute("select * from bdinfo where followid=0 order by orders desc,id") do while not rs.eof response.write"
"&rs("bdinfo")&"
" response.write"
" set rs1=conn.execute("select * from bdinfo where followid="&rs("id")&" order by orders desc,id") do while not rs1.eof bdinfo=rs1("bdinfo") bdinfo=split(bdinfo,"|") lasttopic=rs1("lasttopic") if isnull(lasttopic) or lasttopic="" then lastinfo="本版面还没有帖子！" elseif rs1("type")=3 or rs1("type")=4 then lastinfo="vip或认证版面，数据不对外公开" else lasttopic=split(lasttopic,"|") lastinfo="作者："&checktitle(lasttopic(1))&"
时间："&lasttopic(2)&"
主题： "&checktitle(lasttopic(3))&"" end if response.write"
"&bdinfo(0)&"
" if isnull(bdinfo(2)) or bdinfo(2)="" then else response.write"" end if response.write"
"&bdinfo(1)&"
" if isnull(rs1("admin")) or rs1("admin")="" then response.write"
本版面还没有版主
" else response.write"
本版版主："&replace(checktitle(rs1("admin")),"|","  ")&"
" end if response.write"
" response.write"
话题数："&rs1("topicnum")&"    今日帖数："&rs1("todaynum")&"
"&lastinfo&"
" response.write"
" rs1.movenext Loop rs1.Close set rs1=nothing response.write"
" rs.movenext Loop rs.Close set rs=nothing if isnull(lguserid) or lguserid="" then if conn.execute("select userid from online where ip='"&ip&"'").eof then sql="insert into online(ip,lasttime,onbd) values('"&ip&"',now(),0)" else sql="update online set userid=0,name='',lasttime=now(),pic=0,onbd=0,nowon='' where ip='"&ip&"'" end if else if conn.execute("select userid from online where userid="&lguserid&" or ip='"&ip&"'").eof then sql="insert into online(userid,name,ip,lasttime,pic,onbd) values("&lguserid&",'"&lgname&"','"&ip&"',now(),"&usertype&",0)" else sql="update online set userid="&lguserid&",name='"&lgname&"',ip='"&ip&"',lasttime=now(),pic="&usertype&",onbd=0,nowon='' where ip='"&ip&"' or userid="&lguserid&"" end if end if conn.execute(sql) conn.execute("delete*from online where now()-lasttime>"&onlinetime&"/24") dim sql sql="select*from online order by userid desc" set rs = server.createobject("adodb.recordset") rs.Open sql,conn,1 onnum=rs.recordcount onnum=conn.execute("select count(userid) from online")(0) if int(onnum)>=int(maxonline) then conn.execute("update [config] set maxonline="&onnum&",maxontime=now+"×et&"/24") maxonline=onnum maxontime=now+timeset/24 end if onnum1=conn.execute("select count(userid) from online where userid=0")(0) response.write"
在线统计 [ 详细列表 ]
目前论坛总共有 "&onnum&" 人在线，其中 "&onnum-onnum1&" 位会员，"&onnum1&" 位游客，最高峰在线："&maxonline&" 人。 发生在："&maxontime&"
名单图例：游客 | 会员 | 隐士 | VIP 会员 | 版主 | 超级版主 | 管理员
" response.write"
论坛联盟
" if thebbslink="" then dim showlink,td set rs=conn.execute("select*from bbslink") td=1 do while not rs.eof td=td+1 if checknum(application(prefix&"bbslinktype"))=1 then showlink=rs("name") else showlink="" end if response.write"
"&showlink&"
" thebbslink2=thebbslink2&"
"&showlink&"
" if td>5 then response.write"
":td=1:thebbslink2=thebbslink2 rs.movenext loop application(prefix&"thebbslink")=thebbslink2 set rs=nothing else response.write""&thebbslink&"" end if response.write"
" response.write"
普通版面   会员版面   只读版面   认证版面   Vip版面
" call down %>