<!--#include file="../conn.asp"-->
<!-- #include file="../admin/check_master.asp" -->
<!--#include file="../admin/dhfun.asp" -->
<%
BBS_Cate_Name=trim(request.form("BBS_Cate_Name"))
BBS_Cate_Manager_Name=trim(request.form("BBS_Cate_Manager_Name"))
BBS_Cate_Manager_Email=trim(request.form("BBS_Cate_Manager_Email"))
BBS_Cate_Note=trim(request.form("BBS_Cate_Note"))
fangwenqs=trim(request.form("fangwenqs"))
treesign=trim(request.form("tree"))
menu=trim(request.form("menu"))

if BBS_Cate_Name="" then
	response.write "<BR><BR><center>请输入论坛名称！</center>"
	response.end
end if
BBS_Cate_PID=request.form("BBS_Cate_PID")
Layer=request.form("Layer")

if instr(BBS_Cate_Manager_Name,"|")>0 then
   bzarr=split(BBS_Cate_Manager_Name,"|",-1,1)
   for k=0 to UBound(bzarr)
       sql="select top 1 clubuser_name from clubuser where clubuser_name='"&bzarr(k)&"'"
       set rs=server.createobject("adodb.recordset")
       rs.open sql,conn,1,1
	   if not rs.eof then
       conn.execute("update clubuser set bbsadmin=1 where clubuser_name='"&bzarr(k)&"'")
       else
	   response.write "<BR><BR><center>你所加入的版主中的用户名不存在！</center>"
	   response.end
	   end if
   next
   rs.close
else
  conn.execute("update clubuser set bbsadmin=1 where clubuser_name='"&BBS_Cate_Manager_Name&"'")
end if

strsql="select top 1 * from BBS_CATE where BBS_Cate_PID='"&BBS_Cate_PID&"' order by BBS_ID desc"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,1
if rs.eof and rs.bof then'没有相同类别的数据，初始化开始值
    if Layer<>0 then
		BBS_Cate_ID=BBS_Cate_PID&"_1"
	else
		BBS_Cate_ID="A_1"
	end if
else
BBS_Cate_ID=rs("BBS_Cate_ID")'编号

'后缀
	str_in=InstrRev(BBS_Cate_ID,"_")'搜索字符_出现的位置
	str_2=mid(BBS_Cate_ID,str_in+1)'提取字符_后的所有字符
	str_2=str_2+1
'前缀
	str_1_1=InstrRev(BBS_Cate_ID,"_")-1
	str_1=left(BBS_Cate_ID,str_1_1)
	BBS_Cate_ID=str_1&"_"&str_2'编号
end if

rs.close

sql="select * from BBS_CATE where (BBS_ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("BBS_Cate_ID")=BBS_Cate_ID
rs("BBS_Cate_PID")=BBS_Cate_PID
rs("BBS_Cate_Name")=BBS_Cate_Name
rs("BBS_Cate_Topic")=0
rs("BBS_Cate_Reply")=0
rs("BBS_Cate_Manager_Name")=BBS_Cate_Manager_Name
rs("BBS_Cate_Manager_Email")=BBS_Cate_Manager_Email
rs("BBS_Cate_Note")=BBS_Cate_Note
rs("BBS_Cate_Qs")=fangwenqs
rs("treesign")=treesign
if menu<>"" then
rs("BBS_Cate_Board")=menu
end if
rs.update
maketodh
makeftbbstree
closedb
response.redirect request.servervariables("http_referer")
%>
