<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_Popfun.asp -->
<!-- #include file=../inc/bbsmanage_Fun.asp -->
<!-- #include file=inc/ForumCategory_fun.asp -->
<%
DEF_BBS_HomeUrl = "../../"
Dim GBL_ID,GBL_ModifyID
initDatabase
GBL_CHK_TempStr = ""
GBL_ID = checkSupervisorPass

SiteHead(DEF_SiteNameString & " - 管理员")

UserTopicTopInfo
DisplayUserNavigate("修改社区分类")%>
<br><br><%If GBL_CHK_Flag=1 Then
	LoginAccuessFul
Else%>
	<table width=96%>
	<tr>
	<td>
	<%
	If Request("submitflag")="" Then
		Response.Write "<br><b>请先登录</b>"
	Else
		Response.Write "<br><p align=left><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>"
	End If
	DisplayLoginForm
	Response.Write "</p>"%>
	</td>
	</tr>
	</table>
<%End If
UserTopicBottomInfo
closeDataBase
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function LoginAccuessFul

	%>
	&nbsp;&nbsp; <b>修改分类</b>
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
	<tr>
		<td>
			<table width="96%" border="0" cellspacing="0" cellpadding="1" bgcolor="<%=DEF_BBS_LightColor%>" class=TBBG1 align=right>
			<tr>
				<td>
					<table width="100%" border="0" cellspacing="1" cellpadding="15">
					<tr bgcolor="<%=DEF_BBS_LightestColor%>" class=TBBG9>
					<td>
			<%
	GBL_ModifyID = Left(Request("GBL_ModifyID"),14)
	If isNumeric(GBL_ModifyID)=0 Then GBL_ModifyID=0
	GBL_ModifyID = cCur(GBL_ModifyID)
	If GetForumAssortData(GBL_MODIFYID) <> 0 Then
		GBL_AssortID = GBL_GetData(0,0)
		GBL_AssortName = GBL_GetData(1,0)
		GBL_AssortMaster = GBL_GetData(2,0)
		GBL_CHK_TempStr = ""
		If Request.Form("submitflag")="LKOkxk2" Then
			GBL_AssortID = Trim(Request.Form("Form_AssortID"))
			GBL_AssortName = Trim(Request.Form("Form_AssortName"))
				GBL_AssortMaster = Trim(Request.Form("GBL_AssortMaster"))
			If CheckFormForumCateGoryData=0 Then
				Response.Write "<font color=ff0000 class=RedFont><b>数据不能通过：" & GBL_CHK_TempStr & "</b></font><br>" & VbCrLf
				DisplayJoinForm
			Else
				If UpdateForumAssort = 0 Then
					Response.Write "<font color=ff0000 class=RedFont><b>修改出错：" & GBL_CHK_TempStr & "</b></font><br>" & VbCrLf
					DisplayJoinForm
				Else
					Response.Write "<font color=008800 class=GreenFont><b>修改成功!</b></font><br>" & VbCrLf
					ReloadBoardListData
				End If
			End If
		Else
			DisplayJoinForm
		End If
	Else
		Response.Write "<font color=ff0000 class=RedFont><b>错误，未选择要修改的分类。</b></font><br>" & VbCrLf
	End If%>
						</td>
					</tr>
					</table>
				</td>
			</tr>
			</table>
		</td>
	</tr>
	</table>
	<%

End Function

Function DisplayJoinForm%>

	<br>
	<form action=ForumCategoryModify.asp method=post>
		预定分类ID号:<input name=Form_AssortID value="<%=htmlencode(GBL_AssortID)%>" class=fminpt><br>
		<input name=submitflag type=hidden value="LKOkxk2">
		<input name=GBL_ModifyID type=hidden value="<%=htmlencode(GBL_ModifyID)%>" class=fminpt>
		预定分类名称:<input name=Form_AssortName value="<%=htmlencode(GBL_AssortName)%>" class=fminpt><br>
		分类版主名单:<input name=GBL_AssortMaster value="<%=htmlencode(GBL_AssortMaster)%>" class=fminpt>(逗号分隔,全体版主填写<span style="cursor:hand" onclick="document.form1.GBL_AssortMaster.value='?LeadBBS?';">?LeadBBS?</span>)
		<br><br>
		<input type=submit value="提交" class=fmbtn> <input type=reset value="取消" class=fmbtn></form>

<%End Function%>