📄 usergrant.asp

📁 网络考试系统最终备份
💻 ASP
字号:
<!--#include file="conn.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<link rel="stylesheet" type="text/css" href="css.css">
</html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>




<body>
  <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
    <tr>
      <td width="100%">当前位置：<a href="news.asp">系统管理</a> &gt;<a href="manageruser.asp">人员管理</a>&gt;人员授权</td>
    </tr>
  </table>
  <p>&nbsp;</p>
  <form name="form1" method="post" action="usergrantsave.asp">
    <table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="40%" id="AutoNumber1">
      <tr>
        <th  nowrap width="22%" scope="row">帐号</th>
        <td   nowrap  width="18%"><div align="center"><strong>用户名</strong></div></td>
        <td   nowrap width="24%"><div align="center"><strong>权限</strong></div></td>
      </tr>
      <%


'删除人员
vid=request("id")


vid=split(vid,",")
i=ubound(vid)

for j=0 to i
v_id = trim(vid(j))
sql="select * from user_info where UserID = "&v_id&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if  not rs.eof  then

%>
      <tr >
        <th scope="row"><%=rs("UserAccount")%></th>
        <td   nowrap ><%=rs("UserRName")%></td>
        <td  nowrap ><select name="sRight" size="1">
            <option selected value="<%
	sql1="select * from role_info where RoleID ="&rs("Role_ID")
	set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,3,2
	response.Write(rs1("RoleID"))
	%>">
            <%
	response.Write(rs1("RoleName"))
	rs1.close
	set rs1= nothing
	
	%>
            </option>
            <%
	sql1="select * from role_info where RoleID <>"&rs("Role_ID")
	set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,3,2
	
	
	do while not rs1.eof
	
	%>
            <option value="<%=rs1("RoleID")%>"><%=rs1("RoleName")%></option>
            <%
	rs1.movenext
	
	loop
	rs1.close
	set rs1 = nothing
	%>
        </select></td>
      </tr>
      <%

end if
rs.close
set rs= nothing
next

conn.close
set conn = nothing

%>
   <tr bordercolor="#FFFFFF">
   <td><input name="uid" type="hidden" id="uid" value="<%=request("id")%>"></td>
   <td>&nbsp;</td>
   <td><div align="right">
     <input type="submit" name="button" value="修改权限" class="s02"> 
   </div></td>
   </tr> </table>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
  </form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -