r_resume_save.asp

武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.

<%@Language=VBscript TRANSACTION="Required"%>
<!--#include file="../Include/conn.asp"-->
<%
dim intStage,rs,rs1,intResid,intResauId
intStage=trim(Request.QueryString("stage"))
intResid=trim(Request.QueryString("resid"))
intResauId=trim(Request.QueryString("resauid"))
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
select case intStage
case 0 
dim strAction,invite_id,strName,strSex,strBirthday,strNation,strEducDegree,strGraduateSchool,strPolitical,strMarry,strMajor,strHometown,strIdCode,strAddress,strPostcode,strMobile,strPhone,strEmail,strDeptName,strPostName,strWorkProperty,strRemark,strWorkexp,strEdubground
strAction=trim(Request.QueryString("action"))
invite_id=trim(Request.Form("invite_id"))
strName=trim(Request.Form("txtName"))
strSex=trim(Request.Form("radSex"))
strNation=trim(Request.Form("txtNation"))
strEducDegree=trim(Request.Form("selEducDegree"))
strGraduateSchool=trim(Request.Form("txtGraduateSchool"))
strPolitical=trim(Request.Form("selPolitical"))
strMarry=trim(Request.Form("radMarry"))
strMajor=trim(Request.Form("txtMajor"))
strIdCode=trim(Request.Form("txtIdCode"))
strAddress=trim(Request.Form("txtAddress"))
strPostcode=trim(Request.Form("txtPostcode"))
strMobile=trim(Request.Form("txtMobile"))
strPhone=trim(Request.Form("txtPhone"))
strEmail=trim(Request.Form("txtEmail"))
strDeptName=trim(Request.Form("txtDeptName"))
strPostName=trim(Request.Form("txtPostName"))
strWorkProperty=trim(Request.Form("selWorkProperty"))
strRemark=trim(Request.Form("txtaRemark"))
dtmBirthday=Trim(Request.Form("txtBirthday"))
strWorkexp=trim(Request.Form("txtaWorkExp"))
strEdubground=trim(Request.Form("txtaEduBground"))
if Request.Form("selProv")<>"" then
strHometown=trim(Request.Form("selProv"))&"-"&trim(Request.Form("selCity"))
else
'phometown=Request.Form("phometown")
end if

	if strAction="add"  then'添加简历
	rs.Open "select * from resume where 1=2",conn,3,3 
	'on error Resume next
	rs.AddNew 
	rs("invite_id")=invite_id
	rs("resume_pname")=strName
	rs("resume_dept")=strDeptName
	rs("resume_post")=strPostName
	rs("work_property")=strWorkProperty
	rs("resume_psex")=strSex
	rs("resume_pnation")=strNation
	rs("resume_pbirthday")=dtmBirthday
	rs("resume_pmajor")=strMajor
	rs("resume_graduate")=strGraduateSchool
	rs("resume_peduc")=strEducDegree
	rs("resume_pmarry")=strMarry
	rs("resume_idcode")=strIdCode
	rs("resume_political")=strPolitical
	rs("resume_phometown")=strHometown
	rs("resume_faddress")=strAddress
	rs("resume_postcode")=strPostcode
	rs("resume_mphone")=strMobile
	rs("resume_fphone")=strPhone
	rs("resume_email")=strEmail
	rs("resume_remark")=strRremark
	rs("resume_stage")="待初审"
	rs("resume_workexp")=strWorkexp
	rs("resume_edubground")=strEdubground
	rs("resume_submitdate")=date()
	If session("image_id")<>"" then
	rs1.open "select resume_image from save_image where image_id="&session("image_id"),conn,3,3
	rs("resume_photo")=rs1("resume_image")
	rs1.close
	Set rs1=nothing
	End if
	rs.Update 
	rs.Close
    If session("image_id")<>"" then
	conn.execute "delete from save_image where image_id="&session("image_id")&""
	End if
    if err.number<>0 then
	objectContext.setAbort
	response.Write "<script language=javascript>alert('添加失败,请稍候再试!');history.go(-1);</script>"
	else
	objectContext.setComplete
	response.Write "<script language=javascript>alert('添加成功!');history.go(-1);</script>"
	end If
	set rs=Nothing
	conn.close
	set conn=nothing
	response.End		
	
	elseif strAction="edit" then  '修改简历
    rs.Open "select * from resume where resume_id="&intResId,conn,3,3  
	rs("invite_id")=invite_id
	rs("resume_pname")=strName
	rs("resume_dept")=strDeptName
	rs("resume_post")=strPostName
	rs("work_property")=strWorkProperty
	rs("resume_psex")=strSex
	rs("resume_pnation")=strNation
	rs("resume_pbirthday")=dtmBirthday
	rs("resume_pmajor")=strMajor
	rs("resume_graduate")=strGraduateSchool
	rs("resume_peduc")=strEducDegree
	rs("resume_pmarry")=strMarry
	rs("resume_idcode")=strIdCode
	rs("resume_political")=strPolitical
	rs("resume_phometown")=strHometown
	rs("resume_faddress")=strAddress
	rs("resume_postcode")=strPostcode
	rs("resume_mphone")=strMobile
	rs("resume_fphone")=strPhone
	rs("resume_email")=strEmail
	rs("resume_remark")=strRremark
	rs("resume_stage")="待初审"
	rs("resume_workexp")=strWorkexp
	rs("resume_edubground")=strEdubground
	rs("resume_submitdate")=date()
	rs.Update 
	rs.Close
	response.Write "<script language=javascript>alert('修改成功!');location.href='R_resume_manage.asp';</script>"
	set rs=Nothing
	conn.close
	set conn=nothing	
	response.End
	elseif strAction="del" then  '删除简历
	on error Resume next
	conn.execute "delete from resumeaudit where resume_id="&intResId&""
	conn.execute "delete from resume where resume_id="&intResId&""
	if err.number<>0 then
	objectContext.setAbort
	response.Write "<script language=javascript>alert('删除失败!');location.href='R_resume_manage.asp';</script>"
	else
	objectContext.setComplete
	response.Write "<script language=javascript>alert('删除成功!');history.go(-1);</script>"
	end If
	conn.close
	set conn=nothing	
	response.End	
	end if	

