<!--#include file="admin_start.asp"-->
<%
dim id
dim ids
dim grade

id=request("id")
ids=request("ids")
ids=replace(ids," ","")

if not MySys.check.isInteger(id) and request("action")="edit" then
MySys.error.info="请选择您要操作的项目！"
MySys.error.location="back"
MySys.error.err()
end if

select case request("action")
case "delete"
	if ids="" then
		MySys.error.info="请选择你要删除的用户类型！"
		MySys.error.location="back"
		MySys.error.err()
	else
	
	    set rs_t=conn.execute("select sort_grade from sys_admin_sort where sort_id ="&ids&" ")
		if rs_t.eof then
			MySys.error.info="你要删除的用户类型不存在！"
			MySys.error.location="back"
			MySys.error.err()
		end if
		
		if rs_t("sort_grade")>=MySys.admin_grade then
			MySys.error.info="您不能删除权限不低于您的用户类型！"
			MySys.error.location="back"
			MySys.error.err()
		end if
		
	    set rs_t=nothing
		
		conn.execute("delete from sys_admin_sort where sort_id ="&ids&" ")
	    conn.execute("delete from sys_admin_list where sort_id ="&ids&" ")

		MySys.error.info="删除用户类型成功！"
		MySys.error.location="back"
		MySys.error.suc()
	end if
	
case else

	if request("action")="add" then
	    sql="select * from sys_admin_sort "
	else
	    sql="select * from sys_admin_sort  where sort_id="&id&""
	end if
	
	rs.open sql,conn,1,3
	
	'/////////////////////////////////////////////检测
	
	if request("action")="edit" and rs.eof then
		MySys.error.info="您选择的项目不存在！"
		MySys.error.location="back"
		MySys.error.err()
	end if
	
	if request("sort_description")="" or request.form("sort_open")="" or request.form("sort_grade")=""  then
		MySys.error.info="请完整填写相关项目！"
		MySys.error.location="back"
		MySys.error.err()
	end if
		
	'/////////////////////////////////////////////
	
	if request("action")="add" then
	    MySys.error.info="用户类型加入成功！"
	    rs.addnew
	    rs("sort_name")=request.form("sort_name")	
	else
	    MySys.error.info="用户类型编辑成功！"
	end if
	
	rs("sort_description")=request.form("sort_description")	

	if request.form("sort_grade")<>"" and MySys.admin_grade-rs("sort_grade")>0 then 
	  if request.form("sort_grade")-MySys.admin_grade<0 then 
		  rs("sort_grade")=int(request.form("sort_grade"))
	  else
		  rs("sort_grade")=MySys.admin_grade-1
	  end if
	end if
	
	'rs("sort_grade")=request.form("sort_grade")	
	rs("sort_open")=int(request.form("sort_open"))	

	rs.update
	rs.close
	
	
	MySys.error.location="admin/admin_user_sys_sort.asp"
	MySys.error.suc()

end select
%>
<!--#include file="admin_end.asp"-->
