📄 roleuser_role_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 rolecode
relecode=""
dim objres 'recordset对象
dim strsql 'sql语句
strsql="select * from XT_TC_Role where 有效标志='1'" '读出所有角色
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_user where left(用户编码,3)='"&left(session("usercode"),3)&"' and 有效标志='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("Usersubmit")="Usersubmit"then '修改角色的用户
rolecode=Request.QueryString ("rolecode")
thispagerecords=Request.Form ("thispagerecords")
for i=1 to thispagerecords
a="hiddenusercode"+Cstr(i)
usercode=request(a)
strsqldel="delete from XT_TP_UserRole where 角色编码='"& rolecode &"' and 用户编码='"+usercode+"'"
conn.Execute strsqldel
next
for each item in Request.Form("checkbox1")
strsqldel="insert into XT_TP_UserRole (角色编码,用户编码) values('" & rolecode & "','" & 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">
<link rel="stylesheet" href="../CssLib/CssLink.css">
<style>
td{font-size:9pt}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000"onload="check()">
<%
rolecode=Request.QueryString ("rolecode")
rolename=Request.QueryString ("rolename")
if Request("rolesubmit")="rolesubmit" and not request("select")="" then '角色有变化
rolecode=left(request("select"),1)
rolename=right(request("select"),len(request("select"))-1)
if not rolecode=""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 角色编码='"& rolecode &"'"
objres10.Open strsql10,strconn
if objres10.RecordCount >0 then
Response.Write "<script language='vbscript'>"&chr(13)
Response.Write "dim roleuser("& (objres10.RecordCount-1) &")"& chr(13)
for i=0 to objres10.RecordCount -1
Response.Write "roleuser(" & 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
'分页显示
dim pagesum '页数
dim thispagerecords '当前页记录条数
dim roleuserno '记录序号
dim curpage '当前页码
dim pagesize
pagesize=10
pagesum=objres1.PageCount
if Request.QueryString("page")=""then curpage=1 else curpage=Request.QueryString("page") end if
if cint(curpage)> cint(pagesum) then curpage=pagesum '转换成整数格式时必须的，大量实验已经证明
%>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="role" method="post" action="RoleUser_role_basicconfig.asp?rolesubmit=rolesubmit">
<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("Usersubmit")="Usersubmit" then Response.Write "该角色的用户配置已经提交成功！" %>
</td>
<td height="20" width="170"> </td>
</tr>
<tr>
<td colspan="2" height="20">
<div align="right">按角色配置
<select name="select"onchange="rolechange()">
<option value="" > ** 请选择角色 ** </option>
<%for i=0 to objres.RecordCount-1 %>
<option value="<%=objres.Fields("角色编码").Value%><%=objres.fields("角色名称").value %>"
<%if objres.Fields("角色编码").Value=rolecode then Response.Write "selected" %>>
<%=objres.Fields("角色名称").Value %></option>
<%objres.MoveNext
next
%>
</select>
</div>
</td>
<td height="20"> <a href="RoleUser_user_BasicConfig.asp"><font color="#000000">按用户配置</font></a></td>
</tr>
</form>
</table>
<%if not rolecode="" then%>
<form name="User" method="post" action="RoleUser_role_basicconfig.asp?Usersubmit=Usersubmit&rolename=<%=rolename%>&rolecode=<%=rolecode%>">
<%else%>
<form name="User" method="post" action="">
<%end if%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bordercolor="0" bgcolor="#FFFFFF">
<tr>
<td width="53" bgcolor="#336699" align="center"> <font color="#FFFFFF">序号</font></td>
<td width="133" bgcolor="#336699">
<div align="center"><font color="#FFFFFF">用户编码</font></div>
</td>
<td width="335" bgcolor="#336699"> <font color="#FFFFFF"> 用户姓名</font></td>
</tr>
<%
if objres1.RecordCount >pagesize*curpage then thispagerecords=pagesize else thispagerecords=objres1.RecordCount-pagesize*(curpage-1)
roleuserno=10*(curpage-1)
if objres1.RecordCount >0 then
objres1.MoveFirst
objres1.Move((curpage-1)*10)
end if
%>
<%
for i=1 to thispagerecords
roleuserno=roleuserno+1
%>
<tr>
<td width="53" height="25" align="center"><%=RoleUserNo%></td>
<td width="133" height="25">
<input type="checkbox" name="checkbox1" value="<%=objres1.Fields("用户编码").Value %>">
<%intindex=intindex+1
Response.Write objres1.Fields("用户编码").Value%>
<input type="hidden" name="hiddenUserCode<%=Cstr(i)%>" value="<%=objres1.Fields("用户编码").Value%>">
</td>
<td width="335" height="25">
<%Response.write objres1.Fields("用户姓名").Value %>
</td>
</tr>
<%
objres1.MoveNext
next
%>
<tr bgcolor="#336699" align="right">
<td colspan="3" height=18> <font color="#ffffff">
<%
if curpage>1 then Response.Write ("<a href="+"RoleUser_role_BasicConfig.asp?page=1"+"&rolecode="+rolecode+"&rolename="+rolename+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if roleuserno>pagesize then Response.Write ("<a href="+"RoleUser_role_BasicConfig.asp?page="+cstr(curpage-1)+"&rolecode="+rolecode+"&rolename="+rolename+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if roleuserno<objres1.RecordCount then Response.Write ("<a href="+"RoleUser_role_BasicConfig.asp?page="+cstr(curpage+1)+"&rolecode="+rolecode+"&rolename="+rolename+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if roleuserno<objres1.RecordCount then Response.Write ("<a href="+"RoleUser_role_BasicConfig.asp?page="+cstr (pagesum)+"&rolecode="+rolecode+"&rolename="+rolename+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" ") else Response.Write "末页 "
%>
第 <%=curpage %> 页／共
<% =pagesum %>
页／共
<% =objres1.RecordCount %>
条记录 </font></td>
</tr>
<tr>
<td colspan="3">
<div align="center">
<%if not rolecode="" then%>
<input type="submit" name="Submit" value="提交" class="button">
<input type="hidden" name="thispagerecords" value="<%=thispagerecords%> ">
<%end if%>
</div>
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
<script language="vbscript">
function rolechange() '选择角色
document.role.submit()
end function
function check() '已有的用户勾上
if biaoshi=1 then
for i=lbound(roleUser) to ubound(roleUser)
for j=0 to document.User("checkbox1").length -1
if document.User("checkbox1")(j).value=roleUser(i) then document.User("checkbox1")(j).checked=true
next
next
end if
end function
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -