<%=bbsinfo("bbsname")%>

最新帖子

作者 | 标题 | 所属栏目 | 人气 | 发帖时间

<%set u4=conn.execute("select top 5 * from book where type=0 order by id desc") if u4.eof and u4.bof then response.write"
暂时没有帖子！
" else %> <%do while not u4.eof%>
><%=u4("username")%> | &name=最新帖子><%=left(u4("title"),20)%> | <%set u5=conn.execute("select * from board where bid="&u4("bid")&" ")%><%do while not u5.eof%> ><%=u5("bidname")%> <%u5.movenext loop u5.Close set u5=nothing %> | <%=u4("reply")%>/<%=u4("hits")%> | <%=u4("ldate")%>
<%u4.movenext loop u4.Close set u4=nothing end if %>

<% set rs=server.createobject("adodb.recordset") sqlstr="select * from board order by px" rs.open sqlstr,conn,1,1 %>

<% if rs.eof then response.write"
暂时没有版面
" else do while not rs.eof %>

width="48" height="57">
<%if rs("lock")=1 then%><%else%><%end if%>

>↘ <%=rs("bidname")%> ↙

<%bid=rs("bid") Set tt = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM book where type=0 and bid="&bid&"" tt.open sql, conn, 1, 3 topic=tt.recordcount Set tt1 = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM book where bid="&bid&"" tt1.open sql, conn, 1, 3 post=tt1.recordcount Set tt2 = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM book Where DateDiff('d',wdate,Date())=0 and bid="&bid&" " tt2.open sql, conn, 1, 3 today=tt2.recordcount %>
<%=today%> | <%=topic%> | <%=post%>

<%=rs("bidinfo")%>
<% set u1=conn.execute("select * from member where manbid="&rs("bid")&" ") if u1.eof and u1.bof then response.write"本版诚聘斑竹！" else%> 斑竹:<%do while not u1.eof%> [><%=u1("username")%>] <% u1.movenext loop end if u1.Close set u1=nothing%>

<%set u3=conn.execute("select top 1 * from book where bid="&rs("bid")&" and type=0 order by id desc") %>

<%if u3.eof and u3.bof then response.write"
本版面还没有帖子！
" else %>
新帖： | &bid=<%=rs("bid")%>&name=<%=rs("bidname")%>><%=left(u3("title"),20)%>
作者： | ><%=left(u3("username"),20)%>
时间： | <%=u3("ldate")%>
人气： | <%=u3("reply")%>/<%=u3("hits")%><%end if u3.close set u3=nothing%>

<%rs.movenext loop rs.Close set rs=nothing end if %>

<%riqi=now+timeset/24 ip=request.servervariables("remote_addr") pic=1 name=Request.Cookies("esung")("username") set jilu=conn.execute("select ip from online where ip='"&ip&"'") if jilu.eof then conn.execute("insert into online (ip,ltime,pic)VALUES('"&ip&"','"&riqi&"',"&pic&")") else conn.execute("update online set ltime='"&riqi&"' where ip='"&ip&"'") end if set jilu=nothing if name<>"" then set ujilu=conn.execute("select name from online where name='"&name&"'") if ujilu.eof then conn.execute("delete*from online where ip='"&ip&"'") conn.execute("insert into online (name,ltime,pic)VALUES('"&name&"','"&riqi&"',"&pic&")") else conn.execute("update online set ltime='"&riqi&"' where name='"&name&"'") end if set ujilu=nothing end if mostonline=conn.execute("select mostonline from info")(0) mosttime=conn.execute("select mosttime from info")(0) usno=conn.execute("Select count(ltime)from online where name<>''")(0) lineno=conn.execute("Select count(ltime)from online")(0) if int(lineno)>int(mostonline) then conn.execute("update info set mostonline="&lineno&",mosttime='"&now&"'") mostonline=lineno end if nusno=lineno-usno %>

在线列表 [查看在线用户位置]
目前在线<%=lineno%>人 | 注册会员<%=usno%>人 | 游客<%=nusno%>人 | 最高在线<%=mostonline%>人 | 发生于：<%=mosttime%>

名单图例
管理员 ‖ 超级版主 ‖ 版主 ‖ 贵宾 ‖ 注册用户 ‖ 未登录用户

友情连接 [交换友情连接]

没有新的帖子 | 有新的帖子 | 被锁定的栏目

<% if Request.Cookies("esung")("pic")="" then %>

<%else%>

" width="90" height="90">

<%end if%>

<% if Request.Cookies("esung")("username")="" then %>
用户名 |
密 码 |
有效期 |
找回密码

<%else%> 欢迎你,<%=Request.Cookies("esung")("username")%> <%end if%>

| 社区统计

<% Set rs_set = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM member order by id desc" rs_set.open sql, conn, 1,1 totalrecord=rs_set.recordcount %>

最新加入会员：<%if rs_set.eof then%>没有会员<%else%>><%=rs_set("username")%><%end if%>
共有注册会员： | <%=totalrecord%>位
主题总数： <%Set jj_set = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM book where type=0" jj_set.open sql, conn, 1,1 zz=jj_set.recordcount response.write zz jj_set.close set jj_set=nothing %> | 回帖总数： <%Set jj1_set = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM book where type<>0" jj1_set.open sql, conn, 1,1 zz1=jj1_set.recordcount response.write zz1 jj1_set.close set jj1_set=nothing %>

名次 | 主题 | 状态 | 人气

<% set u2=conn.execute("select top 10 * from book where type=0 order by hits desc") if u2.eof and u2.bof then response.write"
暂时没有帖子
" else number=1 do while not u2.eof and not u2.bof %>

#ffffff <%else%>#f7f7f7<%end if%>>

<%=number%> | &bid=<%=u2("bid")%>&name=超人气贴><%=left(u2("title"),8)%> |  | <%=u2("hits")%>%

<% number=number+1 u2.movenext loop u2.Close set u2=nothing end if %>

名次 | 狂人者 | 状态 | 人气

<% sql="select top 10 * from member order by rq desc" set rsrq= Server.CreateObject("ADODB.RecordSet") rsrq.Open sql, Conn, 2, 3 c=1 do while not rsrq.eof and not rsrq.bof%>

#ffffff <%else%>DCF1FF<%end if%>>

<%=c%> | ><%=rsrq("username")%> |  | <%=rsrq("rq")%>

<% c=c+1 rsrq.movenext loop rsrq.close set rsrq=nothing %>