<%
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")
Rs.close
%>
<%
else
end if
if PermissionManage=0 and BestRole<>1 then error("您的权限不够")
select case Request("menu")
case "Fix"
allarticle=Conn.execute("Select count(ThreadID) from [BBSXP_Threads] where IsDel=0 and ForumID="&ForumID&"")(0)
if allarticle>0 then
allrearticle=Conn.execute("Select sum(TotalReplies) from [BBSXP_Threads] where IsDel=0 and ForumID="&ForumID&"")(0)
else
allrearticle=0
end if
Conn.execute("update [BBSXP_Forums] set TotalThreads="&allarticle&",TotalPosts="&allarticle+allrearticle&" where ForumID="&ForumID&"")
UpForumMostRecent(ForumID)
succeed "修复论坛统计数据成功",""
case "ForumDataUp"
ForumName=HTMLEncode(Request.Form("ForumName"))
TotalCategorys=HTMLEncode(Request.Form("TotalCategorys"))
Moderated=HTMLEncode(Request.Form("Moderated"))
ForumDescription=HTMLEncode(Request.Form("ForumDescription"))
ForumRules=HTMLEncode(Request.Form("ForumRules"))
if ForumName="" then error("请输入论坛名称")
if Len(ForumName)>30 then error("论坛名称不能大于 30 个字符")
if Len(ForumDescription)>255 then error("论坛简介不能大于 255 个字符")
master=split(""&Moderated&"","|")
for i = 0 to ubound(master)
If Conn.Execute("Select UserID From [BBSXP_Users] where UserName='"&master(i)&"'" ).eof and master(i)<>"" Then error(""&master(i)&"的用户资料不存在")
next
sql="select * from [BBSXP_Forums] where ForumID="&ForumID&""
Rs.Open sql,Conn,1,3
Rs("ForumName")=ForumName
if BestRole=1 then Rs("Moderated")=Moderated
Rs("TotalCategorys")=TotalCategorys
Rs("ForumDescription")=ForumDescription
Rs("ForumRules")=ForumRules
Rs.update
Rs.close
Log("更新论坛（ID:"&ForumID&"）的信息！")
Message="更新成功！返回论坛"
succeed Message,"ShowForum.asp?ForumID="&ForumID&""
end select
sql="select * from [BBSXP_Forums] where ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
ForumDescription=replace(""&Rs("ForumDescription")&"","
",vbCrlf)
ForumRules=replace(""&Rs("ForumRules")&"","
",vbCrlf)
%>
| 论坛信息 |
| 今日帖：<%=Rs("TodayPosts")%> |
| 主题数：<%=Rs("TotalThreads")%> |
| 帖子数：<%=Rs("TotalPosts")%> |
| 管理选项 |
| 主题管理 |
| 主题审核 |
| 回 收 站 |
| 修复论坛统计数据 |
|
|
<%
Rs.close
HtmlBottom
%>