<% 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"" 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"
普通论坛  会员论坛  只读论坛  认证论坛

"%>