case 1  '初审
strAuditResult=Trim(request.Form("radAuditResult"))
strAuditMan=Trim(request.Form("txtAuditMan"))
strAuditIdea=Trim(request.Form("txtaAuditIdea"))
rs.open "select * from resumeaudit where resaudit_id="&intResauId,conn,3,3
on error Resume next
'intResauId=rs("resaudit_id")  '获取该简历的审核编号
rs("resaudit_first")=strAuditResult
rs("resaudit_fman")=strAuditMan
rs("resaudit_fidea")=strAuditIdea
rs("resaudit_fdate")=Date()
rs.update
rs.close
If strAuditResult="通过" Then '当通过时修改简历表中简历的状态为待二审，否则为淘汰
conn.execute("update resume set resume_stage='待二审' where resume_id="&intResId&"")  
ElseIf strAuditResult="不通过" Then
conn.execute("update resume set resume_stage='淘汰' where resume_id="&intResId&"")
End If
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=12 and  deal_id="&intResauId&" and deal_table='resumeaudit'") '修改任务表中具有简历初审权限用户的任务状态为完成
if err.number<>0 then
 ObjectContext.setAbort 
response.Write "<script language=javascript>alert('简历初审失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
response.End 
else
ObjectContext.setComplete
	if strAuditResult ="通过" then
	response.Write "<script language=javascript>alert('成功通过初审!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
	elseif strAuditResult ="不通过" then
	response.Write "<script language=javascript>alert('sorry,未通过初审!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
	end If
set rs=Nothing
conn.close
set conn=nothing
response.End
end if


case 2  '二审
strAuditResult=Trim(request.Form("radAuditResult"))
strAuditMan=Trim(request.Form("txtAuditMan"))
strAuditIdea=Trim(request.Form("txtaAuditIdea"))
rs.open "select * from resumeaudit where resaudit_id="&intResauId,conn,3,3
on error Resume next
rs("resaudit_second")=strAuditResult
rs("resaudit_sman")=strAuditMan
rs("resaudit_sidea")=strAuditIdea
rs("resaudit_sdate")=Date()
rs.Update 
rs.Close 
If strAuditResult="通过" Then
conn.execute("update resume set resume_stage='待三审' where resume_id="&intResId&"")
ElseIf strAuditResult="不通过" Then
conn.execute("update resume set resume_stage='淘汰' where resume_id="&intResId&"")
End If
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=13 and  deal_id="&intResauId&" and deal_table='resumeaudit'")
if err.number<>0 then
 ObjectContext.setAbort 
response.Write "<script language=javascript>alert('简历二审失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
response.End 
else
ObjectContext.setComplete
	if strAuditResult ="通过" then
	response.Write "<script language=javascript>alert('成功通过二审!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
	elseif strAuditResult ="不通过" then
	response.Write "<script language=javascript>alert('sorry,未通过二审!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
	end If
