📄 left.asp

📁 财务管理系统报账等基本功能实现有完整的实现

💻 ASP

字号:

<!-- #include file="../Conndb.asp" -->
<html>

<head>
<link href="../style.css" rel="stylesheet">
<base target="main">
</head>

<body topmargin="4" leftmargin="4" bgcolor="#eeeeee">

<div align="center">
  <center>
<table border="0" width="80%" height="300">
<%Dim rs,Rsdep
  Set Rsdep = Server.CreateObject("ADODB.RecordSet")
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '读取一级部门数据到记录集rs中
  sql = "SELECT * FROM Departments WHERE UpperId=0 ORDER BY DepId"
  rs.Open sql, conn, 1, 1
  If rs.EOF Then
    '如果记录集为空，则显示“目前还没有记录”
 %>
  <tr>
    <td width="100%" height="6"><a href="UserList.asp?did=0" target="main">系统管理</a></td>
  </tr>
<%Else%>
  <tr>
    <td width="100%" height="6">系统管理</td>
  </tr>
<%    
    '在表格中显示部门名称
    Do While Not rs.EOF
      '判断此部门是否包含下级部门
      Set RsSub = Server.CreateObject("ADODB.RecordSet")
      sqlSub = "SELECT * FROM Departments WHERE UpperId=" & rs("DepId")
      Set RsSub = Conn.Execute(sqlSub)
      If RsSub.EOF Then '如果没有下级部门
%>
  <tr>
    <td width="100%" align="center" height="6"><a href="UserList.asp?did=<%=rs("DepId")%>" target="main"><%=rs("DepName")%></a></td>
  </tr>
<%    Else  ' 如果存在下级部门 %>
  <tr>
    <td width="100%" align="center" height="6"><%=rs("DepName")%></td>
  </tr>
<%      Set Rsdep = Server.CreateObject("ADODB.RecordSet")
        '读取此部门下所有部门信息
        sql1 = "SELECT * FROM Departments WHERE UpperId=" & rs("DepId") &" ORDER BY DepId"
        Rsdep.Open sql1, conn,1,4
        Do While Not Rsdep.EOF 
%>
  <tr>
    <td width="100%" align="center" height="6">&nbsp;&nbsp;<a href="UserList.asp?did=<%=Rsdep("DepId")%>" target="main"><%=Rsdep("DepName")%></a></td>
  </tr>      
        <%
          Rsdep.MoveNext()
        Loop      
        Set Rsdep = Nothing
      End If
      rs.MoveNext()
    Loop
  End If%>
</table>
  </center>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -