<% if xtxx<>"n" then set bbs1=myconn.execute("select * from bbsinfo") newuser=bbs1("newuser") regno=bbs1("usernum") tienoa=bbs1("bbsnum") tieno=bbs1("topicnum") mosttopic=bbs1("mosttopic") mostonline=bbs1("mostonline") todaynum=bbs1("todaynum") set bbs1=nothing response.write"

欢迎我们的新会员："&kbbs(newuser)&"注册会员："®no&"现在时间："&FormatDateTime(now+timeset/24,4)&"" response.write"

总帖数："&tienoa&"" response.write"话题数："&tieno&"最高日帖数："&mosttopic&"今日帖数："&todaynum&"

" end if if xtgg<>"n" then response.write"

	系统公告
	" set seegg=myconn.execute("select id,zhuti,riqi,bd from gonggao where bd=0 order by id") if seegg.eof then response.write"" else response.write"" do while not seegg.eof idgg=seegg("id") response.write" "&kbbs(seegg("zhuti"))&" " seegg.movenext loop response.write"" end if seegg.close set seegg=nothing response.write"

" end if if lgname="" then response.write"

	快捷登陆
	用户名：密码： Cookies：

" end if set bf=myconn.execute("select bdname,bn from bdinfo where key='0' order by bn") do while not bf.eof bbnn=bf("bn") response.write"" set asd=myconn.execute("select*from bdinfo where key<>'0' and key='"&bbnn&"'order by bn") do while not asd.eof gif="on" if asd("type")=1 then gif="member" if asd("type")=2 then gif="lock" if asd("type")=3 then gif="rz" response.write"" set tie=nothing asd.movenext Loop asd.Close set asd=nothing response.write"

"&bf("bdname")&"

"&asd("bdname")&"	" if asd("picurl")<>"" then response.write"" end if response.write"	" lastbbs=kbbs(asd("lastbbs")) if isnull(lastbbs) or lastbbs="" then response.write"本版面还没有帖子！" else lbs=split(lastbbs,"\|?\|") response.write"作者："&kbbs(lbs(0))&" 时间："&lbs(2)&" 主题： "&LeftTrue(kbbs(lbs(1)),20)&"" end if response.write"
"&asd("bdinfo")&"
" cc=1 set cb=myconn.execute("select name from admin where bd='"&asd("bn")&"'") if cb.eof or cb.bof then response.write"该版面还没有斑竹！" else response.write"版面斑竹：" do while not cb.eof response.write""&kbbs(cb("name"))&" \| " cc=cc+1 if cc>4 then exit do cb.movenext loop end if cb.Close set cb=nothing response.write"		总帖数："&asd("bbsnum")&" 今日帖数："&asd("tnum")&"

" bf.movenext Loop bf.Close set bf=nothing if zxtj<>"n" then %> <%response.write"

在线统计

"&_ "

目前论坛总共有 "&lineno&" 人在线。其中 "&usno&" 位会员， "&nusno&" 位游客。最高峰同时在线人数："&mostonline&"

" ni=1 ha=1 set useol=myconn.execute("select*from online order by ip") do while not useol.eof olna=useol("name") pic=useol("pic") if olna="" or isnull(olna) then iiii="

游客" else iiii="

"&kbbs(olna)&"" end if response.write"" ha=ha+1 ni=ni+1 if ha>5 then ha=1 response.write"" end if if ni>lineno then exit do useol.movenext Loop useol.Close set useol=nothing set usno=nothing set lineno=nothing response.write"

"&iiii&"

在线名单图例：管理员版主论坛会员游客

" end if if ltlm<>"n" and lmbbs<>0 then%><%end if response.write"

普通论坛

会员论坛

只读论坛

认证论坛

"%>