set rs=Nothing
conn.close
set conn=nothing
response.End
end if

case 3  '三审
strAuditResult=Trim(request.Form("radAuditResult"))
strAuditMan=Trim(request.Form("txtAuditMan"))
strAuditIdea=Trim(request.Form("txtaAuditIdea"))
rs.open "select * from resumeaudit where  resaudit_id="&intResauId,conn,3,3
on error Resume next
rs("resaudit_third")=strAuditResult
rs("resaudit_tman")=strAuditMan
rs("resaudit_tidea")=strAuditIdea
rs("resaudit_tdate")=Date()
rs.Update
rs.Close 
If strAuditResult="通过" Then
conn.execute("update resume set resume_stage='待终审' where resume_id="&intResId&"")
ElseIf strAuditResult="不通过" Then
conn.execute("update resume set resume_stage='淘汰' where resume_id="&intResId&"")
End If
conn.execute("update task set task_state='完成' ,task_ldate='"&date()&"' where function_id=14 and  deal_id="&intResauId&" and deal_table='resumeaudit'")
if err.number<>0 then
 ObjectContext.setAbort 
response.Write "<script language=javascript>alert('简历三审失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
response.End 
else
ObjectContext.setComplete
	if strAuditResult ="通过" then
	response.Write "<script language=javascript>alert('成功通过三审!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
	elseif strAuditResult ="不通过" then
	response.Write "<script language=javascript>alert('sorry,未通过三审!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
	end If
set rs=Nothing
conn.close
set conn=nothing
response.End
end if

case 4  '终审
strAuditResult=Trim(request.Form("radAuditResult"))
strAuditMan=Trim(request.Form("txtAuditMan"))
strAuditIdea=Trim(request.Form("txtaAuditIdea"))
rs.open "select * from resumeaudit where  resaudit_id="&intResauId,conn,3,3
on error Resume next
rs("resaudit_end")=strAuditResult
rs("resaudit_eman")=strAuditMan
rs("resaudit_eidea")=strAuditIdea
rs("resaudit_edate")=Date()
rs.Update
rs.close
If strAuditResult="通过" Then
conn.execute("update resume set resume_stage='待入职' where resume_id="&intResId&"")
ElseIf strAuditResult="不通过" Then
conn.execute("update resume set resume_stage='淘汰' where resume_id="&intResId&"")
End If
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=15 and  deal_id="&intResauId&" and deal_table='resumeaudit'")
if err.number<>0 then
 ObjectContext.setAbort 
response.Write "<script language=javascript>alert('简历终审失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
response.End 
else
ObjectContext.setComplete
	if strAuditResult ="通过" then
	response.Write "<script language=javascript>alert('成功通过终审!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
	elseif strAuditResult ="不通过" then
	response.Write "<script language=javascript>alert('sorry,未通过终审!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
	end If
set rs=Nothing
conn.close
set conn=nothing
response.End
end if

case 5 '简历入职 
rs.Open "select * from resume where resume_id="&intResid,conn,3,3
'on error Resume next
rs("resume_stage")="已入职"
rs.Update
conn.execute "exec proc_enterpersonnel "&intResid&",'"&rs("resume_pname")&"','"&rs("resume_dept")&"','"&rs("resume_post")&"','"&rs("work_property")&"','"&rs("resume_psex")&"','"&rs("resume_pnation")&"','"&rs("resume_pbirthday")&"','"&rs("resume_graduate")&"','"&rs("resume_peduc")&"','"&rs("resume_pmajor")&"','"&rs("resume_political")&"','"&rs("resume_pmarry")&"','"&rs("resume_idcode")&"','"&phometown&"','"&rs("resume_faddress")&"','"&rs("resume_postcode")&"','"&rs("resume_mphone")&"','"&date&"','"&rs("resume_fphone")&"','"&rs("resume_email")&"'"
If Not IsNull(rs("resume_photo")) then
rs1.open "select top 1 personnel_photo from personnel order by personnel_id desc",conn,3,3
rs1("personnel_photo")=rs("resume_photo")
rs1.update
rs1.close
Set rs1=Nothing
End if
if err.number<>0 then
 ObjectContext.setAbort 
 response.Write "<script language=javascript>alert('入职失败!');history.go(-1);</script>"
else
ObjectContext.setComplete 
response.Write "<script language=javascript>alert('入职成功!');location.href='R_resume_manage.asp';</script>"
end If
set rs=Nothing
conn.close
set conn=nothing
response.End
end select



%>