<% if CookieUserName=empty then error("您还未登录论坛") if Request.ServerVariables("Request_method") <> "POST" then response.write "

" Response.End end if HtmlTop PostID=RequestInt("PostID") ThreadID=RequestInt("ThreadID") sql="Select * From [BBSXP_Threads] where ThreadID="&ThreadID&"" Rs.Open sql,Conn,1 if Rs.eof then error"

系统不存在该帖子的资料" ForumID=Rs("ForumID") PostsTableName=Rs("PostsTableName") PostAuthor=Rs("PostAuthor") ThreadID=Rs("ThreadID") TotalReplies=Rs("TotalReplies") Topic=Rs("Topic") Rs.close Moderated=Conn.Execute("Select Moderated From [BBSXP_Forums] where ForumID="&ForumID&" ")(0) %> <% if PermissionManage=0 then error("您的权限不够") select case Request("menu") case "Top" if BestRole = 1 then Conn.execute("update [BBSXP_Threads] set ThreadTop=2 where ThreadID="&ThreadID&"") succtitle="公告主题成功" else error("您的权限不够") end if case "UnTop" if BestRole = 1 then Conn.execute("update [BBSXP_Threads] set ThreadTop=0 where ThreadID="&ThreadID&"") succtitle="取消公告主题成功" else error("您的权限不够") end if case "Fix" TotalCount=conn.Execute("Select count(PostID) From [BBSXP_Posts"&PostsTableName&"] where ThreadID="&ThreadID&"")(0) Conn.execute("update [BBSXP_Threads] set TotalReplies="&TotalCount&"-1 where ThreadID="&ThreadID&"") succtitle="修复主题成功" case "MoveNew" Conn.execute("update [BBSXP_Threads] set lasttime="&SqlNowString&" where ThreadID="&ThreadID&"") succtitle="拉前主题成功" case "Move" AimForumID=RequestInt("AimForumID") if AimForumID=0 then error("您没有选择要将主题移动哪个论坛") Conn.execute("update [BBSXP_Threads] set ForumID="&AimForumID&",ThreadTop=0,IsGood=0,IsLocked=0 where ThreadID="&ThreadID&"") succtitle="移动主题成功" case "IsGood" if Conn.Execute("Select IsGood From [BBSXP_Threads] where ThreadID="&ThreadID&" ")(0)=1 then error("此帖子已经加入精华区了，无需重复添加") Conn.execute("update [BBSXP_Threads] set IsGood=1 where ThreadID="&ThreadID&"") Conn.execute("update [BBSXP_Users] set UserMoney=UserMoney+"&SiteConfig("IntegralAddValuedPost")&",experience=experience+"&SiteConfig("IntegralAddValuedPost")&" where UserName='"&PostAuthor&"'") succtitle="加为精华主题成功" case "DelIsGood" if Conn.Execute("Select IsGood From [BBSXP_Threads] where ThreadID="&ThreadID&" ")(0)=0 then error("此帖子已经移出精华区了") Conn.execute("update [BBSXP_Threads] set IsGood=0 where ThreadID="&ThreadID&"") Conn.execute("update [BBSXP_Users] set UserMoney=UserMoney+"&SiteConfig("IntegralDeleteValuedPost")&",experience=experience+"&SiteConfig("IntegralDeleteValuedPost")&" where UserName='"&PostAuthor&"'") succtitle="取消精华主题成功" case "ThreadTop" Conn.execute("update [BBSXP_Threads] set ThreadTop=1 where ThreadID="&ThreadID&"") succtitle="置顶主题成功" case "DelTop" Conn.execute("update [BBSXP_Threads] set ThreadTop=0 where ThreadID="&ThreadID&"") succtitle="取消置顶主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "IsLocked" Conn.execute("update [BBSXP_Threads] set IsLocked=1 where ThreadID="&ThreadID&"") succtitle="锁定主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "DelIsLocked" Conn.execute("update [BBSXP_Threads] set IsLocked=0 where ThreadID="&ThreadID&"") succtitle="解锁主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' end select if succtitle="" then error("无效指令") UpForumMostRecent(ForumID) Log(""&succtitle&"，标题："&Topic&"，主题ID："&ThreadID&"") Message="

"&succtitle&"

返回论坛

" succeed Message,"ShowForum.asp?ForumID="&ForumID&"" %>