<% dim newuser,maxonline,maxontime,onnum1,onnum,paper,papern,papers,indexinfo,gonggao,lm,online,realnowtime,nowtime,nowon indexinfo=checknum(request.Cookies(prefix&"1")("indexinfo")) lm=checknum(request.Cookies(prefix&"1")("lm")) online=checknum(request.Cookies(prefix&"1")("online")) response.write"" if isnull(lguserid) or lguserid="" then response.write""&ttop&"
  用户登陆

  用户名: 密 码: 验证码:   Cookies:  方式:  

"&tbottom&"
" end if if indexinfo=1 or indexinfo="" then response.write"" 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 if indexinfo=1 or indexinfo="" then response.write""&ttop&"
  论坛信息
 新会员:"&kbbs(newuser(1))&" 主题数:"&rs("topicnum")&" 今日帖数:"&rs("todaynum")&"  论坛公告:
 会员数:"&rs("usernum")&" 总帖数:"&rs("allnum")&" 最高日帖:"&rs("maxtopic")&"
"&tbottom&"
" end if 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 if allthebbs="" then allbbs=allbbs&" "&rs("bdinfo")&"
" response.write""&ttop&"
   "&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,"|") if allthebbs="" then allbbs=allbbs&"    "&bdinfo(0)&"
" 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="

作者:"&kbbs(lasttopic(1))&"
时间:"&lasttopic(2)&"
主题: "&kbbs(lasttopic(3))&"

" end if response.write"
"&_ "

"&bdinfo(0)&"

  话题数:"&rs1("topicnum")&"    今日帖数:"&rs1("todaynum")&"
"&_ "

"&bdinfo(1)&"

" if isnull(bdinfo(2)) or bdinfo(2)="" then else response.write"" end if response.write""&lastinfo&"

" if isnull(rs1("admin")) or rs1("admin")="" then response.write"本版面还没有版主" else response.write"本版版主:"&replace(kbbs(rs1("admin")),"|","  ")&"" end if response.write"

" rs1.movenext Loop rs1.Close set rs1=nothing response.write"
"&tbottom&"
" rs.movenext Loop rs.Close set rs=nothing if allthebbs="" then response.write"":application(prefix&"allthebbs")=allbbs 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) if online=1 or online="" then 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""&ttop&"
  在线统计 [ 详细列表 ]

目前论坛总共有 "&onnum&" 人在线,其中 "&onnum-onnum1&" 位会员,"&onnum1&" 位游客,最高峰在线:"&maxonline&" 人。 发生在:"&maxontime&"

名单图例:游客 | 会员 | 隐士 | VIP 会员 | 版主 | 超级版主 | 管理员

"&tbottom&"
" end if if lm=1 or lm="" then response.write""&ttop&"
  论坛联盟

" 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"" thebbslink2=thebbslink2&"" 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"
"&showlink&""&showlink&"

"&tbottom&"

普通版面   会员版面   只读版面   认证版面   Vip版面
" end if call down %>