📄 role.asp
字号:
<%@ Language=VBScript Transaction="Required"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>人力资源管理系统</title>
<link href="../Include/type.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Head.asp"-->
<!--#include file="../Include/Syscheck.asp"-->
<script type="text/javascript" src="../Include/regtest.js"></script>
<div id="content" style="position:absolute; width:90%; z-index:1; left: 48px; top: 178px;">
<%
call checkin_sys(session("UsersId"),session("PerId"),35)
dim op,id,rolename
op=Request.QueryString("op")
dim res
set res=server.CreateObject("ADODB.recordset")
%>
<!--内容开始-->
<div id="childmenu" style="position:absolute;top:60px;left:2%;width:9%;height:81px;z-index:2;"><!--子菜单-->
<a href="Role.asp">角色管理</a><br>
<a href="User.asp">用户管理</a>
</div>
<%
res.open "exec userpower",conn,3,1
if res.Eof<>true and res.Bof<>true then
%>
<div id="alert" style="position:absolute; width:15%; z-index:8; left: 2%; top: 120px;border:1px solid red;z-index:1;background:#eeeeee;"> <%
response.write "<center><font color='red'>警告！下列权限未通过角色授予任何用户，将导致操作任务空缺，影响系统完整运行！</font></center>"
do while not res.Eof
response.Write res(1)&" "
res.movenext
loop
%>
<center><a href="#" onclick="this.parentElement.parentElement.style.display='none';">关闭</a></center>
</div>
<%
end if
res.close
%>
<div id="mainop" style="position:relative; width:80%; height:90%; z-index:2; left: 20%; top: 38px;"><!--主操作-->
<%
if op="" then ''角色列表
%>
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script language="javascript">
function dis1(id,name)
{
//alert("aaa")
document.getElementById("add1").style.display="none";
document.getElementById("update1").style.display="inline";
document.alter_role.a_id.value=id;
document.alter_role.text2.value=name;
document.getElementById("op_title").innerHTML="修改名称";
}
function recheck(id)
{
var num;
num=confirm("警告：删除角色将解除所有与该角色相关的用户绑定！\n确认删除吗？");
if (num==true)
{
document.location="Role.asp?op=4&id="+id;
}
}
function ajaxfuct(num,id,op)
{
// 创建AJAX对象
var ajaxobj=new AJAXRequest();
ajaxobj.method="post"; //设置请求方式
// 设置回调函数，输出响应内容
ajaxobj.callback=function(xmlobj)
{
if (op=="1")
{
document.getElementById("r_name").innerHTML=xmlobj.responseText;
if(xmlobj.responseText=="该角色名称已存在!")
{
alert("请重新输入！")
document.addrole.text1.focus();
}
}
if (op=="1_1")
{
document.getElementById("r2_name").innerHTML=xmlobj.responseText;
if(xmlobj.responseText=="该角色名称已存在!")
{
alert("请重新输入！")
document.alter_role.text2.focus();
}
}
}
// 发送请求
ajaxobj.send("Role_back.asp?hi="+num+"&id="+id+"&op="+op);
}
</script>
<%
dim currentpage,rowcount
currentpage=Request.QueryString("page")
if currentpage="" then
currentpage="1"
end if
res.Open "select role_id as '编号',role_name as '角色',role_system from role",conn,3,3
res.PageSize=10
res.AbsolutePage=currentpage
Response.Write "<table border='1'width='100%'align='center' cellspacing='0' cellpadding='0' class='table1'>"
Response.Write "<tr height='25'>"
Response.Write "<td align='center' width='12%' class='td1'>"&res.Fields(0).name&"</td>"
Response.Write "<td align='center' width='20%' class='td1'>"&res.Fields(1).name&"</td>"
Response.Write "<td align='center' class='td1'>操作选项</td>"
Response.Write "</tr>"
do while not res.EOF and rowcount<res.PageSize
Response.Write "<tr height='25'>"
for i=0 to res.Fields.count-2
Response.Write "<td>"&res.Fields(i).Value&"</td>"
next
%>
<td align="center">
<%
if res.Fields(2).Value <> true then
%>
<a href="#"onClick="dis1(<%=res.Fields(0).Value%>,'<%=res.Fields(1).Value%>')">修改名称</a>
<a href="Role.asp?op=3&id=<%=res.Fields(0).Value%>">权限设置</a>
<a href="#" onClick="recheck('<%=res.Fields(0).Value%>')">删除</a>
<%
else
Response.Write "系统角色不能操作"
end if
%>
</td>
<%
Response.Write "</tr>"
res.movenext
rowcount=rowcount+1
loop
%>
<tr>
<td colspan="3" align="center">
<a href="Role.asp?page=1">首页</a>
<a href="Role.asp?page=<%
if currentpage-1<=1 then
Response.Write "1"
else
Response.Write currentpage-1
end if
%>">上页</a>
<a href="Role.asp?page=<%
if currentpage+1>=res.PageCount then
Response.Write res.PageCount
else
Response.Write currentpage+1
end if
%>">下页</a>
<a href="Role.asp?page=<%=res.PageCount%>">尾页
</td>
</tr>
<tr>
<td colspan="3" align="center" id=op_title>
<a href=# onClick="javascript:document.getElementById('add1').style.display='inline'">新增角色</a>
</td>
</tr>
<tr id="add1" style="display:none;"><td colspan="3" align="center">
<form method="post" action="Role.asp?op=1" name="addrole" onSubmit="return Validator.Validate(this,2)">
请输入角色名称:<INPUT type="text" name="text1" dataType="CEN" msg="名称输入无效字符" onKeyUp="testlen(this,10,0)" onBlur="ajaxfuct(this.value,'','1')">
<INPUT type="submit" value="新增" name=submit1>
</form>
<li style="list-style-type:none;" id="r_name"></li>
</td></tr>
<tr id="update1" style="display:none;"><td colspan="3" align="center">
<form method="post" action="Role.asp?op=2" name="alter_role" onSubmit="return Validator.Validate(this,2)">
请输入角色名称:<INPUT type="text" name="text2" dataType="CEN" msg="名称输入无效字符" onKeyUp="testlen(this,10,0)" onBlur="ajaxfuct(this.value,document.alter_role.a_id.value,'1_1')">
<INPUT type="hidden" name="a_id">
<INPUT type="submit" value="修改" name="submit2">
<a href="Role.asp">返回</a>
<li style="list-style-type:none;" id="r2_name"></li>
</form>
</td></tr>
<%
Response.Write "</table>"
elseif op="1" then
rolename=request.form("text1")
on error resume next
conn.execute ("insert into role values('"&rolename&"',0)")
if err.number=0 then
response.Write "添加角色成功！"
else
response.Write("添加角色失败！")
end if
response.addHeader "refresh","3;url=Role.asp"
elseif op="2" then
id=request.form("a_id")
rolename=request.form("text2")
on error resume next
conn.execute "update role set role_name='"&rolename&"' where role_id="&id
if err.number=0 then
response.Write "修改成功！"
else
response.Write("修改失败！")
end if
response.addHeader "refresh","3;url=Role.asp"
elseif op="3" then '权限设置
dim i
id=Request.QueryString("id")
res.Open "select role_name from role where role_id="&id,conn,3,3
Response.Write "当前角色:"&res.Fields(0).Value
res.Close
res.Open "select * from model"
%>
<a href="#" onClick="javascript:window.history.go(-1)">返回</a>
<SCRIPT LANGUAGE="javascript">
<!--
function sel_all(No)
{
var j,k;
//alert(No);
if (No==1) {j=1;k=4;sel(No,j,k);}
else if (No==2) {j=6;k=11;sel(No,j,k);}
else if (No==3) {j=13;k=18;sel(No,j,k);}
else if (No==4) {j=20;k=30;sel(No,j,k);}
else if (No==5) {j=32;k=33;sel(No,j,k);}
else if (No==6) {j=35;k=36;sel(No,j,k);}
else if (No==7) {j=38;k=41;sel(No,j,k);}
else if (No==8) {j=43;k=44;sel(No,j,k);}
}
function sel(No,j,k)
{
var i;
for (i=j;i<=k;i++)
{
if (document.role_give.elements(j-1).checked==false)
{
document.role_give.elements(i).checked=false;
}
else
{
document.role_give.elements(i).checked=true;
}
}
}
function recheck()
{
var num;
num=confirm("确认此权限设置吗？");
if (num==true)
{
document.role_give.submit()
}
}
//-->
</SCRIPT>
<form action="Role.asp?op=3_1" name="role_give" method="post">
<table width="100%" border="1" cellspacing="0" cellpadding="0" class="table1">
<%
i=0
do while not res.EOF=true
i=i+1
%>
<tr height="32">
<td width="17%">
<input id="selall1" type="checkbox" onClick="sel_all(<%=i%>);"><%=res.Fields(1).Value%>
</td>
<td width="83%">
<%
dim res1
set res1=server.CreateObject("ADODB.recordset")
res1.Open "select * from funct where model_id="&res.Fields(0).Value,conn,3,3
do while not res1.EOF=true
%>
<input name="Qxitem" type="checkbox" value="<%=res1.Fields(0).Value%>"
<%
dim res2
set res2=server.CreateObject("ADODB.recordset")
res2.Open "select function_id from rolefunction where role_id="&id,conn,3,3
do while not res2.EOF=true
if res2.Fields(0).Value = res1.Fields(0).Value then
Response.Write "checked"
end if
res2.MoveNext
loop
res2.Close
set res2=nothing
%>><%=res1.Fields(1).Value%>
<%
res1.MoveNext
loop
res1.Close
set res1=nothing
%>
</td>
</tr>
<%
res.MoveNext
loop
%>
<tr>
<td colspan="2">
<center>
<input name="cu_role" type="hidden" value="<%=id%>">
<input name="button1" type="button" value="提交" onClick="recheck()">
<input name="reset1" type="reset"value="重置">
</center>
</td>
</tr>
</table>
</form>
<%
elseif op="3_1" then
dim cu_role,Qx_item
cu_role=Request.Form("cu_role")
Qx_item=Request.Form("Qxitem")
dim item_array
item_array=split(Qx_item,",")
on error resume next
conn.execute "delete rolefunction where role_id="&cu_role '先删除原有记录
for each i in item_array
conn.execute "insert into rolefunction values("&cu_role&","&i&")"
next
if err.number=0 then
Response.Write "设置成功！"
else
Response.Write "操作失败"
end if
Response.AddHeader "refresh","3;url=Role.asp"
elseif op="4" then
id=request.QueryString("id")
'Response.Write id
on error resume next
conn.execute "delete role where role_id="&id
if err.number=0 then
Response.Write "删除成功！"
else
Response.Write "删除操作失败！"
end if
Response.AddHeader "refresh","3;url=Role.asp"
end if
%>
</div>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
</div>
<%
if res.State=1 then
res.Close
end if
conn.close
set res=nothing
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -