<!-- #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
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

%>
<b>添加分类</b>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
	<td>
		<table width="100%" 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_CHK_TempStr = ""
						If Request.Form("submitflag")="LKOkxk2" Then
							GBL_AssortID = Left(Trim(Request.Form("Form_AssortID")),14)
							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 InsertForumAssort = 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
								End If
							End If
						Else
							DisplayJoinForm
						End If%>
					</td>
				</tr>
				</table>
			</td>
		</tr>
		</table>
	</td>
</tr>
</table>
<%

End Function

Function DisplayJoinForm%>

	<br>
	<form action=ForumCategoryJoin.asp method=post name=form1 id=form1>
	预定分类ID号:<input name=Form_AssortID value="<%=htmlencode(GBL_AssortID)%>" class=fminpt><br>
	<input name=submitflag type=hidden value="LKOkxk2">
	预定分类名称:<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%>