<% HtmlTop if CookieUserName=empty then error("您还未登录论坛") ForumID=RequestInt("ForumID") if ForumID>0 then sql="select * from [BBSXP_Forums] where ForumID="&ForumID&"" Set Rs=Conn.Execute(sql) ParentID=Rs("ParentID") GroupID=Rs("GroupID") ForumName=Rs("ForumName") Moderated=Rs("Moderated") TotalCategorys=Rs("TotalCategorys") Rs.close ForumSql=" and ForumID="&ForumID ForumListStr=" → "&ForumTreeList&" "&ForumName&"" filtrate=split(""&TotalCategorys&"","|") for i = 0 to ubound(filtrate) TotalCategorysOptionList=TotalCategorysOptionList&"" next %><% if PermissionManage=0 then error("您的权限不够") elseif BestRole=1 then ForumSql="" ForumListStr="" else error("你的权限不够！") end if if Request.ServerVariables("Request_method") = "POST" then select case Request.Form("Item") case "BatchDel" IsDel=Request.Form("IsDel") for each ho in Request.Form("ThreadID") ho=int(ho) Conn.execute("update [BBSXP_Threads] set IsDel="&IsDel&",lasttime="&SqlNowString&",lastname='"&CookieUserName&"' where ThreadID="&ho&ForumSql&"") next succtitle="批量删除，主题ID："&Request.Form("ThreadID")&"" case "BatchApproved" IsApproved=Request.Form("IsApproved") for each ho in Request.Form("ThreadID") ho=int(ho) Conn.execute("update [BBSXP_Threads] set IsApproved="&IsApproved&",lasttime="&SqlNowString&",lastname='"&CookieUserName&"' where ThreadID="&ho&ForumSql&"") next succtitle="批量审核，主题ID："&Request.Form("ThreadID")&"" case "BatchGOOD" IsGooD=Request.Form("IsGooD") for each ho in Request.Form("ThreadID") ho=int(ho) Conn.execute("update [BBSXP_Threads] set IsGooD="&IsGooD&",lasttime="&SqlNowString&" where ThreadID="&ho&ForumSql&"") next succtitle="批量精华，主题ID："&Request.Form("ThreadID")&"" case "BatchLocked" IsLocked=Request.Form("IsLocked") for each ho in Request.Form("ThreadID") ho=int(ho) Conn.execute("update [BBSXP_Threads] set IsLocked="&IsLocked&",lasttime="&SqlNowString&" where ThreadID="&ho&ForumSql&"") next succtitle="批量锁定，主题ID："&Request.Form("ThreadID")&"" case "BatchCategory" Category=HTMLEncode(Request.Form("Category")) for each ho in Request.Form("ThreadID") ho=int(ho) Conn.execute("update [BBSXP_Threads] set Category='"&Category&"',lasttime="&SqlNowString&" where ThreadID="&ho&ForumSql&"") next succtitle="批量类别，主题ID："&Request.Form("ThreadID")&"" case "BatchMoveTopic" AimForumID=RequestInt("AimForumID") if AimForumID=0 then error("您没有选择要将主题移动到哪个论坛") for each ho in Request.Form("ThreadID") ho=int(ho) Conn.execute("update [BBSXP_Threads] set ForumID="&AimForumID&",ThreadTop=0,IsGood=0,IsLocked=0 where ThreadID="&ho&ForumSql&"") next succtitle="批量移动，主题ID："&Request.Form("ThreadID")&"" case "ClearRecycle" if BestRole <> 1 then error("您的权限不够") TimeLimit=RequestInt("TimeLimit") if TimeLimit < 1 then error("只能清空24小时之前的文章") Conn.execute("Delete from [BBSXP_Threads] where IsDel=1 and lasttime<"&SqlNowString&"-"&TimeLimit&"") succtitle="清空回收站内 "&TimeLimit&" 天以前的主题！" end select if succtitle="" then error("无效指令") if ForumID>0 then UpForumMostRecent(ForumID) Log(""&succtitle&"") succeed succtitle,"" end if if Request("menu")="Censorship" then sql="[BBSXP_Threads] where IsApproved=0 and IsDel=0"&ForumSql&"" ForumTitle="主题审核" elseif Request("menu")="Recycle" then sql="[BBSXP_Threads] where IsDel=1"&ForumSql&"" ForumTitle="回收站" else sql="[BBSXP_Threads] where IsApproved=1 and IsDel=0"&ForumSql&"" ForumTitle="主题管理" end if %>

<%ClubTree%><%=ForumListStr%> → &ForumID=<%=ForumID%>&checkbox=1"><%=ForumTitle%>

<% TotalCount=conn.Execute("Select count(ThreadID) From "&sql&" ")(0) '获取数据数量 PageSetup=SiteConfig("ThreadsPerPage") '设定每页的显示数量 TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数 PageCount = RequestInt("PageIndex") '获取当前页 if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage sql="select * from "&sql&" order by lasttime Desc" if PageCount<11 then Set Rs=Conn.Execute(sql) else rs.Open sql,Conn,1 end if if TotalPage>1 then RS.Move (PageCount-1) * pagesetup i=0 Do While Not RS.EOF and i

主题
标题	作者	回复	查看	最后更新
全选

<%if Request("menu")="Recycle" and BestRole = 1 then%> <%end if%>

<%ShowPage()%>

清空天以前删除的主题

<% HtmlBottom %>