📄 allshow_emly.asp
字号:
<%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();
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: 185px;">
<!--内容开始-->
<%
call checkin_sys(session("UsersId"),session("PerId"),19)
dim op,i,id,rs
op=Request.QueryString("op")
if op="" then
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel where personnel_id="&id,conn,1,1
%>
<form name="myform" method="post" action="Allshow_emly.asp?op=1&id=<%=rs("personnel_id")%>" 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%"><%=rs(0)%></td>
<td width="9%"> </td>
<td width="23%"> </td>
<td width="18%"> </td>
<td width="18%" rowspan="7">
<%if isnull(rs("personnel_photo")) then%>
<img src="../images/emptybook.gif">
<%else%>
<img src="showimg.asp?id=<%=rs(0)%>" width=100 height=120 border=0>
<%end if%>
</td>
</tr>
<tr>
<td>部门：</td>
<td>
<select name="dept" onChange="ajaxfuct(document.myform.dept.value,'1')" datatype="Require" msg="未选择部门！">
<%
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
if dept_rs.Fields(0).Value=rs(1) then
Response.Write "<option value='"&dept_rs.Fields(0).Value&"' selected />"&dept_rs.Fields(1).Value
else
Response.Write "<option value='"&dept_rs.Fields(0).Value&"' />"&dept_rs.Fields(1).Value
end if
dept_rs.MoveNext
loop
dept_rs.Close
set dept_rs=nothing
%>
</select> </td>
<td> </td>
<td>(图片格式限制为jpg,bmp,gif;</td>
<td>图片大小100K以内)</td>
</tr>
<tr>
<td>岗位：</td>
<td id="pst" colspan="3">
<select name="post" datatype="Require" msg="未选择岗位！">
<%
dim pst_rs
set pst_rs=server.CreateObject("ADODB.recordset")
pst_rs.Open "select post_id,post_name from post where post_id="&rs("post_id"),conn,1,1
Response.Write "<option value='"&pst_rs.Fields(0).Value&"'>"&pst_rs.Fields(1).Value
pst_rs.Close
set pst_rs=nothing
%>
</select> </td>
<td> </td>
</tr>
<tr>
<td>行政级别：</td>
<td id="lve" colspan="3">
<select name="plevel" datatype="Require" msg="未选择行政级别！">
<%
dim lve_rs
set lve_rs=server.CreateObject("ADODB.recordset")
lve_rs.Open "select plevel_id,plevel_name from plevel where plevel_id="&rs("plevel_id"),conn,1,1
Response.Write "<option value='"&lve_rs.Fields(0).Value&"'>"&lve_rs.Fields(1).Value
lve_rs.Close
set lve_rs=nothing
%>
</select> </td>
<td> </td>
</tr>
<tr>
<td>工作性质：</td>
<td id="wopp" colspan="3">
<select name="propertys" datatype="Require" msg="未选择工作性质！">
<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" value="<%=rs("personnel_name")%>" datatype="Chinese" msg="姓名填写错误！" onKeyup="testlen(this,6,0)"></td>
<td><span class="STYLE2 STYLE1">*</span>性别：</td>
<td>
<select name="sex" datatype="Require" msg="未选择性别！">
<option value="男" <%
if rs("personnel_sex")="男" then
Response.Write "selected"
end if
%> >男
<option value="女" <%
if rs("personnel_sex")="女" then
Response.Write "selected"
end if
%>>女
</select> </td>
<td> </td>
</tr>
<tr>
<td><span class="STYLE2 STYLE1">*</span>出生日期：</td>
<td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -