论坛消息广播: <% sql="select top 1 title,dateandtime from announce where boardid=0 order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write "当前没有公告 ( "&now()&" )" else response.write ""&rs("title")&" ( "&rs("dateandtime")&" )" end if rs.close%>

状态

论坛名称

版主

主题

帖子

最后发表

收藏

<% sql="select board.boardid,board.boardtype,board.lastreplytime,board.lastreplyuser,board.logo,board.topiccount,board.count,board.boardtitle,board.boardintro,board.boardmaster,class.classid,class.classname from board,class where class.classid=board.classid order by board.classid,board.boardid" rs.open sql,conn,1,1 do while not rs.eof response.write " " if classname<>rs("classname") then response.write "" classname=rs("classname") end if response.write " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ "

≡ "&rs("classname")&" ≡
	→『"&rs("boardtitle")&"』←" if rs("boardtype")=2 then Response.Write "    [正规论坛]" Response.Write " " if rs("logo")<>"" then response.write "" response.write rs("boardintro")&"	" if rs("boardmaster")<>"" then masterarr=split(rs("boardmaster"),"|") for i=0 to ubound(masterarr) response.write ""&masterarr(i)&"" if ubound(masterarr)>i then response.write " " next else response.write "就等你来当" end if response.write "	"&rs("topiccount")&"	"&rs("count")&"	最后发表："&rs("lastreplyuser")&" "&rs("lastreplytime")&"

"&_ rs.movenext loop rs.close %>

在线用户名单 [在线用户] [所有用户]]

<% if Request.Cookies("bookbaby")("username")<>"" then set rs=conn.execute("select username from online where username='"&Request.Cookies("bookbaby")("username")&"'") if rs.eof then conn.execute("insert into online(username,sex,stat,lasttime) values ('"&Request.Cookies("bookbaby")("username")&"',"&Request.Cookies("bookbaby")("usersex")&",'首页','"&now()&"')") end if set rs=nothing else conn.execute("delete * from online where datediff('n',lasttime,now())>20") end if sql="select count(sex) from online" set rs=conn.execute (sql) response.write "目前论坛总共在线注册用户为 "&rs(0)&" 人.不包括客人。   --==>  代表帅哥   代表靓妹 " rs.close sql="select username,sex,stat from online" set rs=conn.execute (sql) do while not rs.eof i=i+1 response.write " " if rs("username")=Request.Cookies("bookbaby")("username") then response.write ""&rs("username")&"" else response.write rs("username") end if response.write "  " rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %>

论坛图例	所有时间均为 - 北京时间
开放论坛无新贴　　　开放论坛有新贴　　　正规论坛无新贴　　　正规论坛有新贴