📄 roleuser_user_basicconfig.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0103"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<!--#include file="../Include/online.asp"-->
<%if session("IPno")="no" then Response.Redirect "../Messagebox/error.asp?info=您无浏览此页的权限!!"%>
<%
dim objres 'recordset对象
dim strsql 'sql语句
topdepart=left(session("usercode"),3)
strsql="select 用户编码,用户姓名 from XT_VC_user where 有效标志='1' and left(用户编码,3)='"&topdepart&"'" '读出当前管理员同一主管部门中所有用户
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =3
objres.CursorLocation =3
objres.LockType =2
objres.Open strsql,strconn
'读出所有角色
dim objres1 'recordset对象
dim strsql1 'sql语句
strsql1="select 角色编码 ,角色名称 from XT_TC_Role where 有效标志='1'"
set objres1=server.CreateObject ("adodb.recordset")
objres1.CursorType =3
objres1.CursorLocation =3
objres1.LockType =2
objres1.Open strsql1,strconn
dim intindex '所有复选框的索引标识
intindex=0
if request("rolesubmit")="rolesubmit"then '修改用户的角色
dim objresdel 'recordset对象
dim strsqldel 'sql语句
set objresdel=server.CreateObject ("adodb.recordset")
objresdel.CursorType =3
objresdel.CursorLocation =3
objresdel.LockType =2
usercode=request("usercode")
strsqldel="delete from XT_TP_UserRole where 用户编码='"& usercode &"'"
conn.Execute strsqldel
for each item in Request.Form("checkbox1")
strsqldel="insert into XT_TP_UserRole (用户编码,角色编码) values('" & usercode & "','" & item & "')"
conn.Execute strsqldel,1
next
end if
%>
<html>
<head>
<title>系统配置_角色配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../CssLib/Cssbutton.css">
<style>
td{font-size:9pt}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000"onload="check()">
<%
if Request("usersubmit")="usersubmit" then '用户有变化
usercode=request("select")
if not usercode="nouser"then '选择了用户
'读用户的角色
dim objres10 'recordset对象
dim strsql10 'sql语句
set objres10=server.CreateObject ("adodb.recordset")
objres10.CursorType =3
objres10.CursorLocation =3
objres10.LockType =2
strsql10="select 角色编码 from XT_TP_userRole where 用户编码='"& usercode &"'"
objres10.Open strsql10,strconn
if objres10.RecordCount >0 then
Response.Write "<script language='vbscript'>"&chr(13)
Response.Write "dim userRole("& (objres10.RecordCount-1) &")"& chr(13)
for i=0 to objres10.RecordCount -1
Response.Write "userRole(" & i & ")=" & objres10.Fields("角色编码").Value & chr(13)
objres10.MoveNext
next
Response.Write "dim biaoshi"&chr(13)
Response.Write "biaoshi=1"&chr(13) '标示读了用户
Response.Write "</script>"
end if
end if
end if
%>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="user" method="post" action="RoleUser_user_BasicConfig.asp?usersubmit=usersubmit">
<tr>
<td background="../public/images/config_bg.gif" height="20" width="180">
<div align="center"><font size="3" color="#003399"></font></div>
</td>
<td width="250" height="20">
<div align="center"><font size="3" color="#003399"><b>用 户 与 角 色 配 置</b></font></div>
</td>
<td background="../public/images/config_bg.gif" height="20" width="170"> </td>
</tr>
<tr>
<td height="20" width="180"> </td>
<td width="250" height="20" align="center">
<%if request("Rolesubmit")="Rolesubmit"then Response.Write "该用户的角色配置已经提交成功！" %>
</td>
<td height="20" width="170"> </td>
</tr>
<tr>
<td colspan="3" height="20">
<div align="center">
<select name="select"onchange="userchange()">
<%if not Request("usersubmit")="usersubmit" then '直接进入 %>
<option value="nouser" selected> ** 请选择用户 ** </option>
<%for i=1 to objres.RecordCount %>
<option value="<%=objres.Fields("用户编码").Value %>" ><%=objres.Fields("用户姓名").Value %></option>
<%objres.MoveNext
next
else '用户有变化%>
<option value="nouser" > ** 请选择用户 ** </option>
<%for i=1 to objres.RecordCount %>
<option value="<%=objres.Fields("用户编码").Value %>"
<%if objres.Fields("用户编码").Value=request("select") then Response.Write "selected" %>>
<%=objres.Fields("用户姓名").Value %></option>
<%objres.MoveNext
next
end if%>
</select>
<a href="RoleUser_role_BasicConfig.asp"><font color="#000000">
按角色配置</font></a></div>
</td>
</tr>
</form>
</table>
<%if Request("usersubmit")="usersubmit" and not UserCode="nouser" then%><form name="role" method="post" action="roleUser_User_basicConfig.asp?rolesubmit=rolesubmit&UserCode=<%=UserCode%>">
<%else%>
<form name="role" method="post" action="">
<%end if%>
<table style="font-size:9pt" width="100%" border="0" cellspacing="1" cellpadding="0" bordercolor="0" bgcolor="#FFFFFF">
<tr>
<td width="526" bgcolor="#336699"> <font color="#FFFFFF">角色编码，角色</font></td>
</tr>
<%for i=0 to objres1.RecordCount -1 '显示角色%>
<tr>
<td width="526">
<input type="checkbox" name="checkbox1" value="<%=objres1.Fields("角色编码").Value %>">
<%intindex=intindex+1
Response.Write objres1.Fields("角色编码").Value
Response.write objres1.Fields("角色名称").Value %>
</td>
</tr>
<%
objres1.MoveNext
next
%>
<tr>
<td>
<div align="center">
<input type="submit" name="Submit" value="提交设置" class="button">
</div>
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
<script language="vbscript">
function userchange() '选择角色
document.user.submit()
end function
function check() '已有的角色勾上
if biaoshi=1 then
for i=lbound(Userrole) to ubound(Userrole)
for j=0 to document.role("checkbox1").length -1
if clng( document.role("checkbox1")(j).value)=Userrole(i) then document.role("checkbox1")(j).checked=true
next
next
end if
end function
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -