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

📄 pstudy.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/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"),20)
		Pid=request.QueryString("Pid")
		set res=server.CreateObject("adodb.recordset")
		res.open "select * from pstudy where personnel_id="&Pid&"",conn,1,1 
		'If res.eof And res.bof Then
		'response.write "<center>数据库中没有数据!</center>" 
		'else	
	%>
	<form name="form1" method="post" action="Pstudy.asp?Pid=<%=res(0)%>">
	    <table width="80%" 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="Pstudy_list.asp?id=<%=res("personnel_id")%>">学习档案维护</a>--&gt;
				学习档案修改	
			</td>
          </tr>
          <tr> 
            <td width="22%"><div align="right">员工编号:</div></td>
            <td width="78%"><%=res("personnel_id")%></td>
          </tr>
          <tr> 
            <td><div align="right">培训机构名称:</div></td>
            <td><input name="ename" type="text" size="15" value=<%=res("study_ename")%>></td>
          </tr>
          <tr> 
            <td><div align="right">开始培训时间:</div></td>
            <td><input name="times" type="text" size="15" value=<%=res("study_sdate")%> onFocus="javascript:ShowCalendar(this.name)">
            </td>
          </tr>
          <tr> 
            <td height="16"><div align="right">毕业时间:</div></td>
            <td><input type="text" name="timel"value=<%=res("study_ldate")%> onFocus="javascript:ShowCalendar(this.name)">
			</td>
          </tr>
          <tr> 
            <td height="16"><div align="right">培训情况:</div></td>
            <td><input type="text" name="realize" value=<%=res("study_realize")%>></td>
          </tr>
          <tr> 
            <td valign="top"><div align="right">备注: </div></td>
            <td><textarea name="remark" cols="40" rows="10"><%=res("study_remark")%></textarea></td>
          </tr>
          <tr>
            <td colspan="2">
              <div align="center">
                <input type="submit" name="Submit" value="提交" class="button">&nbsp;&nbsp;
                <input type="reset" name="Submit22" value="重置" class="button">
                </div></td>
          </tr>
          <tr>
            <td colspan="2">&nbsp;</td>
          </tr>
          <tr>
            <td colspan="2" class="td1"><div align="center"><a href="Pstudy_list.asp?id=<%=res(1)%>">返回</a></div></td>
          </tr>
        </table>
     </form>
<%
res.close
Set res=Nothing 
%>	
<%
	'End If 
	If request.Form("Submit")<>"" then
	Pid =request.QueryString("Pid")
	ename = Trim(Request.Form ("ename"))
	sdate = Trim(Request.Form ("times"))
	ldate = Trim(Request.Form ("timel"))
	realize = Trim(Request.Form ("realize"))
	remark = Trim(Request.Form ("remark"))
		If ename<>"" Then	
			Set res=server.CreateObject("adodb.recordset")
			res.open "update Pstudy set study_ename='"&ename&"',study_sdate='"&sdate&"',study_ldate='"&ldate&"',study_realize='"&realize&"',study_remark='"&remark&"' where study_id="&Pid&"",conn,3,3
		response.redirect("Pstudy_js.asp?Pid="&Pid&"")
		Else 
			response.write "<script>alert('培训机构名称:不能为空');window.location.href('Pstudy.asp?Pid="&Pid&"');</script>"
		End If 
	End If 
%>



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

⌨️ 快捷键说明

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