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

📄 card_add.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"-->
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left: 48px; top: 190px;">
<!--内容开始-->
<%
call checkin_sys(session("UsersId"),session("PerId"),23)
id=request.QueryString("id")
Set res=server.CreateObject("adodb.recordset")
res.open "select * from certificate",conn,1,1
%>
<script type="text/javascript" src="date.js"></script>
<script type="text/javascript">
</script>
<form name="form1" method="post" action="Card_add.asp?id=<%response.write id%>">
<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=<%response.write id%>">员工搜索</a>--&gt;
		<a href="Search.asp?id=<%response.write id%>">档案维护</a>--&gt;
		<a href="Card_list.asp?id=<%response.write id%>">证照维护</a>--&gt;
		<a href="Card_add.asp?id=<%response.write id%>">证照添加</a>
	</td>
  </tr>
  <tr> 
	<td width="18%"><div align="right">员工编号：</div></td>
	<td width="82%"><%response.write id%></td>
  </tr>
  <tr> 
	<td><div align="right">证照名称：</div></td>
	<td>
	<select name="CardId">
		
		<%
			While Not res.eof
				response.write"<option value='"&res(0)&"'>"&res(1)
				res.movenext
			Wend 
		%>
	</select>
	</td>
  </tr>

  <tr> 
	<td><div align="right">有效期</div></td>
	<td>
		<input name="times" type="text" size="15" onFocus="javascript:ShowCalendar(this.name)">
	</td>
  </tr>
  <tr> 
	<td><div align="right">证件编号</div></td>
	<td><input type="text" name="numbers"></td>
  </tr>
  <tr> 
	<td>
<div align="right">发证机构</div></td>
	<td><input type="text" name="place"></td>
  </tr>
  <tr> 
	<td valign="top"> 
	  <div align="right">备注： </div></td>
	<td><textarea name="remark" cols="45" rows="10"></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>&nbsp;</td>
	</tr>

  <tr>
    <td colspan="2" class="td1"><div align="center"><a href="Card_list.asp?id=<%response.write id%>">返回</a></div></td>
  </tr>
</table>
</form>
<%
If request.Form("Submit")<>"" then
id = request.QueryString("id")
cardid = Trim(Request.Form("CardId"))
times = Trim(Request.Form("times"))
numbers = Trim(Request.Form("numbers"))
place = Trim(Request.Form("place"))
remark = Trim(Request.Form("remark"))
	If numbers<>"" And place<>"" Then
		Set res=server.CreateObject("adodb.recordset")
		res.open "insert into card (personnel_id,certificate_id,card_time,card_number,card_place,card_remark) values ("&id&","&cardid&",'"&times&"','"&numbers&"','"&place&"','"&remark&"')",conn,3,3
	response.redirect("card_list.asp?id="&id&"")
	Else 
	response.write "<script>alert('证件编号和发证机构不能为空');window.location.href('Card_add.asp?id="&id&"');</script>"
	End If 
End If 
%>
<%
res.close
Set res=Nothing
%>
<!--内容结束-->
<!--#include file="../Include/bottom.asp"-->
</div>
</body>
</html>

⌨️ 快捷键说明

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