⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 contract.asp

📁 武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>人力资源管理系统</title>
<link href="../Include/type.css" rel="stylesheet" type="text/css">
</head>

<body>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Head.asp"-->
<!--#include file="../Include/Syscheck.asp"-->
<script type="text/javascript" src="date.js"></script>
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left: 48px; top: 190px;">
<!--内容开始-->
<%
   call checkin_sys(session("UsersId"),session("PerId"),24)
   Pact=request.querystring("Pact")
	Set res=server.CreateObject("adodb.recordset")
	res.open"select * from pact where pact_id="&Pact&"",conn,1,1
%>

  <form name="form1" method="post" action="Contract.asp?Pact=<%response.Write Pact%>">
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
	  <td colspan="2" class="td1">
	  <img src="../images/sub01_05.jpg" height="25" align="middle">
		<a href="Search_emly.asp?id=<%=res("personnel_id")%>">人事档案管理</a>--&gt;
		<a href="Search.asp?id=<%=res("personnel_id")%>">档案维护</a>--&gt;
		<a href="Work_list.asp?id=<%=res("personnel_id")%>">合同档案维护</a>--&gt;
		合同修改	  
	  </td>
    </tr>
	<tr>
		<td width="22%"><div align="right">员工编号:</div></td>
		<td width="78%"><%=res(1)%></td>
	</tr>
    <tr>
     <td><div align="right">合同编号:</div></td>
	 <td>
	 <%pacts=res(2)
	set resedu=server.CreateObject("adodb.recordset")
	resedu.open "select * from pactdata where pactdata_id="&pacts&"",conn,1,1
	%>
	<%
	response.Write resedu(1)
	%>	 </td>
  </tr>	
  <tr>
     <td><div align="right">签署时间:</div></td>
	 <td><input name="sdate" type="text" value=<%=res(3)%> onFocus="javascript:ShowCalendar(this.name)"></td>
  </tr> 
  <tr>
     <td><div align="right">解除时间:</div></td>
	 <td><input name="ldate" type="text" value=<%=res(4)%> onFocus="javascript:ShowCalendar(this.name)"></td>
  </tr> 
  <tr>
     <td valign="top"> <div align="right">备注:</div></td>
	 <td><textarea name="remark" cols="35" rows="4"><%=res(5)%></textarea></td>
  </tr>
    <tr> 
      <td colspan="2">
        <div align="center">
          <input type="submit" name="Submit" value="提交" class="button">
          &nbsp;&nbsp;
          <input type="reset" name="Submit2" value="重置" class="button">
          </div></td>
      </tr>
    <tr>
      <td colspan="2">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" class="td1"><div align="center"><a href="Contract_list.asp?id=<%=res(1)%>">返回</a></div></td>
    </tr>
</table>
</form>
<%
res.close
Set res=Nothing 
%>
<%
If request.Form("submit")<>"" Then 
pact=request.querystring("pact")
sdate=request.Form("sdate")
ldate=request.Form("ldate")
remark=request.Form("remark")
	If sdate<>"" and ldate<>"" Then 
		Set res=server.CreateObject("adodb.recordset")
		res.open"update pact set pact_sdate='"&sdate&"',pact_ldate='"&ldate&"',pact_remark='"&remark&"' where pact_id="&pact&"",conn,3,3
	response.redirect("Contract_js.asp?pact="&pact&"")
	Else 
		response.write"<script>alert('签署时间与解除时间不能为空!');window.location.href('contract.asp?pact="&pact&"');</script>"
	End If 
End If 
%>

<!--内容结束-->
<!--#include file="../Include/bottom.asp"-->
</div>
</body>
</html>

⌨️ 快捷键说明

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