manageruserselect.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 110 行

ASP
110 行
字号 
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查询人员</title>
</head>

<body>
<table width="100%" height="25" border="0" cellspacing="0" bordercolor="#111111" id="AutoNumber2" style="border-collapse: collapse">
  <tr>
    <td width="100%">当前位置：<a href="news.asp">系统管理</a> &gt;<a href="manageruser.asp">人员管理</a> &gt; 查询人员</td>
  </tr>
</table>
<table width="100%"  border="0">
  <tr>
    <td><img src="images/2.jpg" width="104" height="40"></td>
  </tr>
</table>
<table width="100%"  border="1">
  <tr bgcolor="#CCCCCC">
    <td colspan="7"><div align="center"><strong>用户信息如下</strong></div></td>
  </tr>
  <tr>
    <td width="10%"><div align="center"><strong>姓名</strong></div></td>
    <td width="13%"><div align="center"><strong>帐号</strong></div></td>
    <td width="15%"><div align="center"><strong>学校</strong></div></td>
    <td width="18%"><div align="center"><strong>院系</strong></div></td>
    <td width="17%"><div align="center"><strong>专业</strong></div></td>
    <td width="15%"><div align="center"><strong>权限</strong></div></td>
    <td width="12%"><div align="center"><strong>操作</strong></div></td>
  </tr>
</table>
<%
sql="select * from user_info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof

v_college=rs("College_ID")
v_dep=rs("Dep_ID")
v_mayjor=rs("Mayjor_ID")
v_class=rs("Class_ID")
v_role=rs("Role_ID")

sql1="select * from college_info where CollegeID="&v_college&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
v_dep = trim(v_dep)
'v_dep = cint(v_dep)
sql2="select * from department_info where DepID="&v_dep
'response.Write(v_dep)
'response.End()
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2

sql3="select * from mayjor_info where MayjorID="&v_mayjor&""
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2

sql4="select * from class_info where ClassID="&v_class&""
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2

sql5="select * from role_info where RoleID="&v_role&""
set rs5=server.createobject("adodb.recordset")
rs5.open sql5,conn,3,2
'if not rs1.eof and  rs2.eof and rs3.eof and rs4.eof and rs5.eof then
%>
<table width="100%"  border="1">
  <tr>
    <td width="10%"><div align="center"><%=rs("UserRName")%>&nbsp;</div></td>
    <td width="13%"><div align="center"><%=rs("UserAccount")%>&nbsp;</div></td>
    <td width="15%"><div align="center">
        <%=rs1("CollegeName")%>
    &nbsp;</div></td>
    <td width="18%"><div align="center">
        <%=rs2("DepName")%>
    &nbsp;</div></td>
    <td width="17%"><div align="center">
        <%=rs3("MayjorName")%>
    &nbsp;</div></td>
    <td width="15%"><div align="center">
        <%=rs5("RoleName")%>
    &nbsp;</div></td>
    <td width="12%"><div align="center"><a href="manageruserdel.asp?v_userid=<%=rs("UserID")%>">删除</a></div></td>
  </tr>
</table>
<%
'end if
rs.movenext
loop
rs.close
rs1.close
rs2.close
rs3.close
rs4.close
rs5.close
%>
<table width="100%"  border="0">
  <tr>
    <td><div align="center">
      <form name="form1" method="post" action="manageruser.asp">
        <input type="submit" name="Submit" value="返回">
      </form>
</div></td>
  </tr>
</table>
</body>
</html>

manageruserselect.asp - 源码说明

本页面展示了「网络考试系统最终备份」中的 manageruserselect.asp 源码文件，采用 ASP 编程语言编写，共 110 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络考试相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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