<!--#include file="../admin/check_master.asp" -->
<!-- #include file="../inc/conn.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"))

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")

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.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect request.servervariables("http_referer")
%>
