📄 empedit.asp
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑员工信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.empname.value==""){
alert("请输入员工姓名！");
form1.empname.focus;
return false;
}
return true;
}
function newswin(url) {
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=300,top=300";
oth = oth+",width=500,height=100" ;
var newswin=window.open(url,"newswin",oth);
return false;
}
</Script>
</head>
<%
Dim EmpName,Sex,Nationality,Birth,Academic,Marital,Original,Id_Card,Title,HireDate,Office_phone,Mobile,Memo,State
Dim Action
'变量初始化
Action = "add"
EmpName = ""
Sex = "男"
Nationality = ""
Birth = ""
Academic = ""
Marital = ""
Original = ""
Id_Card = ""
Title = ""
HireDate = Date
Office_phone = ""
Mobile = ""
Memo = ""
State = "在职"
Dim EmpId,DepId,DepName,UId,UpperDepName
'读取参数did
DepId = Request.QueryString("did")
If DepId <> "" Then
Set rs = Server.CreateObject("ADODB.RECORDSET")
'读取此部门信息
sql = "Select * From Departments Where DepId=" & DepId
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
DepName = rs("DepName")
UId = rs("UpperId")
'判断此部门是否为一级部门，如果不是，则读取其上级部门名称
If UId>0 Then
sql = "Select * From Departments Where DepId=" & UId
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
UpperDepName = rs("DepName") & " - "
End If
Else
UpperDepName = ""
End If
DepName = UpperDepName & DepName
End If
Else
Response.End()
End If
'读取参数action
Action = Request.QueryString("action")
EmpId = Request.QueryString("eid")
'编辑员工记录
If Action = "edit" Then
'设置SELECT语句，读取记录数据
sql = "Select * From Employees Where EmpId=" & EmpId
' Response.Write sql&Action
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
EmpName = rs("EmpName")
Sex = rs("Sex")
Nationality = rs("Nationality")
Birth = rs("Birth")
Academic = rs("Academic")
Marital = rs("Marital")
Original = rs("Original")
Id_Card = rs("Id_Card")
Title = rs("Title")
HireDate = rs("HireDate")
Office_phone = rs("Office_phone")
Mobile = rs("Mobile")
Memo = rs("Memo")
State = rs("State")
iname = rs("ImageFile")
End If
End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="EmpSave.asp?action=<%=Action%>&eid=<%=EmpId%>" onsubmit="return CheckFlds()">
<br>
<table align="center" border="1" cellspacing="0" width="96%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="../pic/empedit.jpg" height="90" width="90%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6">员工基本信息</font></b></p>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">员工姓名</td>
<td width="30%"><input type="text" name="empname" size="20" value="<%=EmpName%>"> </td>
<td colspan="2" rowspan="6" align=left><center>
<%If iname = "" Or ISNULL(iname) Then
url = "EditUpload.asp?eid="&EmpId %>
<a href=# onclick="newswin('<%=url%>')" alt="设置照片"><font color=blue>无照片</font></a>
<%Else
url = "EditUpload.asp?eid=" & EmpId
url_delt = "EmpImageDelt.asp?eid=" & EmpId
%>
<img src="images\<%=iname%>" width="120" border=0><br><br>
<a href=# onclick="newswin('<%=url%>')">设置照片</a>
<a href=# onclick="newswin('<%=url_delt%>')">删除照片</a>
<%End If%></center></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">部门名称</td>
<td><%=DepName%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">当前状态</td>
<td><select size="1" name="state">
<option selected value="<%=State%>"><%=State%></option>
<option value="在职">在职</option>
<option value="离职">离职</option>
</select></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">性别</td>
<td><select size="1" name="sex">
<option selected value="<%=Sex%>"><%=Sex%></option>
<option value="男">男</option>
<option value="女">女</option>
<option value="不限">不限</option>
</select></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">民族</td>
<td><input type="text" name="nationality" size="20" value="<%=Nationality%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">出生日期</td>
<td><input type="text" name="birth" size="20" value="<%=Birth%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">学历</td>
<td><select size="1" name="academic">
<option selected value="<%=Academic%>"><%=Academic%></option>
<option value="本科">本科</option>
<option value="大专">大专</option>
<option value="硕士">硕士</option>
<option value="博士">博士</option>
<option value="高中">高中</option>
<option value="中专">中专</option>
</select></td>
<td width="20%" bgcolor="#CEE7FF">婚姻状况</td>
<td width="30%"><select size="1" name="marital">
<option selected value="<%=Marital%>"><%=Marital%></option>
<option value="未婚">未婚</option>
<option value="已婚">已婚</option>
</select></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">户口所在地</td>
<td><input type="text" name="original" size="20" value="<%=Original%>"> </td>
<td bgcolor="#CEE7FF">身份证号码</td>
<td><input type="text" name="id_card" size="20" value="<%=Id_Card%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">职务</td>
<td><input type="text" name="title" size="10" value="<%=Title%>"> </td>
<td bgcolor="#CEE7FF">工作日期</td>
<td><input type="text" name="hiredate" size="20" value="<%=HireDate%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">办公电话</td>
<td><input type="text" name="office" size="20" value="<%=Office_phone%>"> </td>
<td bgcolor="#CEE7FF">移动电话</td>
<td><input type="text" name="mobile" size="20" value="<%=Mobile%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF" >备注</td>
<td colspan="3"><textarea rows="4" name="memo" cols="50"><%=Memo%></textarea>
<input type="hidden" name="depid" size="10" value="<%=DepId%>"></td>
</tr>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -