<!--#include file="admin_start.asp"-->
<%
dim object_id
dim qu
dim grade
dim show
dim i_s

object_id=trim(request("id"))

if not MySys.check.isInteger(object_id) then
MySys.error.info="请选择您要设置的栏目！"
MySys.error.location="back"
MySys.error.err()
end if

if (request.form("object_grade_radio_1")="" and request.form("object_grade_checkbox_1")="") or request.form("object_grade_0")="" then
MySys.error.info="请正确设置栏目权限！"
MySys.error.location="back"
MySys.error.err()
end if

select case request.form("object_grade_0")
case ">="
grade=request.form("object_grade_0")&"|"&int(request.form("object_grade_radio_1"))
case "<="
grade=request.form("object_grade_0")&"|"&int(request.form("object_grade_radio_1"))
case "="
grade=request.form("object_grade_0")&"|"&request.form("object_grade_checkbox_1")
end select

'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
rs.open "select * from sys_object_list where object_id ="&object_id&" ",conn,1,3
rs("object_description")=request.form("object_description")
rs("object_admin_grade")=grade&"|"&split(rs("object_admin_grade"),"|")(2)
rs.update
rs.close

MySys.error.info="后台栏目权限设置成功！"
MySys.error.location="javascript:window.close();"
MySys.error.suc()
%>
<!--#include file="admin_end.asp"-->