📄 browseuserrole.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资源管理系统</title>
</head>
<script language="JavaScript">
function delRole(roleID)
{
if(confirm("真的要删除吗?"))
window.location="delRole.asp?roleID="+roleID;
}
</script>
<body>
<%
dim roleID,userID,loginName,urID,roleName
userID=request("userID")
loginName=request("loginName")
%>
<p><font color="#FF9900"><strong>>> 用户</strong></font><font color="#FF9900"><strong>-角色：<font color="#ff0000"><%=loginName%></font> </strong></font>
<a href="addUserRole0.asp?userID=<%=userID%>&loginName=<%=loginName%>">为该用户添加新角色</a></p>
<table width="100%" border="1" cellspacing="0" bordercolor="#FFAC75">
<tr bgcolor="#99CCFF">
<td width="38%" height="32"> <div align="center"><strong><font color="#006600">角色名称</font></strong></div>
<strong></strong></td>
<td> <div align="center"><strong></strong></div>
<div align="center"><strong><font color="#006600">删除</font></strong></div></td>
</tr>
<%
set conn = server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""
set rs = conn.execute("select * from TUserRole where user_id="&userID)
do until rs.eof
urID=rs("ur_id")
roleID=rs("role_id")
roleName="暂无"
set rs1 = conn.execute("select role_name from TRole where role_id="&roleID)
if not rs1.eof then
roleName=rs1("role_name")
end if
%>
<tr bgcolor="#DDEEFF">
<td> <div align="center"><font color="#006600"><%=roleName%></font></div></td>
<td> <div align="center"></div>
<div align="center"><font color="#006600"><img src="image/delete.gif" width="20" height="20" border="0" onClick="delRole(<%=roleID%>)" style="cursor:hand"></font></div></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -