📄 left.asp
字号:
<!--#include file="../Conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>人力资源管理系统</title>
<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")
'用户类型包含人事专员的用户可以查看下列内容
If isAdmin = 1 Then%>
<tr>
<td width="100%" height="6"><p align="left"><a href="admin/DepList.asp" target="main">部门管理</a></p></td>
</tr>
<%End If%>
<tr>
<td width="100%" height="6"><p align="left"><font color="#000080">员工管理</font></p>
</td>
</tr>
<%'读取一级部门数据到记录集rs中
sql = "SELECT * FROM Departments WHERE UpperId=0 ORDER BY DepId"
rs.Open sql, conn, 1, 1
If rs.EOF Then
'如果记录集为空，则显示“目前还没有记录”
Response.Write "<tr><td align=center><font style='COLOR:Red'>目前还没有记录。</font></td></tr>"
Else
'在表格中显示部门名称
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="admin/EmpList.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"> <a href="admin/EmpList.asp?did=<%=Rsdep("DepId")%>" target="main"><%=Rsdep("DepName")%></a></td>
</tr>
<%
Rsdep.MoveNext()
Loop
Set Rsdep = Nothing
End If
rs.MoveNext()
Loop
rs.Close()
End If
If isAdmin=1 Then '只有人事专员才可以看到%>
<tr>
<td width="100%" height="6"></td>
</tr>
<tr>
<td width="100%" height="6"><font color="#000080">人事管理</font></td>
</tr>
<tr>
<td width="100%" align="center" height="6"><font color="#0000FF">
<a href="admin/TransList.asp" target="main">部门调转</a></font></td>
</tr>
<tr>
<td width="100%" align="center" height="6"><font color="#0000FF">
<a href="admin/EvaList.asp">考评管理</a></font></td>
</tr>
<tr>
<td width="100%" align="center" height="6"><font color="#0000FF">
<a href="admin/SalaryList.asp" target="main">调薪管理</a></font></td>
</tr>
<tr>
<td width="100%" height="6"><font color="#000080">工资管理</font></td>
</tr>
<tr>
<td width="100%" align="center" height="6"><font color="#0000FF">
<a href="report/ItemList.asp" target="main">工资项目</a></font></td>
</tr>
<tr>
<td width="100%" align="center" height="6"><font color="#0000FF">
<a href="report/TaxList.asp" target="main">税率管理</a></font></td>
</tr>
<tr>
<td width="100%" align="center" height="6"><font color="#0000FF">
<a href="report/ReportList.asp" target="main">工资报表</a></font></td>
</tr>
<%End If%>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -