📄 d_list4.asp
字号:
<!-- #include File=../../showsort/showsort(man).asp -->
<%
set rs1=server.createobject("ADODB.Recordset")
rs1.Open "Select * from manage_dept",source,3,3
rs1.PageSize =10
Page = Clng(Request("Page"))
if Clng(Request("Page"))>rs1.pagecount then page=rs1.pagecount
if page<1 then page=1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PMIS</title>
<LINK href="../../<%=session("color")%>.css" rel=stylesheet type=text/css>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<!-- #include File=../../include/title2.asp -->
</center>
</div>
<div align="center">
<center>
<table width="100%" cellspacing cellpadding>
<tr>
<td width="20%" class="Titletd1" height="365" valign="top">
<table width="158" cellspacing cellpadding class="L2">
<tr>
<td height="10" colspan="3" class="bgcolor4"></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font><font color="#FFFFFF">部门管理</font></td>
</tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../dept/d_list.asp"><font color="#FFFFFF">>
部门一览</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../dept/d_input.asp"><font color="#FFFFFF">> 新增部门</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../dept/d_del.asp"><font color="#FFFFFF">> 删除部门</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../dept/d_list4.asp"><font color="#FFFFFF">> 部门人员</font></a></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font><font color="#FFFFFF">员工管理</font></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../man/m_modify.asp"><font color="#FFFFFF">> 员工一览</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../man/m_addnewuser.asp"><font color="#FFFFFF">>
新增员工</font></a></td>
</tr> <tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../man/m_del.asp"><font color="#FFFFFF">> 删除员工</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../man/m_leave.asp"><font color="#FFFFFF">> 离职员工</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../man/m_wagemonth.asp"><font color="#FFFFFF">>
工资报表</font></a></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::日常人事管理</font></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="d_list-tj.asp"><font color="#FFFFFF">> 添加申请</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="d_list-sp.asp"><font color="#FFFFFF">> 人事审批</font></a></td>
</tr>
<tr class="bgcolor2"> <td></td> <td></td> <td><a href="d_list-pz.asp"><font color="#FFFFFF">> 人事配置</font></a></td> </tr> <tr class="bgcolor2"> <td></td> <td></td> <td><a href="d_list-lcsz.asp"><font color="#FFFFFF">> 人事流程设置</font></a></td> </tr>
<tr class="bgcolor4">
<td colspan="3" height="200"></td>
</tr>
</table>
</td>
<td width="1%" bgcolor="#FFFFFF"></td>
<td width="79%" bgcolor="#FFFFFF" valign="top">
<table width="100%" cellspacing cellpadding>
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%">
<table width="100%" cellspacing cellpadding>
<tr>
<td width="100%" height="25" style="background-image: url('../../images/<%=session("color")%>/hrm.gif'); background-repeat: no-repeat">
<font color="#000080"> 员工管理</font>
部门人员</td>
</tr>
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%" height="10">
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC" class="L2">
<tr>
<td height="25" valign="middle">
<div align="center"><b>部门名</b></div>
</td>
<td height="25" valign="middle">
<div align="center"><b>部门人员</b></div>
</td>
</tr>
<% if not rs1.eof then
rs1.absoluteposition=(page-1)*rs1.pagesize+1
for i=1 to rs1.pagesize
if rs1.eof then exit for
%>
<tr>
<td height="25"><font title="此部门说明：<%=rs1("state")%>"> <%if sort>=2 then%><a href="#" onClick="window.open('d_modify.asp?id=<%=rs1("deptname")%>','','left=100,top=130,width=450,height=200')"><%=rs1("deptname")%></a><%else%><%=rs1("deptname")%><%end if%></font></td>
<td height="25"><font title="点击查看此人简单介绍"> <%set rsn=server.createobject("ADODB.Recordset")
rsn.Open "Select * from manage_user where deptid='"&rs1("id")&"' and leave=0",source,3,3%>
<%do while not rsn.eof%> <a href="#" onClick="window.open('d_man.asp?id=<%=rsn("id")%>','','left=100,top=130,width=450,height=250')"><%=rsn("name")%></a>
<%rsn.movenext
loop
rsn.close%></font> </td>
</tr>
<%rs1.movenext
next%> <%if rs1.recordcount<10 then
m=10-rs1.recordcount%> <%for i=1 to m%>
<tr >
<td height="25" > </td>
<td height="25"> </td>
<%if sort>=2 then%> <%end if%> </tr>
<%next
end if%> <% else%> <% for i=1 to 10%>
<tr >
<td height="25" > </td>
<td height="25" > </td>
</tr>
<%next
end if%>
</table>
<form name="form2" action="d_list4.asp">
<table width="100%" class="L2">
<tr>
<td height="31">
<div align="center"><%if page>1 then%>
<div align="center"><a href="d_list4.asp?page=<%=page-1%>&number=<%=number1%>"><font color="#000000">
<%end if%> 上一页</font> <%if page>1 then%> </a>
</div>
<%end if%></div>
</td>
<td height="31"><font color="#FF0000">页码[<%=page%>/<%=rs1.pagecount%>]
</font></td>
<td height="31">
<p>转到
<input type="text" name="page" size="3" class="input1" value="1" maxlength="3" onFocus=this.select() onMouseOver=this.focus()>
页
<input type="image" border="0" name="Submit" src="../../images/i_button_15.gif" width="25" height="18">
</p>
</td>
<td height="31"> <%if page<rs1.pagecount then%>
<div align="center"><a href="d_list4.asp?page=<%=page+1%>&number=<%=number1%>">
<%end if%> <font color="#000000">下一页</font></a></div>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<!-- #include File=../../include/last2.asp -->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -