editsave.asp

功能齐全的oa系统

<!--#include virtual="Include/dataenvi.asp"-->
<!--#include virtual="Include/MyFunc.asp"-->
<%
dim UserName,Sex,People,Birth,HKAddress,PoliticalVisage,IDCard,Married,EducationStyle,GraduateSchool
dim Speciality,GraduateTime,WorkTime,ForLan,Tel,Department,E_mail,Address,Zip,StudyProcess
dim WorkProcess,SocialRelation,Des,Id
dim Station,GraduateDegree,Degree,TechDegree,Company
dim BirthAddress,SpecType,TechDegreeName,TrainProcess

BirthAddress=trim(request("BirthAddress"))
SpecType=trim(request("SpecType"))
TechDegreeName=trim(request("TechDegreeName"))
TrainProcess=trim(request("TrainProcess"))

Station=trim(request("Station"))
GraduateDegree=trim(request("GraduateDegree"))
Degree=trim(request("Degree"))
TechDegree=trim(request("TechDegree"))
Company=request("Company")
Id=request.QueryString("ID")
UserName=trim(request("Name"))
Sex=trim(request("Sex"))
People=trim(request("People"))
Birth=trim(request("Birth"))
HKAddress=trim(request("HKAddress"))
PoliticalVisage=trim(request("PoliticalVisage"))
IDCard=trim(request("IDCard"))
Married=trim(request("Married"))
EducationStyle=trim(request("EducationStyle"))
GraduateSchool=trim(request("GraduateSchool"))
Speciality=trim(request("Speciality"))
GraduateTime=trim(request("GraduateTime"))
WorkTime=trim(request("WorkTime"))
ForLan=trim(request("ForLan"))
Tel=trim(request("Tel"))
Department=trim(request("Department"))
E_mail=trim(request("E_mail"))
Address=trim(request("Address"))
Zip=trim(request("Zip"))
StudyProcess=trim(request("StudyProcess"))
WorkProcess=trim(request("WorkProcess"))
SocialRelation=trim(request("SocialRelation"))
Des=trim(request("Des"))


If Request.Form.Count > 0 Then
	Dim ObjDB,ObjRs,StrSQL
	
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDBH ObjDB
	
	Set ObjRS = Server.CreateObject("Adodb.Recordset")
	
	'从视图中取出存入记录之前的记录值
	
	StrSQL = "Select * From v_Hrms_Employees Where Id = "&Id
	ObjRS.Open StrSQL,ObjDB,1,3
	dim com,comN,dep,depN,sta,staN,techde,techdeN,techdeName,changes,uName
	uName=trim(ObjRS("Name"))
	com=trim(ObjRS("Company"))
	comN=trim(ObjRS("CompanyName"))
	dep=trim(ObjRS("Department"))
	depN=trim(ObjRS("DepName"))
	sta=trim(ObjRS("Station"))
	staN=trim(ObjRS("JobName"))
	techde=trim(ObjRS("TechDegree"))
	if techde=0 then 
		techdeN="无职称"
	else if techde=1 then
			techdeN="高级职称"
		else if techde=2 then 
			 	techdeN="中级职称"
			 else
			 	techdeN="初级职称"
			 end if
		end if
	end if
	techdeName=trim(ObjRS("TechDegreeName"))
	ObjRS.close
		'添加岗位的变动
	StrSQL = "Select * From t_Hrms_Employees_UsersBasic Where Id = "&Id
	ObjRS.Open StrSQL,ObjDB,1,3
	 Dim PCompany,PDepartment,PStation,Flag
	
	Flag=false
	 if ObjRS("Company")<>Company then
	    Flag=true
	end if
	 if ObjRS("Department")<>Department then
	    Flag=true
	end if
	 if ObjRS("Station")<>Station then
	    Flag=true
	end if

    if Flag=true then
		     ObjDB.Execute("insert into t_Hrms_Employees_UserPostChange (PID,Company,Department,Station) values ('"&ObjRS("ID")&"','"&Company&"','"&Department&"','"&Station&"')")
	end if
	ObjRS.close
	'添加岗位的变动结束
	
	'更新记录
	StrSQL = "Select * From t_Hrms_Employees_UsersBasic Where Id = "&Id
	ObjRS.Open StrSQL,ObjDB,1,3
	ObjRS("Name")=UserName        
	ObjRS("Sex")=Sex
	ObjRS("People")=People
	ObjRS("Birth")=Birth
	ObjRS("HKAddress")=HKAddress
	ObjRS("BirthAddress")=BirthAddress
	ObjRS("PoliticalVisage")=PoliticalVisage
	ObjRS("IDCard")=IDCard
	ObjRS("Married")=Married
	ObjRS("EducationStyle")=EducationStyle
	ObjRS("GraduateSchool")=GraduateSchool
	ObjRS("SpecType")=SpecType
	ObjRS("Speciality")=Speciality
	ObjRS("GraduateTime")=GraduateTime
	ObjRS("WorkTime")=WorkTime
	ObjRS("ForLan")=ForLan
	ObjRS("Tel")=Tel
	ObjRS("TechDegreeName")=TechDegreeName
	ObjRS("Company")=Company
	ObjRS("Department")=Department
	ObjRS("Station")=Station
	ObjRS("GraduateDegree")=GraduateDegree
	ObjRS("Degree")=Degree
	ObjRS("TechDegree")=TechDegree
	
	ObjRS("E_mail")=E_mail
	ObjRS("Address")=Address
	ObjRS("Zip")=Zip
	ObjRS("TrainProcess")=TrainProcess
	ObjRS("StudyProcess")=StudyProcess
	ObjRS("WorkProcess")=WorkProcess
	ObjRS("SocialRelation")=SocialRelation
	ObjRS("FinalEditTime")=Now()
	ObjRS("Des")=Des
	ObjRS.Update
	ObjRS.Close
	
	'从视图中取出存入记录之后的记录值
	
	ObjRS.open "Select * From v_Hrms_Employees Where Id = "&Id,ObjDB,1,1
	dim ecom,ecomN,edep,edepN,esta,estaN,etechde,etechdeN,etechdeName,eName
	eName=trim(ObjRS("Name"))
	ecom=trim(ObjRS("Company"))
	ecomN=trim(ObjRS("CompanyName"))
	edep=trim(ObjRS("Department"))
	edepN=trim(ObjRS("DepName"))
	esta=trim(ObjRS("Station"))
	estaN=trim(ObjRS("JobName"))
	etechde=trim(ObjRS("TechDegree"))
	if etechde=0 then 
		etechdeN="无职称"
	else if etechde=1 then
			etechdeN="高级职称"
		else if etechde=2 then 
			 	etechdeN="中级职称"
			 else
			 	etechdeN="初级职称"
			 end if
		end if
	end if
	etechdeName=trim(ObjRS("TechDegreeName"))
	if ecom<>com then
		changes="由"&comN&"的"&depN&"的"&staN&"改为"&ecomN&"的"&edepN&"的"&estaN&"。"
	else if edep<>dep then
			changes="由"&comN&"的"&depN&"的"&staN&"改为"&edepN&"的"&estaN&"。"		
		else if sta<>esta then
				changes="由"&comN&"的"&depN&"的"&staN&"改为"&estaN&"。"
			 end if
		end if
	end if
	if techde<>etechde then
		changes=changes&"职称类别由"&techdeN&"改为"&etechdeN&"。"
	end if
	if techdeName<>etechdeName then
		changes="职称由"&techdeName&"改为"&etechdeName&"。"
	end if
	if uName<>ename then
	changes="修改前：姓名为"&uName&"，修改后姓名为："&eName&","&changes
	else
	changes="姓名为"&uName&","&changes
	end if
	Set ObjRS = Nothing 
	'添加日志
	dim FirstMenu,SecondMenu,Opertion,OTime,OName,OIP
	OIP=Request.ServerVariables("REMOTE_ADDR")
	OName= Session("AccountName") 
	if OName="administrator" then
	OName="系统管理员"
	end if
	call AddLog("员工管理","员工基本信息","修改",now(),OName ,OIP,Request("Reason"),changes,ObjDB)
	
	
	ObjDB.Close
	Set ObjDB = Nothing
%>
<script language="JavaScript">
alert("您已经将员工的基本信息修改成功！\r\r您如果继续修改该员工的详细信息，请按照以下步骤操作：\r\r员工管理 → 详细员工信息 → 选中记录 → 修改");
location.href="List.asp";
</script>
<%
response.End()
End if	
%>