📄 employeeinfo.asp
字号:
<%
dim OptId,EmpNum,EmpName,EmpSNum
OptID=Request.Form("txtOpt")
if OptID="" then
OptID=0
else
OptID=cint(OptID)
EmpNum=Request.Form("txtSNum") '登录名
EmpName=Request.Form("txtName") '姓名
EmpSNum=Request.Form("txtNum") 'ID
' Response.Write EmpSNum
end if
' Response.Write OptID
dim Conn,rsEmployee,strSql,DbPath
set Conn=server.CreateObject("ADODB.CONNECTION")
DbPath = SERVER.MapPath("Database\HrManager.mdb")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rsEmployee=server.CreateObject("ADODB.RECORDSET")
select case OptID
'浏览
case "0"
'添加
case "1"
strSql="select * from EmployeeTable"
rsEmployee.Open strSql,Conn,3,2
rsEmployee.AddNew
rsEmployee("Employee_Name")=EmpName
rsEmployee.Update()
rsEmployee.close()
strSql="select * from EmployeeTable where Employee_Name='"&EmpName&"' order by Employee_ID desc"
rsEmployee.Open strSql,Conn,3,1
'response.write(strSql)
'response.end()
num=rsEmployee("Employee_ID")
rsEmployee.close()
strSql="select * from UserTable"
rsEmployee.Open strSql,Conn,3,2
rsEmployee.AddNew
rsEmployee("User_ID")=EmpNum
rsEmployee("Employee_ID")=num
rsEmployee("User_Password")="123456789"
rsEmployee("User_Power")=3
rsEmployee.Update()
rsEmployee.close()
strSql="select * from EmployeeBasicTable"
rsEmployee.Open strSql,Conn,3,2
rsEmployee.AddNew
rsEmployee("Employee_ID")=Num
rsEmployee.Update()
rsEmployee.close()
strSql="select * from EmployeeWorkTable"
rsEmployee.Open strSql,Conn,3,2
rsEmployee.AddNew
rsEmployee("Employee_ID")=Num
rsEmployee.Update()
rsEmployee.close()
response.write(chr(13)&"<script language='javascript'>")
response.write(chr(13)&"alert('新建用户成功！\n\n登录名："&EmpNum&"\n\n密码：123456789');")
response.write(chr(13)&"</script>")
'修改
case "2"
strSql="select * from EmployeeTable where Employee_ID="&EmpSNum
rsEmployee.Open strSql,Conn,3,2
rsEmployee("Employee_Name")=EmpName
rsEmployee.Update()
rsEmployee.close()
strSql="select * from UserTable where Employee_ID="&EmpSNum
rsEmployee.Open strSql,Conn,3,2
rsEmployee("User_ID")=EmpNum
rsEmployee.Update()
rsEmployee.close()
'删除
case "3"
strSql="select * from EmployeeTable where Employee_ID="&EmpSNum
rsEmployee.Open strSql,Conn,3,2
rsEmployee.Delete()
rsEmployee.Update()
rsEmployee.close()
strSql="select * from EmployeeBasicTable where Employee_ID="&EmpSNum
rsEmployee.Open strSql,Conn,3,2
rsEmployee.Delete()
rsEmployee.Update()
rsEmployee.close()
strSql="select * from EmployeeWorkTable where Employee_ID="&EmpSNum
rsEmployee.Open strSql,Conn,3,2
rsEmployee.Delete()
rsEmployee.Update()
rsEmployee.close()
strSql="select * from UserTable where Employee_ID="&EmpSNum
rsEmployee.Open strSql,Conn,3,2
rsEmployee.delete()
rsEmployee.Update()
rsEmployee.close()
end select
strSql="select * from EmployeeView order by Employee_ID"
rsEmployee.open strSql,Conn,3,1
if EmpNum="" then
EmpNum=rsEmployee("Employee_ID")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="headfiles/text.css" rel="stylesheet" type="text/css">
<title></title>
<SCRIPT language=JavaScript>
<!--
if (navigator.appName.indexOf("Internet Explorer") != -1)
document.onmousedown = noSourceExplorer;
function noSourceExplorer(){if (event.button == 2 | event.button == 3)
{
//alert("版权所有，严禁拷贝！");
}}
// -->
<!--
function EmpView(){
frmEmployeeInfo.btnGo.focus();
}
function employeeView(){
if (frmEmployeeInfo.sltEmpNum.value=='0'){
alert("您还没有选择职工！");
return false;
}
frmEmployeeInfo.txtOpt.value=0;
window.open ("BasicInfo.asp?Eid="+frmEmployeeInfo.sltEmpNum.value,"submain");
}
function employeeNew(){
frmEmployeeInfo.sltEmpNum.value='0';
frmEmployeeInfo.btnGo.disabled=true;
frmEmployeeInfo.txtOpt.value=1;
frmEmployeeInfo.txtNum.value="";
frmEmployeeInfo.txtName.value="";
TdOpt.style.display="none";
TdOpt2.style.display="block";
}
function employeeModify(){
var EmployeeNum;
EmployeeNum=frmEmployeeInfo.sltEmpNum.value;
if (frmEmployeeInfo.sltEmpNum.value=='0'){
alert("您还没有选择职工！");
return false;
}
frmEmployeeInfo.btnGo.disabled=true;
frmEmployeeInfo.sltEmpName.selectedIndex=frmEmployeeInfo.sltEmpNum.selectedIndex;
frmEmployeeInfo.sltEmpID.selectedIndex=frmEmployeeInfo.sltEmpNum.selectedIndex;
frmEmployeeInfo.txtOpt.value=2
frmEmployeeInfo.txtSNum.value=EmployeeNum;
frmEmployeeInfo.txtNum.value=frmEmployeeInfo.sltEmpID.value;
frmEmployeeInfo.txtName.value=frmEmployeeInfo.sltEmpName.value;
TdOpt.style.display="none";
TdOpt2.style.display="block";
}
function employeeDel(){
if (frmEmployeeInfo.sltEmpNum.value=='0'){
alert("您还没有选择职工！");
return false;
}
frmEmployeeInfo.txtSNum.value=frmEmployeeInfo.sltEmpNum.value;
frmEmployeeInfo.sltEmpName.selectedIndex=frmEmployeeInfo.sltEmpNum.selectedIndex;
frmEmployeeInfo.sltEmpID.selectedIndex=frmEmployeeInfo.sltEmpNum.selectedIndex;
var msg;
msg=confirm("您的操作将删除如下信息：\n\n登录名："+frmEmployeeInfo.txtSNum.value+"\n职工姓名："+frmEmployeeInfo.sltEmpName.value+"\n\n确实要删除这个记录吗？")
if(msg==false){
return false;
}
frmEmployeeInfo.btnGo.disabled=true;
frmEmployeeInfo.txtOpt.value=3
frmEmployeeInfo.submit();
}
function employeeCancel(){
TdOpt.style.display="block";
TdOpt2.style.display="none";
frmEmployeeInfo.btnGo.disabled=false;
}
function employeeSave(){
if ((frmEmployeeInfo.txtNum.value).length==0){
alert("您还没有输入职工编号！");
frmEmployeeInfo.txtNum.focus();
return false;
}
if ((frmEmployeeInfo.txtName.value).length==0){
alert("您还没有输入职工姓名！");
frmEmployeeInfo.txtName.focus();
return false;
}
var msg;
msg=confirm("您的操作将保存如下信息：\n\n登录名："+frmEmployeeInfo.txtNum.value+"\n职工姓名："+frmEmployeeInfo.txtName.value+"\n\n确实要保存这个记录吗？")
if(msg==false){
return false;
}
frmEmployeeInfo.btnGo.disabled=false;
frmEmployeeInfo.submit();
}
//-->
</SCRIPT>
</head>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<div align="center">
<form id=frmEmployeeInfo name=frmEmployeeInfo action=EmployeeInfo.asp method=post>
<table width="600" height="425" background="images\bg.gif" class="title3" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="65" class="title2" align="center" background="images\margin4.gif">导航栏</td>
<td width="535" colspan="2" bgcolor="#6699ff" align="middle" height="35" class="title5">员工信息管理</td>
</tr>
<tr><td width="65" height=0 bgcolor="#6699ff"></td><td width="205" bgcolor="#6699ff"></td><td width="330" bgcolor="#6699ff"></td></tr>
<%
Response.Write chr(10)&chr(13)&"<tr>"
Response.Write chr(10)&chr(13)&"<td colspan='3'>"
Response.Write chr(10)&chr(13)&"<IFRAME name='submain' src='BasicInfo.asp?Eid="&rsEmployee("Employee_ID")&"' scrolling=no marginwidth=0 marginheight=0 frameborder=0 vspace=0 hspace=0 width=600 height=360>"
Response.Write chr(10)&chr(13)&"</IFRAME>"
Response.Write chr(10)&chr(13)&"</td>"
Response.Write chr(10)&chr(13)&"</tr>"
Response.Write chr(10)&chr(13)&"<tr>"
Response.Write chr(10)&chr(13)&"<td bgcolor='#0099CC' width='270' height='30' colspan='2'> 职工：<select id='sltEmpNum' name='sltEmpNum' style='width:160px;height:25px'>"
Response.Write chr(10)&chr(13)&"<option value='0'></option>"
while not rsEmployee.BOF and not rsEmployee.EOF
Response.Write chr(10)&chr(13)&"<option value='"& rsEmployee("Employee_ID") &"'>"& rsEmployee("Employee_ID") &"（"& rsEmployee("Employee_Name") &"）"&"</option>"
rsEmployee.MoveNext()
wend
rsEmployee.MoveFirst()
Response.Write "</select><select id=sltEmpName name=sltEmpName style='width:5px;visibility:hidden'>"
Response.Write chr(10)&chr(13)&"<option value='0'></option>"
while not rsEmployee.BOF and not rsEmployee.EOF
Response.Write chr(10)&chr(13)&"<option value='"& rsEmployee("Employee_Name") &"'>"& rsEmployee("Employee_Name") &"</option>"
rsEmployee.MoveNext()
wend
rsEmployee.MoveFirst()
Response.Write "</select><select id=sltEmpID name=sltEmpID style='width:5px;visibility:hidden'>"
Response.Write chr(10)&chr(13)&"<option value='0'></option>"
while not rsEmployee.BOF and not rsEmployee.EOF
Response.Write chr(10)&chr(13)&"<option value='"& rsEmployee("User_ID") &"'>"& rsEmployee("User_ID") &"</option>"
rsEmployee.MoveNext()
wend
rsEmployee.MoveFirst()
Response.Write chr(10)&chr(13)&"</select><script>"
Response.write chr(10)&chr(13)&"frmEmployeeInfo.sltEmpNum.value='"&EmpNum&"';"
Response.Write chr(10)&chr(13)&"</script>"
%>
<input id=txtOpt name=txtOpt style="width:5px;height:22px;visibility:hidden"><input id=txtSNum name=txtSNum style="width:5px;height:22px;visibility:hidden"><input type="button" id="btnGo" name="btnGo" style="width:30px;height:22px" value="GO" onclick="employeeView();"></td>
<td id=TdOpt bgcolor="#0099CC" width="330" align=center><input type="button" id="btnNew" name="btnNew" style="width:60px;height:22px" value="添加员工" onclick="employeeNew();">
<input type="button" id="btnModify" name="btnModify" style="width:60px;height:22px" value="修改员工" onclick="employeeModify();">
<input type="button" id="btnDel" name="btnDel" style="width:60px;height:22px" value="删除员工" onclick="employeeDel();"></td>
<td id=TdOpt2 bgcolor="#0099CC" width="330" align=center>登录名<input id="txtNum" name="txtNum" style="width:90px;height:22px"> 姓名<input id="txtName" name="txtName" style="width:50px;height:22px">
<input type="button" id="btnSave" name="btnSave" style="width:40px;height:22px" value="保存" onclick="employeeSave();">
<input type="button" id="btnCancel" name="btnCancel" style="width:40px;height:22px" value="取消" onclick="employeeCancel();"></td></tr>
</table>
<script language="javascript">
TdOpt2.style.display="none";
</script>
</form>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -