func_rolemenu.asp

企业办公简单管理系统,可以发布信息以及论坛

<SCRIPT LANGUAGE="JavaScript">
<!--
	function DoSubmit0()
	{
		document.form2.submit();
	}
	function DoSubmit2()
	{	
		var value1;
		value1=document.form1.role.value;

		if(value1.length<=0 || value1 == null)
		{
			window.alert("请选择需要配置菜单的角色");
		   return false;
		}
		//document.form1.submit();
	}
	
	function DoSubmit1(oject,value1,value2)
	{
		if(!oject.checked)
		{
			if(document.deleform.role.value.length>0)
			{
				if(!confirm("分配给该角色的菜单删除后将无法恢复，一定要删除吗？"))
					return false;
				document.deleform.deleteflag.value=1;
				document.deleform.menuid.value=value1;
				document.deleform.deleteid.value=value2;
				//document.deleform.role.value=value2;
				
				document.deleform.submit();
			}
			else
			{
				alert("请选择需要配置菜单的角色！");
				return false;
			}
		}
		else
		{
			if(document.deleform.role.value.length>0)
			{		
				document.deleform.deleteflag.value=2;
				document.deleform.menuid.value=value1;
				document.deleform.deleteid.value=value2;
				//document.deleform.role.value=value2;
				document.deleform.submit();
			}
			else
			{
				alert("请选择需要配置菜单的角色！");
				return false;
			}			
		}
	}
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%
dim sumcount,saveserial,menucount
set rs = Server.CreateObject("ADODB.Recordset")
set rstype=createobject("adodb.recordset") 


function getrolefunc(menuid,roleid)
	getrolefunc=0
	
	if roleid<>"" and not isnull(roleid) then
		sql="select count(*) as sumcount from cci_menulist where menuid=" & menuid & " and roleid=" & roleid 
		rs.Open Sql,connObj,1,1
		if not rs.eof then
			getrolefunc=rs("sumcount")
		else
			getrolefunc=0
		end if 
		rs.close
	else
		getrolefunc=0
	end if
	
end function

sub ShowInfoType(roleid)
	dim i,sql,typevalue,typelabel
	
	
	i=1
	sql="select caption,id from cci_menu"
	
	rstype.Open sql,connObj,1,1
	j=1			
	do while not rstype.EOF 
		if i=1 then
			response.Write("<tr>")
		end if
		if getrolefunc(rstype("id"),roleid)>0 then
			typevalue="""" & trim(rstype("id")) & """ checked"
		else
			typevalue="""" & trim(rstype("id")) & """"
		end if
		typelabel=rstype("caption") 


		response.Write("<td align=left width=120 class=TableBody1><label><input type=checkbox name=roleid" & j & " value=" & typevalue & " onclick=DoSubmit1(roleid" & j & ","&rstype("id")& ",'" & roleid & "')>" & typelabel & "</label></td>")
		j=j+1
		rstype.movenext
		if rstype.EOF  then
			do while i<4
				response.Write("<td width=120 class=TableBody1>&nbsp;</td>")
				i=i+1
			loop
		else
			if i=4 then			
				response.Write("</tr>")
				i=1
			else
				i=i+1
			end if
		end if

	loop
	rstype.close
	menucount=j
end sub

if request("deleteflag")<>"" then
	if request("deleteflag")="1" and request("deleteid")<>""  then
		sql="delete from cci_menulist where menuid=" & request("menuid") & " and roleid=" & trim(request("deleteid")) 
		ConnObj.execute(sql)
		msg="分配菜单已经删除成功，编号为:" & request("deleteid") & " 菜单号为:" & request("menuid")
		response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
	elseif request("deleteflag")="2" and request("deleteid")<>""  then
		sql="insert into cci_menulist(MenuId,roleid) values(" & request("menuid") & "," & request("role") & ")"
		ConnObj.execute(sql)
		msg="分配菜单已经成功，编号为:" & request("deleteid") & " 菜单号为:" & request("menuid")
		response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
	end if
	
end if



if request("saveflag")<>"" then
	
	icount=cint(request("count"))

	for i=1 to icount
		roleid="roleid" & i
		if request(roleid)<>"" and request("role")<>"" then
			sql="insert into cci_menulist(MenuId,Rolecode) select id,'" & request("role") & "' from cci_menu where id=" & request(roleid)
			connObj.execute(sql)
		end if
	next		
end if


%>				
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
<form name=deleform action="" method=post>
<input type=hidden name=menuid>
<input type=hidden name=deleteid>
<input type=hidden name=role value=<%=request("role")%>>
<input type=hidden name=deleteflag>
</form>

        <tr> 
		<th  height="25" align="center"> 
		  <b><%=site_title%>角色菜单分配</b> 
      <div align="right"></div></th>
        </tr><form name="form2" action="" method=post>
		<tr>
		<td  height="25" class=TopLighNav>请选择要分配菜单的角色：
		 <select name=role onChange="DoSubmit0()">
          <%
	  		sql="select * from cci_role"
			Rs.Open Sql,connObj,1,1
			flag=0
			do while not rs.eof
				if request("role")=cstr(rs("id")) then
					flag=1
				 	response.Write "<option value=" & rs("id") & " selected>" & rs("RoleName") & "</option>"
				else
					response.Write "<option value=" & rs("id") & ">" & rs("RoleName") & "</option>"
				end if
				rs.movenext
			loop
		rs.close
		if flag<>1 then
			response.Write "<option selected></option>"
		else
			response.Write "<option></option>"		
		end if
	  	
	  %>
        </select>
      </td>
       </tr>
		</form>
		
         <tr bgcolor="#EEEEEE">  
                  
      <td height="24" align="right" bgcolor="#ffffff" >
        
    
      <table width="100%" cellspacing="0" cellpadding="0">
		<tr>
	  			<% ShowInfoType request("role")  %>
	  
	  </tr>
			</table>
	  </td>

	  </tr>
	
     
      </table>