📄 renshiguanliopen.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->
<!--#include file=purview.asp-->
<%
set rsddd=server.CreateObject("adodb.recordset")
sqlddd="select * from tb_User where username='"&session("admin_name")&"'"
rsddd.open sql,conn,1,1
'删除任务
if request("del")<>"" then
sqld="delete from tb_Work where id="&request("del")
conn.execute(sqld)
end if
'显示工作任务
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Work where buzhizhe='"&session("admin_name")&"' order by id desc"
rs.open sql,conn,1,1
function bumen
select case rs("wanchenglei")
case "部门"
set rsb=server.CreateObject("adodb.recordset")
sqlb="select * from tb_Dept where id="&rs("wanchengzhe")
rsb.open sqlb,conn,1,1
response.Write("〖"&rsb("title")&"〗")
case "个人"
set rsb=server.CreateObject("adodb.recordset")
sqlb="select * from tb_Employee where id="&rs("wanchengzhe")
rsb.open sqlb,conn,1,1
set rsm=server.CreateObject("adodb.recordset")
sqlm="select * from tb_Dept where id="&rsb("suoshu")
rsm.open sqlm,conn,1,1
response.Write("〖"&rsm("title")&"〗"&rsb("name"))
case "全部员工"
response.Write("全部员工")
end select
end function
'读取登录者信息
set rsd=server.CreateObject("adodb.recordset")
sqld="SELECT dbo.tb_Employee.suoshu, dbo.tb_User.username FROM dbo.tb_User INNER JOIN dbo.tb_Employee ON dbo.tb_User.name = dbo.tb_Employee.id WHERE dbo.tb_User.username = '"&session("admin_name")&"'"
rsd.open sqld,conn,1,1
suoshu=rsd("suoshu")
'通过审核
if request("zpi")<>"" then
set rsp=server.CreateObject("adodb.recordset")
sqlp="select * from tb_Leave where id="&request("zpi")
rsp.open sqlp,conn,1,3
rsp("zpi")="是"
rsp.update
rsp.close
response.Write("<script language=javascript>alert('通过审核')</script>")
end if
'考勤
set rsgg=server.CreateObject("adodb.recordset")
sqlgg="SELECT dbo.tb_Employee.name, dbo.tb_Dept.title, dbo.tb_Leave.kshijian,dbo.tb_Leave.jshijian, dbo.tb_Leave.bantian, dbo.tb_Leave.jiayin,dbo.tb_Leave.[time], dbo.tb_Leave.zpi, dbo.tb_Leave.id FROM dbo.tb_User INNER JOIN dbo.tb_Employee ON dbo.tb_User.name = dbo.tb_Employee.id INNER JOIN dbo.tb_Dept ON dbo.tb_Employee.suoshu = dbo.tb_Dept.id INNER JOIN dbo.tb_Leave ON dbo.tb_User.username = dbo.tb_Leave.name WHERE dbo.tb_Employee.suoshu = '"&suoshu&"' ORDER BY dbo.tb_Leave.[id] DESC"
rsgg.open sqlgg,conn,1,1
'通过审核
if request("rpi")<>"" then
set rsp=server.CreateObject("adodb.recordset")
sqlp="select * from tb_Leave where id="&request("rpi")
rsp.open sqlp,conn,1,3
rsp("rpi")="是"
rsp.update
rsp.close
response.Write("<script language=javascript>alert('通过审核')</script>")
end if
'考勤
set rsss=server.CreateObject("adodb.recordset")
sqlss="SELECT dbo.tb_Employee.name, dbo.tb_Leave.kshijian, dbo.tb_Leave.jshijian,dbo.tb_Leave.bantian, dbo.tb_Leave.jiayin, dbo.tb_Dept.title, dbo.tb_Leave.[time],dbo.tb_Leave.rpi, dbo.tb_Leave.id FROM dbo.tb_User INNER JOIN dbo.tb_Leave ON dbo.tb_User.username = dbo.tb_Leave.name INNER JOIN dbo.tb_Employee ON dbo.tb_User.name = dbo.tb_Employee.id INNER JOIN dbo.tb_Dept ON dbo.tb_Employee.suoshu = dbo.tb_Dept.id where dbo.tb_Leave.zpi='是' ORDER BY dbo.tb_Leave.[time] DESC"
rsss.open sqlss,conn,1,1
'用户权限
set rsy=server.CreateObject("adodb.recordset")
sqly="select * from tb_User where username='"&session("admin_name")&"'"
rsy.open sqly,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
a:link {
color: #0000FF;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #0000FF;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
-->
</style>
<link href="CSS/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 { font-size: 16px;
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<body>
<div align="center">
<table width="642" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/man5.gif"> <span class="STYLE1">管理工作任务</span></td>
</tr>
</table><br>
<table width="550" border="0" align="center" cellspacing="0" class="dian" >
<tr align="center">
<td height="31" background="images/man2.gif">任务名称</td>
<td background="images/man2.gif">布置者</td>
<td background="images/man2.gif">布置时间</td>
<td background="images/man2.gif">完成者</td>
<td background="images/man2.gif">完成期限</td>
<td background="images/man2.gif">完成任务</td>
<td background="images/man2.gif">删除</td>
</tr>
<%
if not rs.eof then
for i=1 to 3
%>
<tr>
<td height="23"><div align="center"> <a href="javascript:" onClick="window.open('workopen.asp?id=<%=rs("id")%>','','width=450,height=450,scrollbars=yes')"><%=rs("title")%></a></div></td>
<td>
<div align="center"> <%=rs("buzhizhe")%></div></td>
<td><div align="center"> <%=rs("buzhitime")%></div></td>
<td><div align="center">
<%call bumen%>
</div></td>
<td><div align="center"> <%=rs("wanchengtime")%></div></td>
<td><div align="center"> <%=rs("wanchengdu")%></div></td>
<td>
<%if rsddd("guanligongzuo")=1 or rsddd("chaoji")=1 then%>
<div align="center"><a href="renshiguanliopen.asp?del=<%=rs("id")%>" onClick="return confirm('确定删除工作任务？')">删除</a></div>
<%else%>
删除
<%end if%>
</td>
</tr>
<%
rs.MoveNext
if rs.eof then exit for
next
else
response.Write("没有工作任务")
end if
rs.Close()
set rs=nothing
%>
</table>
<table width="550" border="0">
<tr>
<td height="24" colspan="7"><div align="right">〖<a href="workguan.asp">更多内容...</a>〗</div></td>
</tr>
</table>
<img src="images/index1_17.gif" width="612" height="13">
<table width="642" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/man5.gif"> <span class="STYLE1">主管部门考勤管理</span></td>
</tr>
</table><br>
<table width="550" border="0" align="center" cellspacing="0" class="dian" >
<tr>
<td height="31" background="images/man2.gif"><div align="center">员工</div></td>
<td background="images/man2.gif"><div align="center">部门</div></td>
<td background="images/man2.gif"><div align="center">开始日期</div></td>
<td background="images/man2.gif"><div align="center">结束日期</div></td>
<td background="images/man2.gif"><div align="center">半天</div></td>
<td background="images/man2.gif"><div align="center">假因</div></td>
<td background="images/man2.gif"><div align="center">发布时间</div></td>
<td background="images/man2.gif"><div align="center">批准</div></td>
<td background="images/man2.gif"><div align="center">审核</div></td>
</tr>
<%
if not rsgg.eof then
for i=1 to 3
%>
<tr>
<td height="29" align="center"><%=rsgg("name")%></td>
<td align="center"><%=rsgg("title")%></td>
<td align="center"><%=rsgg("kshijian")%></td>
<td align="center"><%=rsgg("jshijian")%></td>
<td align="center"><%=rsgg("bantian")%></td>
<td align="center"><%=rsgg("jiayin")%></td>
<td align="center"><%=rsgg("time")%></td>
<td align="center"><%=rsgg("zpi")%></td>
<td align="center">
<%if rsy("zhuguanshenpi")=1 or rsddd("chaoji")=1 then%>
<a href="renshiguanliopen.asp?zpi=<%=rsgg("id")%>" onClick="return confirm('确定通过吗？')">通过</a>
<%else%>
通过
<%end if%>
</td>
</tr>
<%
rsgg.MoveNext
if rsgg.eof then exit for
next
else
response.Write("没有工作任务")
end if
rsgg.Close()
set rs=nothing
%>
</table>
<table width="550">
<tr>
<td height="31" colspan="9"><div align="right">〖<a href="leavezhu.asp">更多内容...</a>〗</div></td>
</tr>
</table>
<img src="images/index1_17.gif" width="600" height="14">
<table width="642" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/man5.gif"> <span class="STYLE1">人事部门考勤管理</span></td>
</tr>
</table><br>
<table width="550" border="0" align="center" cellspacing="0" class="dian" >
<tr>
<td height="31" background="images/man2.gif"><div align="center">员工</div></td>
<td background="images/man2.gif"><div align="center">部门</div></td>
<td background="images/man2.gif"><div align="center">开始日期</div></td>
<td background="images/man2.gif"><div align="center">结束日期</div></td>
<td background="images/man2.gif"><div align="center">半天</div></td>
<td background="images/man2.gif"><div align="center">假因</div></td>
<td background="images/man2.gif"><div align="center">发布时间</div></td>
<td background="images/man2.gif"><div align="center">批准</div></td>
<td background="images/man2.gif"><div align="center">审核</div></td>
</tr>
<%
if not rsss.eof then
for i=1 to 3
%>
<tr>
<td align="center" height="33"><%=rsss("name")%></td>
<td align="center"><%=rsss("title")%></td>
<td align="center"><%=rsss("kshijian")%></td>
<td align="center"><%=rsss("jshijian")%></td>
<td align="center"><%=rsss("bantian")%></td>
<td align="center"><%=rsss("jiayin")%></td>
<td align="center"><%=rsss("time")%></td>
<td align="center"><%=rsss("rpi")%></td>
<td align="center">
<%if rsy("renshishenpi")=1 or rsddd("chaoji")=1 then%>
<a href="renshiguanliopen.asp?rpi=<%=rsss("id")%>" onClick="return confirm('确定通过吗？')">通过</a>
<%else%>
通过
<%end if%>
</td>
</tr>
<%
rsss.MoveNext
if rsss.eof then exit for
next
else
response.Write("没有任何职位")
end if
rsss.Close()
set rs=nothing
%>
</table>
<table width="550" border="0">
<tr align="right">
<td height="30" colspan="9">〖<a href="leaveren.asp">更多内容...</a>〗 </td>
</tr>
</table>
<img src="images/index1_17.gif" width="602" height="13"> </div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -