📄 gerenguanliopen.asp

📁 asp数据库系统开发：人力资源管理系统代码完整
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->

<%

if request("del")<>"" then
sqld="delete from tb_Letter_s where id="&request("del")
conn.execute(sqld)
end if
set rs=server.CreateObject("adodb.recordset")
sql="SELECT dbo.tb_Letter_s.id,dbo.tb_Letter_s.title, dbo.tb_Letter_s.[time],dbo.tb_Employee.name AS jieshouzhe, tb_Employee_1.name FROM dbo.tb_Letter_s INNER JOIN dbo.tb_Employee ON dbo.tb_Letter_s.point = dbo.tb_Employee.id INNER JOIN dbo.tb_User ON dbo.tb_Letter_s.name = dbo.tb_User.username INNER JOIN dbo.tb_Employee tb_Employee_1 ON dbo.tb_User.name = tb_Employee_1.id INNER JOIN dbo.tb_User tb_User_1 ON dbo.tb_Employee.id = tb_User_1.name WHERE (tb_User_1.username = '"&session("admin_name")&"') order by dbo.tb_Letter_s.id desc"
rs.open sql,conn,1,1


'删除信息
if request("del1")<>"" then
	if request("tb")=1 then
	  sqld="delete from tb_Message where id="&request("del1")
	  conn.execute(sqld)
	 else
	  sqld="delete from tb_Messagef where id="&request("del1")
	  conn.execute(sqld)
	end if
end if
'显示信息
if request("tb")="" then
tb=1 
else
tb=request("tb")
end if
if tb=1 then

set rsaa=server.CreateObject("adodb.recordset")
sqlaa="SELECT tb_Employee_1.name, dbo.tb_Message.tongzhilei, dbo.tb_Message.[time],dbo.tb_Message.title, dbo.tb_Message.id, tb_Employee_2.name AS fabuzhe FROM dbo.tb_Message INNER JOIN dbo.tb_User ON dbo.tb_Message.fabuzhe = dbo.tb_User.username INNER JOIN dbo.tb_Employee tb_Employee_1 ON dbo.tb_Message.jieshouzhe = tb_Employee_1.id INNER JOIN dbo.tb_Employee tb_Employee_2 ON dbo.tb_User.name = tb_Employee_2.id INNER JOIN dbo.tb_User tb_User_1 ON tb_Employee_1.id = tb_User_1.name WHERE (tb_User_1.username = '"&session("admin_name")&"') ORDER BY dbo.tb_Message.id DESC"
rsaa.open sqlaa,conn,1,1
else
set rsaa=server.CreateObject("adodb.recordset")
sql="SELECT tb_Employee_1.name, tb_Employee_2.name AS fabuzhe, dbo.tb_Messagef.title,dbo.tb_Messagef.id, dbo.tb_Messagef.jieshouzhe, dbo.tb_Messagef.[time], dbo.tb_Messagef.tongzhilei FROM dbo.tb_Messagef INNER JOIN dbo.tb_User INNER JOIN dbo.tb_Employee tb_Employee_2 ON dbo.tb_User.name = tb_Employee_2.id ON dbo.tb_Messagef.fabuzhe = dbo.tb_User.username INNER JOIN dbo.tb_User tb_User_1 INNER JOIN dbo.tb_Employee tb_Employee_1 ON tb_User_1.name = tb_Employee_1.id ON  dbo.tb_Messagef.jieshouzhe = tb_Employee_1.id WHERE (tb_User.username = '"&session("admin_name")&"') ORDER BY dbo.tb_Messagef.id DESC"
rsaa.open sqlaa,conn,1,1
end if
if request("id")<>"" then 
set rsg=server.CreateObject("adodb.recordset")
sqlg="select * from tb_Work where id="&request("id")
rsg.open sqlg,conn,1,3
rsg("wanchengdu")="完成"
rsg.update
rsg.close
end if
'显示工作任务

set rsdd=server.CreateObject("adodb.recordset")
sqldd="SELECT dbo.tb_Work.title, dbo.tb_Dept.title AS wanchengzhe, dbo.tb_Work.buzhizhe,dbo.tb_Work.buzhitime, dbo.tb_Work.wanchengtime, dbo.tb_Work.wanchengdu,dbo.tb_Work.id FROM dbo.tb_Work INNER JOIN dbo.tb_Employee INNER JOIN dbo.tb_User ON dbo.tb_Employee.id = dbo.tb_User.name INNER JOIN dbo.tb_Dept ON dbo.tb_Employee.suoshu = dbo.tb_Dept.id ON dbo.tb_Work.wanchengzhe = dbo.tb_Employee.id WHERE (dbo.tb_User.username = '"&session("admin_name")&"')ORDER BY dbo.tb_Work.buzhitime DESC"
rsdd.open sqldd,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">
</head>

<body >
 <div align="center"><p>最近公函列表</p>
 </div>
<table width="550" border="0" align="center" cellspacing="0" class="dian" >
  <tr align="center">
    <td height="31" background="images/index_24.gif">发送者</td>
    <td background="images/index_24.gif">接受者</td>
    <td background="images/index_24.gif">公函标题</td>
    <td background="images/index_24.gif">发送时间</td>
    <td background="images/index_24.gif">删除</td>
  </tr>
    <% 
    if not rs.eof then
  maxpage=0
show=15
tol=rs.recordcount
rs.pagesize=show
maxpage=rs.pagecount
requestpage=clng(request("p"))

if requestpage="" or requestpage=0 then
requestpage=1 
end if

if requestpage>maxpage then
requestpage=maxpage
end if

if not requestpage=1 then 
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.eof
  %>
  <tr align="center">
    <td height="28"><%=rs("name")%></td>
    <td><%=rs("jieshouzhe")%></td>
    <td><a href="javascript:" onClick="window.open('letteropen.asp?id=<%=rs("id")%>','','width=420,height=450,scrollbars=yes')"><%=rs("title")%></a></td>
    <td><%=rs("time")%></td>
    <td><a href="gerenguanliopen.asp?del=<%=rs("id")%>&p=<%=requestpage%>" onClick="return confirm('确定删除吗？')">删除</a></td>
  </tr>
       <% 
rs.MoveNext
if rs.eof then exit for
next
end if
rs.Close()
set rs=nothing
%>
</table>
<table width="550" border="0" align="center">
  <tr>
    <td align="right">〖<a href="searchletter.asp">更多内容...</a>〗</td>
  </tr>
</table>
<div align="center"><img src="images/index1_17.gif" width="612" height="13">
</div>
<div align="center"></div>
<p align="center">最近收到消息列表</p>
<table width="550"  border="0" align="center" cellspacing="0" class="dian" >
  <tr align="center">
    <td height="31" background="images/index_24.gif">发布者</td>
    <td background="images/index_24.gif">接收者</td>
    <td background="images/index_24.gif">消息标题</td>
    <td background="images/index_24.gif"> 消息等级</td>
    <td background="images/index_24.gif">发布日期</td>
    <td background="images/index_24.gif">删除</td>
  </tr>
  <%
      if not rsaa.eof then
for i=1 to 3
  %>
  <tr align="center">
    <td height="28"><%=rsaa("fabuzhe")%>&nbsp;</td>
    <td><%=rsaa("name")%>&nbsp;</td>
    <td><a href="javascript:" onClick="window.open('messageopen.asp?id=<%=rsaa("id")%>&tb=<%=tb%>','','width=450,height=450,scrollbars=yes')"><%=rsaa("title")%></a>&nbsp;</td>
    <td><%=rsaa("tongzhilei")%>&nbsp;</td>
    <td><%=rsaa("time")%>&nbsp;</td>
    <td><a href="gerenguanliopen.asp?del1=<%=rsaa("id")%>&tb=<%=tb%>" onClick="return confirm('你真的要删除这条信息吗？')">删除</a></td>
  </tr>
  <%
  rsaa.MoveNext
if rsaa.eof then exit for
next
else 
response.Write("没有任何消息")
end if
rsaa.Close()
set rsaa=nothing
  %>

</table>
<table width="550" border="0" align="center">
  <tr>
    <td align="right">〖<a href="messagegeguan.asp">更多内容...</a>〗</td>
  </tr>
</table>
<div align="center"><img src="images/index1_17.gif" width="612" height="13">
</div>
<p align="center">个人任务列表</p>
<table width="550"  border="0" align="center" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#666699" class="dian">
  <tr align="center">
    <td height="31" background="images/index_24.gif">任务名称</td>
    <td background="images/index_24.gif">布置者</td>
    <td background="images/index_24.gif">布置时间</td>
    <td background="images/index_24.gif">完成者</td>
    <td background="images/index_24.gif">完成期限</td>
    <td background="images/index_24.gif">完成任务</td>
  </tr>
  <%
    if not rsdd.eof then
for i=1 to 3
  %>
  <tr>
    <td height="23"><div align="center">&nbsp;<a href="javascript:" onClick="window.open('workopen.asp?id=<%=rsdd("id")%>','','width=450,height=450,scrollbars=yes')"><%=rsdd("title")%></a></div></td>
    <td>
      <div align="center">&nbsp;<%=rsdd("buzhizhe")%></div></td>
    <td><div align="center">&nbsp;<%=rsdd("buzhitime")%></div></td>
    <td><div align="center">&nbsp;<%=rsdd("wanchengzhe")%></div></td>
    <td><div align="center">&nbsp;<%=rsdd("wanchengtime")%></div></td>
    <td><div align="center">&nbsp;
            <%if rsdd("wanchengdu")="完成" then %>
            完成
            <%else%>
            <a href="gerenguanliopen.asp?id=<%=rsdd("id")%>" onClick="return confirm('真的完成任务了吗？')"><%=rsdd("wanchengdu")%></a>
            <%end if%>
    </div></td>
  </tr>
  <% 
rsdd.MoveNext
if rsdd.eof then exit for
next
else 
response.Write("没有工作任务")
end if
rsdd.Close()
set rsdd=nothing
%>
</table>
<table width="550" border="0" align="center">
  <tr>
    <td align="right">〖<a href="searchgeworkguan.asp">更多内容...</a>〗</td>
  </tr>
</table>
<div align="center"><img src="images/index1_17.gif" width="612" height="13">
</div>
</body>
</html>
💿 文件大小 780 K
👤 上传用户 ac3698
📂 所属分类其他数据库
🏷️ 相关标签

#asp #数据库 #人力资源管理系统 #代码
⌨️ 快捷键说明

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