📄 allshow_add.asp
字号:
<%@Language=VBscript TRANSACTION="Required"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>人力资源管理系统</title>
<link href="../Include/type.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<script type="text/javascript" src="../Include/regtest.js"></script>
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script type="text/javascript">
function ajaxfuct(num,op)
{ // 创建AJAX对象
var ajaxobj=new AJAXRequest();
//alert(num);
ajaxobj.method="post";
// 设置回调函数，输出响应内容
ajaxobj.callback=function(xmlobj)
{
if (op=="1")
{
document.getElementById("pst").innerHTML=xmlobj.responseText;
document.getElementById("lve").innerHTML="<select name='plevel' datatype='Require' msg='未选择行政级别'><option value=''>-请选择-</select>"
}
if (op=="2")
{
document.getElementById("lve").innerHTML=xmlobj.responseText;
}
}
// 发送请求
ajaxobj.send("Allshow_emly_bk.asp?hi="+num+"&op="+op);
}
function recheck()
{
if (document.photo.file.value=="")
{
alert("未选择图片！");
}
else
{
document.photo.submit();
}
}
</SCRIPT>
<script type="text/javascript" src="date.js"></script>
<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: 180px;">
<!--内容开始-->
<%
call checkin_sys(session("UsersId"),session("PerId"),37)
dim id,rs
id=Request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel",conn,1,1
%>
<form name="myform" method="post" action="Allshow_add.asp?id=add" onSubmit="return Validator.Validate(this,2)">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="9%"> </td>
<td width="23%"> </td>
<td width="9%"> </td>
<td width="23%"> </td>
<td width="18%"> </td>
<td width="18%" rowspan="7"> </td>
</tr>
<tr>
<td>部门：</td>
<td>
<select name="dept" onChange="ajaxfuct(document.myform.dept.value,'1')" datatype="Require" msg="未选择部门！">
<option value="">-请选择-
<%
dim dept_rs
set dept_rs=server.CreateObject("adodb.recordset")
dept_rs.Open "select dept_id,dept_name from dept where dept_state='启用' and dept_level<>1",conn,3,3
do while not dept_rs.EOF=true
Response.Write "<option value="&dept_rs(0)&">"&dept_rs.Fields(1).Value
dept_rs.MoveNext
loop
dept_rs.Close
set dept_rs=nothing
%>
</select> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>岗位：</td>
<td id="pst" colspan="3">
<select name='post' datatype="Require" msg="未选择岗位！"><option value=''>-请选择-</select>
</td>
<td> </td>
</tr>
<tr>
<td>行政级别：</td>
<td id="lve" colspan="3">
<select name='plevel' datatype="Require" msg="未选择行政级别！"><option value=''>-请选择-</select>
</td>
<td>
</td>
</tr>
<tr>
<td>工作性质：</td>
<td id="wopp" colspan="3">
<select name="propertys" datatype="Require" msg="未选择工作性质！">
<option selected>-请选择-</option>
<option value="全职" <%
if rs("work_property")="全职" then
response.Write("selected")
end if
%>>全职
<option value="兼职" <%
if rs("work_property")="兼职" then
response.Write("selected")
end if
%>>兼职
<option value="临时" <%
if rs("work_property")="临时" then
response.Write("selected")
end if
%>>临时
</select>
</td>
<td> </td>
</tr>
<tr>
<td><span class="STYLE2 STYLE1">*</span>姓名：</td>
<td><INPUT type="text" name="name1" size="10" datatype="Chinese" msg="姓名填写错误！" onKeyup="testlen(this,6,0)"></td>
<td><span class="STYLE2 STYLE1">*</span>性别：</td>
<td><select name="sex" datatype="Require" msg="未选择性别！">
<option selected>-请选择-</option>
<option value="男"<%
if rs("personnel_sex")="男" Then
End if
%>>男
<option value="女"<%
If rs("personnel_sex")="女" Then
End if
%>>女
</select>
</td>
<td> </td>
</tr>
<tr>
<td><span class="STYLE2 STYLE1">*</span>出身日期：</td>
<td>
<input type="text" name="birthday" size="10" onFocus="javascript:ShowCalendar(this.name)">
</td>
<td><span class="STYLE2 STYLE1">*</span>籍贯：</td>
<td><input name="hometown" type="text" size="8" datatype="Chinese" msg="籍贯填写错误！" onKeyUp="testlen(this,10,0)"></td>
<td> </td>
</tr>
<tr>
<td>民族：</td>
<td><input name="nation" type="text" size="8" datatype="Chinese" msg="民族填写错误！" onKeyUp="testlen(this,5,0)"></td>
<td><span class="STYLE2 STYLE1">*</span>婚姻状况：</td>
<td><select name="marry" datatype="Require" msg="未选择婚姻状况！">
<option>-请选择-</option>
<option value="已婚">已婚</option>
<option value="未婚">未婚</option>
<option value="离异">离异</option>
</select> </td>
<td><div align="right">专业：</div>
</td>
<td><input name="major" type="text" maxlength="8" size="15" datetype="Chinese" msg="专业输入错误！" ></td>
</tr>
<tr>
<td height="23">政治面貌：</td>
<td><input name="political" type="text" size="8" datatype="Chinese" msg="政治面貌填写错误！" onKeyUp="testlen(this,3,0)"></td>
<td><span class="STYLE2 STYLE1">*</span>身份证号：</td>
<td><input type="text" name="idcode" datatype="IdCard" msg="身份证号填写错误！" onKeyUp="testlen(this,18,0)"></td>
<td><div align="right"><span class="STYLE2 STYLE1">*</span>邮政编码：</div></td>
<td><input name="postcode" type="text" size="8" datatype="Zip" msg="邮政编码填写错误！" onKeyUp="testlen(this,6,0)"></td>
</tr>
<tr>
<td><span class="STYLE2 STYLE1">*</span>最高学历：</td>
<td><input name="educ" type="text" size="8" datatype="Chinese" msg="最高学历填写错误！" onKeyUp="testlen(this,6,0)"></td>
<td>毕业院校：</td>
<td><input type="text" name="graduate" datatype="Chinese" msg="毕业院校填写错误" onKeyUp="testlen(this,25,0)"></td>
<td><div align="right">EMAIL：</div></td>
<td><input name="email" type="text" size="15" datatype="Email" msg="Email 格式不正确！" onKeyUp="testlen(this,25,0)"></td>
</tr>
<tr>
<td><span class="STYLE2 STYLE1">*</span>家庭住址：</td>
<td><input type="text" name="address" datatype="CEN" msg="家庭住址填写错误！" onKeyUp="testlen(this,30,0)"></td>
<td>住宅电话：</td>
<td><input name="fphone" type="text" size="12" datatype="Phone" msg="住宅电话填写错误！" onKeyUp="testlen(this,12,0)"></td>
<td><div align="right">移动电话：</div></td>
<td><input name="mphone" type="text" size="12" datatype="Mobile" msg="移动电话填写错误！" onKeyUp="testlen(this,11,0)"></td>
</tr>
<tr>
<%
Dim res
id=request.QueryString("id")
Set res=server.CreateObject("adodb.recordset")
res.open "select * from techpost",conn,1,1
%>
<td><span class="STYLE2 STYLE1">*</span>职称：</td>
<td id="leve" >
<select name="level" datatype="Require" msg="未选择职称！">
<option>-请选择-</option>
<%
While Not res.eof
response.write"<option value='"&res(0)&"'>"&res(1)
res.movenext
Wend
%>
</td>
<td>技术技能：</td>
<td><input type="text" name="skill" datatype="CEN" msg="技术技能填写错误！" onKeyUp="testlen(this,20,0)"></td>
<td><div align="right"><span class="STYLE2 STYLE1">*</span>是否部门负责人：</div></td>
<td><select name="deptman" datatype="Require" msg="未选择是否部门负责人！">
<option>-请选择-</option>
<option value="1">是</option>
<option value="0">否</option>
</select> </td>
</tr>
<tr>
<td>入职时间：</td>
<td><input name="sdate" type="text" size="10" onFocus="javascript:ShowCalendar(this.name)"></td>
<td>员工状态</td>
<td><select name="state1" datatype="Require" msg="未选择员工状态！">
<option>-请选择-</option>
<option value="在职">在职</option>
<option value="试用">试用</option>
</select> </td>
<td><div align="right"></div></td>
<td> </td>
</tr>
<tr>
<td valign="top">个人描述：</td>
<td colspan="5"><textarea name="descript" cols="95" rows="3" datatype="CEN" msg="个人描述填写错误！" onKeyUp="testlen(this,150,0)"></textarea></td>
</tr>
<tr>
<td colspan="6"><div align="center">
<input type="submit" name="Submit2" value="提交" class="button">
<input type="reset" name="Submit3" value="重置" class="button">
</div></td>
</tr>
<tr>
<td colspan="6"> </td>
</tr>
<tr>
<td colspan="6"><div align="center"><a href="Search_emly.asp">返回</a></div></td>
</tr>
</table>
</form></div>
<%
rs.Close
res.Close
Set rs=Nothing
Set res=Nothing
%>
<%
id=request.QueryString("id")
If id<>"" then
Dim dept,post,plevelid,propertys,name1,sex,birthday,hometown,nation,marry,major,political,idcode,postcode,educ,graduate,email,address,fphone,mphone,level,skill,deptman,state1,descript,sql,sdate
'if request.Form("submit")<>"" then
'psonid=trim(request.Form("psonid"))
dept=trim(request.Form("dept"))
post=trim(request.Form("post"))
plevelid=trim(request.form("plevel"))
propertys=trim(request.form("propertys"))
name1=trim(request.Form("name1"))
sex=trim(request.Form("sex"))
birthday=trim(request.Form("birthday"))
hometown=trim(request.Form("hometown"))
nation=trim(request.Form("nation"))
marry=trim(request.Form("marry"))
major=trim(request.Form("major"))
political=trim(request.Form("political"))
idcode=trim(request.Form("idcode"))
postcode=trim(request.Form("postcode"))
educ=trim(request.Form("educ"))
graduate=trim(request.Form("graduate"))
email=trim(request.Form("email"))
address=trim(request.Form("address"))
fphone=trim(request.Form("fphone"))
mphone=trim(request.Form("mphone"))
level=trim(request.Form("level"))
skill=trim(request.Form("skill"))
sdate=Trim(request.Form("sdate"))
deptman=trim(request.Form("deptman"))
state1=Trim(request.Form("state1"))
descript=trim(request.form("descript"))
'If dept<>"" And post<>"" and name1<>"" and deptman<>"" and sex<>"" and birthday<>"" and educ<>"" and marry<>"" and idcode<>"" and hometown<>"" and level<>"" and skill<>"" Then
set rs = server.CreateObject("ADODB.recordset")
'on error Resume Next
'sql="insert into personnel(dept_id,post_id,plevel_id,personnel_name,personnel_deptman,personnel_nation,personnel_sex,personnel_birthday,personnel_idcode,personnel_political,personnel_hometown,personnel_educ,personnel_marry,personnel_address,personnel_postcode,personnel_mphone,personnel_fphone,personnel_email,personnel_level,personnel_skill,personnel_sdate,personnel_descript,personnel_graduate) values('"&dept&"','"&post&"','"&plevelid&"','"&name1&"','"&deptman&"','"&nation&"','"&sex&"','"&birthday&"','"&idcode&"','"&political&"','"&hometown&"','"&educ&"','"&marry&"','"&address&"','"&postcode&"','"&mphone&"','"&fphone&"','"&email&"','"&level&"','"&skill&"','"&sdate&"','"&descript&"','"&graduate&"')"
rs.open "insert into personnel(dept_id,post_id,plevel_id,work_property,personnel_name,personnel_deptman,personnel_nation,personnel_sex,personnel_birthday,personnel_idcode,personnel_political,personnel_hometown,personnel_educ,personnel_marry,personnel_major,personnel_address,personnel_postcode,personnel_mphone,personnel_fphone,personnel_email,personnel_level,personnel_skill,personnel_sdate,personnel_descript,personnel_state,personnel_graduate) values('"&dept&"','"&post&"','"&plevelid&"','"&propertys&"','"&name1&"',"&deptman&",'"&nation&"','"&sex&"','"&birthday&"','"&idcode&"','"&political&"','"&hometown&"','"&educ&"','"&marry&"','"&major&"','"&address&"','"&postcode&"','"&mphone&"','"&fphone&"','"&email&"','"&level&"','"&skill&"','"&sdate&"','"&descript&"','"&state1&"','"&graduate&"')",conn,3,3
rs.Open "exec InsertUser",conn,3,3
if err.number<>0 then
objectContext.setAbort
response.Write "<script language=javascript> alert('添加失败!');histroy.go(-1);</script>"
else
objectContext.setComplete
response.Write "<script language=javascript> alert('添加成功!');location.href='Search_emly.asp';</script>"
end if
response.Write sql
response.End
response.redirect("Search_emly.asp")
'Else
'End If
End If
%>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -