r_resume_save.asp.bak

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

<%@Language=VBscript TRANSACTION="Required"%>
<!--#include file="../Include/conn.asp"-->
<%
'Response.Write Request.QueryString("stage") & Request.QueryString("resid")
'Response.end

dim intStage,rs,intResid,intResauId
intStage=trim(Request.QueryString("stage"))
intResid=trim(Request.QueryString("resid"))
intResauId=trim(Request.QueryString("resauid"))
set rs=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
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("txtPolitical"))
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"))
if Request.Form("txtProv")<>"" 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 
	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_submitdate")=date()
	rs.Update 
	rs.Close
	set rs=nothing
	response.Write "<script language=javascript>alert('添加成功!');location.href='task.asp';</script>"
	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_submitdate")=date()
	rs.Update 
	rs.Close
	set rs=nothing
	response.Write "<script language=javascript>alert('修改成功!');location.href='R_resume_manage.asp';</script>"
	response.End
	elseif strAction="del" then  '删除简历
	on error Resume next
	conn.execute "delete from resumesudit 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>"
	response.End
	end if
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='完成' 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
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='完成' 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
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='完成' 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
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='完成' 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
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 err.number<>0 then
 ObjectContext.setAbort 
 response.Write "<script language=javascript>alert('入职失败!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
else
ObjectContext.setComplete 
response.Write "<script language=javascript>alert('入职成功!');location.href='R_resume_list.asp?stage="&intStage&"';</script>"
end if
response.End

end select

'rs.Close
set rs=nothing
conn.close
set conn=nothing
%>