<% dim totalrec dim n dim orders,ordername dim currentpage,page_count,Pcount currentPage=request("page") if not founduser then Errmsg="您还没有登陆，请登陆后浏览" founderr=true end if orders=request("s") if orders="" or not isInteger(orders) then orders=1 else orders=clng(orders) end if if orders=1 then ordername="我参与的主题" sql="select top 200 * from topic where topicid in (select top 200 rootid from "&NowUseBBS&" where postuserid="&userid&" order by announceid desc) order by topicid desc" elseif orders=2 then sql="select top 200 topicID,boardID,postUserName,child,title,DateAndTime,hits,Expression,locktopic,istop,isbest,isvote from topic where postuserid="&userid&" and child>0 ORDER BY topicid desc" ordername="已被回复的我的发言" else ordername="我参与的主题" sql="select top 200 * from topic where topicid in (select top 200 rootid from "&NowUseBBS&" where postuserid="&userid&" order by announceid desc) order by topicid desc" end if if currentpage="" or not isInteger(currentpage) then currentpage=1 else currentpage=clng(currentpage) end if stats=ordername if founderr then call nav() call head_var(2,0,"","") else call nav() call head_var(2,0,"","") call AnnounceList1() call listPages3() end if call activeonline() call footer() sub AnnounceList1() set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then call showEmptyBoard1() else rs.PageSize = Forum_Setting(11) rs.AbsolutePage=currentpage page_count=0 totalrec=rs.recordcount call showpagelist1() end if end sub REM 显示贴子列表 sub showPageList1() i=0 response.write "

当前论坛数据很可能进行了分表保存数据
当前仅显示您在当前数据表中最前200帖，如果您需要查询更多数据请到搜索页面

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" dim Ers, Eusername, Edateandtime,body dim vrs,votenum,pnum,p,iu,votenum_1 while (not rs.eof) and (not page_count = rs.PageSize) boardid=rs("boardid") response.write ""&_ ""&_ ""&_ ""&_ "" page_count = page_count + 1 rs.movenext wend response.write "

状态	主题 (点即可展开贴子列表)	作者	回复/人气	最后更新 \| 回复人
" if rs("istop")<>1 and lockboard<>1 and rs("locktopic")<>1 and rs("isvote")<>1 and rs("isbest")<>1 and rs("child")<10 then response.write "" elseif rs("isvote")=1 then response.write "" elseif rs("istop")=1 then response.write "" elseif rs("isbest")=1 then response.write "" elseif rs("child")>=10 then response.write "" elseif rs("locktopic")=1 then response.write "" elseif lockboard=1 then response.write "" else response.write "" end if response.write "	" response.write "" response.write "" if len(rs("title"))>26 then response.write ""&left(htmlencode(rs("title")),26)&"..." else response.write htmlencode(rs("title")) end if response.write "" if (rs("child")+1)>cint(Forum_Setting(11)) then response.write " [分页：" Pnum=(Cint(rs("child")+1)/cint(Forum_Setting(11)))+1 for p=1 to Pnum response.write " "&p&" " next response.write "]" end if response.write "	"& rs("postusername") &"	" response.write ""& rs("child") &"/"& rs("hits") &"" response.write "	" response.write " "&_ FormatDateTime(rs("dateandtime"),2)&" "&FormatDateTime(rs("dateandtime"),4)&_ " \| ------" response.write "

" end sub sub listPages3() dim endpage Pcount=rs.PageCount response.write ""&_ ""&_ "

"&_ "页次："¤tpage&"/"&Pcount&"页"&_ "每页"&Forum_Setting(11)&" 贴数"&totalrec&"

分页： " if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if response.write "

" rs.close set rs=nothing end sub sub showEmptyBoard1() %>

状态	主题 (点心情符为开新窗浏览)	作者	回复/人气	最新回复
暂无内容，欢迎发贴：）

<% end sub %>