⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 browseuser.asp

📁 这是我自己设计的一个资源管理系统
💻 ASP
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资源管理系统</title>
</head>

<script language="JavaScript">
function delUser(userID)
{
  if(confirm("真的要删除吗?"))
    window.location="delUser.asp?userID="+userID;
}
</script>
<body>
<p><font color="#FF9900"><strong>&gt;&gt; 用户</strong></font><font color="#FF9900"><strong>管理</strong></font></p>
<table width="100%" border="1" cellspacing="0" bordercolor="#FFAC75">
  <tr bgcolor="#99CCFF"> 
    <td width="20%" height="32"> 
      <div align="center"><strong><font color="#006600">登录名</font></strong></div></td>
    <td width="16%"><div align="center"><strong><font color="#006600">密码</font></strong></div></td>
    <td width="16%"> 
      <div align="center"><strong><font color="#006600">真实姓名</font></strong></div></td>
    <td width="16%"> 
      <div align="center"><strong><font color="#006600">所属部门</font></strong></div></td>
    <td width="16%"> 
      <div align="center"><strong><font color="#006600">角色</font></strong></div></td>
    <td width="16%"> 
      <div align="center"><strong><font color="#006600">删除</font></strong></div></td>
  </tr>
  <%
  set conn = server.CreateObject("adodb.connection")
  conn.open"DBSource","sa",""
  dim deptID,userID,loginName,userPassword,realName,deptName
  set rs = conn.execute("select *from TUser")
  do until rs.eof
  	deptID=rs("dept_id")
	userID=rs("user_id")
	loginName=rs("login_name")
	userPassword=rs("user_password")
	realName=rs("real_name")
	deptName="暂无"
	set rs1=conn.execute("select dept_name from TDept where dept_id="&Cstr(deptID))
	if not rs1.eof then
		deptName=rs1("dept_name")
	end if
  %>
  <tr bgcolor="#DDEEFF"> 
    <td> <div align="center"><font color="#006600"><%=loginName%></font></div></td>
    <td><div align="center"><font color="#006600"><%=userPassword%></font></div></td>
    <td><div align="center"><font color="#006600"><%=realName%></font></div></td>
    <td> <div align="center"><font color="#006600"><%=deptName%></font></div></td>
    <td> <div align="center"><font color="#006600">
	<a href="browseUserRole.asp?userID=<%=userID%>&loginName=<%=loginName%>">
	<img src="image/edit.gif" width="15" height="15" border="0"></a></font></div></td>
    <td> <div align="center"><font color="#006600"><img src="image/delete.gif" width="20" height="20" border="0" onClick="delUser(<%=userID%>)" style="cursor:hand"></font></div></td>
  </tr>
  <%
  rs.movenext
  loop
  %>
</table>
</body>
</html>

⌨️ 快捷键说明

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