<%if request("bid")="" then response.write "没有指定版号" response.end end if%>

[网络协会讨论区]

<%sql = "select * from bbstype where bid="&request("bid") set rs=conn.execute(sql)%>

">发表新帖|<%if rs("btype")=0 then%>">全部帖子|&show=open">未结帖子|&show=close">已结帖子|">本版专家榜|专家总榜|<%end if%>&show=best">本版精华|搜索|">审核|帮助

<% rs.close set rs=nothing %>
<%=rs("bname")%>  
版主:<%master_1=split(rs("master"), "|") for i = 0 to ubound(master_1) if i>6 then master_2=master_2 else master_2=""+master_2+""+master_1(i)+" " end if next 'if i>3 then master_2=master_2 & "More..." response.write master_2 master_2=""%> 我要申请
<%'置顶主题 sql = "select top 5 * from bbs where ontop=true and bid="&request("bid") set rs=conn.execute(sql) do while not rs.eof%> <% rs.movenext loop rs.close set rs=nothing %>
"><%if len(rs("title"))>26 then%><%=left(rs("title"),26)%>...<%else%><%=rs("title")%><%end if%>["><%=rs("uid")%>]
  主题 作者 最后回复 更新时间
<% dim rs dim sql msg_per_page = 20 '定义每页显示记录条数 set rs = server.createobject("adodb.recordset") if request("show")="" then sql = "select bbs.id,bbs.bid,bbs.uid,bbs.title,bbs.rootid,bbs.child,bbs.lock,bbs.close,bbs.ontop,bbs.best,bbs.lasttime,bbs.lastpost,bbs.time,bbstype.bid from bbs,bbstype where bbs.bid=bbstype.bid and bbs.bid="&request("bid")&" and bbs.rootid=0 order by bbs.lasttime desc" elseif request("show")="open" then sql = "select bbs.id,bbs.bid,bbs.uid,bbs.title,bbs.rootid,bbs.child,bbs.lock,bbs.close,bbs.ontop,bbs.best,bbs.lasttime,bbs.lastpost,bbs.time,bbstype.bid from bbs,bbstype where bbs.bid=bbstype.bid and bbs.bid="&request("bid")&" and bbs.rootid=0 and bbs.close=0 order by bbs.lasttime desc" elseif request("show")="close" then sql = "select bbs.id,bbs.bid,bbs.uid,bbs.title,bbs.rootid,bbs.child,bbs.lock,bbs.close,bbs.ontop,bbs.best,bbs.lasttime,bbs.lastpost,bbs.time,bbstype.bid from bbs,bbstype where bbs.bid=bbstype.bid and bbs.bid="&request("bid")&" and bbs.rootid=0 and bbs.close=1 order by bbs.lasttime desc" else sql = "select bbs.id,bbs.bid,bbs.uid,bbs.title,bbs.rootid,bbs.child,bbs.lock,bbs.close,bbs.ontop,bbs.best,bbs.lasttime,bbs.lastpost,bbs.time,bbstype.bid from bbs,bbstype where bbs.bid=bbstype.bid and bbs.bid="&request("bid")&" and bbs.rootid=0 and bbs.best=1 order by bbs.lasttime desc" end if rs.cursorlocation = 3 '使用客户端游标,可以使效率提高 rs.pagesize = msg_per_page '定义分页记录集每页显示记录数 rs.open sql,conn,0,1 if err.number<>0 then '错误处理 response.write "数据库操作失败:" & err.description err.clear else if not (rs.eof and rs.bof) then '检测记录集是否为空 totalrec = RS.RecordCount 'totalrec:总记录条数 if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数 n = rs.recordcount\msg_per_page 'n:总页数 else n = rs.recordcount\msg_per_page+1 end if currentpage = request("page") 'currentpage:当前页 If currentpage <> "" then currentpage = cint(currentpage) if currentpage < 1 then currentpage = 1 end if if err.number <> 0 then err.clear currentpage = 1 end if else currentpage = 1 End if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then currentPage=1 end if rs.absolutepage = currentpage 'absolutepage:设置指针指向某页开头 rowcount = rs.pagesize 'pagesize:设置每一页的数据记录数 dim i dim k %> <% do while not rs.eof and rowcount>0 %> <%dim liuwei,listbg liuwei=liuwei+1 if liuwei mod 2=0 then listbg=listbg1 else listbg=listbg2 end if%>
<%if rs("close")=0 then%><%else%><%end if%> " title="<%=rs("title")%>"><%if len(rs("title"))>26 then%><%=left(rs("title"),26)%>...<%else%><%=rs("title")%><%end if%><%if rs("child")>20 then%>¤<%end if%><%if rs("best")=true then%><%end if%><%if rs("lock")=true then%><%end if%> <%=rs("child")%> "> <%=rs("uid")%> "> <%=rs("lastpost")%> <%=year(rs("lasttime"))%>-<%=month(rs("lasttime"))%>-<%=day(rs("lasttime"))%>
<% rowcount=rowcount-1 rs.movenext loop end if end if rs.close conn.close set rs=nothing set coon=nothing %>

<%call listPages()%>

 
<% sub listPages() if n <= 1 then exit sub %> >> <%if currentpage = 1 then%> 首页 <%else%> ?bid=<%=request("bid")%>&page=1&show=<%=request("show")%>"> 首页 ?bid=<%=request("bid")%>&page=<%=currentpage-1%>&show=<%=request("show")%>"> 前页 <%end if%> <%if currentpage = n then%> 后页 <%else%> ?bid=<%=request("bid")%>&page=<%=currentpage+1%>&show=<%=request("show")%>">下页 ?bid=<%=request("bid")%>&page=<%=n%>&show=<%=request("show")%>">末页 <%end if%> 总:<%=currentpage%>/<%=n%>页 <%=msg_per_page%>条/页 共:<%=totalrec%>条<%end sub%>