h_plan_save.asp

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

<%@Language=VBscript TRANSACTION="Required"%>
<!--#include file="../Include/conn.asp"-->
<%
dim intStage,intInvId,intInauId
intStage=trim(request.QueryString("stage"))     '接收需求计划状态
intInvId=trim(request.querystring("invid"))   '要审核的需求计划的编号(invite 表中的 invite_id)
intInauId=trim(Request.querystring("inauid")) '审核编号(inviteaudit表中的invaudit_id)
dim strAuditResult,strAuditMan,strAuditIdea,rs
set rs=server.createobject("adodb.recordset")

select case intStage
case 0
strAction=trim(Request.QueryString("action"))
If strAction="add" Or strAction="edit" then
Dim intRequestNumber,strWorkStation,strWorkproPerty,intAge,strSex,strEduDegree,strMajor,dtmRequestDate,strRemark,strMoney,strWorkExperience,strAction
intRequestNumber=trim(request.form("txtRquestNumber"))
strWorkStation=trim(request.form("txtWorkStation"))
strWorkproPerty=trim(request.form("selWorkProperty"))
strAge=trim(request.form("selAge"))
strSex=trim(request.form("radSex"))
strEduDegree=trim(request.form("selEduDegree"))
strMajor=trim(request.form("txtMajor"))
strRemark=trim(request.form("txtaRemark"))
dtmRequestDate=Trim(request.Form("textRequestDate"))
strMoney=Trim(request.Form("selMoney"))
strWorkExperience=Trim(request.Form("txtWorkExperience"))
rs.open "select * from invite where invite_id="&intInvId,conn,1,3  
'on error Resume next
rs("invite_property")=strWorkproPerty
rs("invite_sex")=strSex
rs("invite_age")=strAge
rs("invite_major")=strMajor
rs("invite_education")=strEduDegree
rs("work_station")=strWorkStation
rs("invite_mannumber")=intRequestNumber
rs("invite_remark")=strRemark
rs("invite_commitdate")=date()
rs("invite_requestdate")=dtmRequestDate
rs("invite_money")=strMoney
rs("invite_workexp")=strWorkExperience
rs("invite_stage")="待初审"
rs.update
conn.execute("update task set task_state='完成',task_ldate='"&date&"' where function_id=6 and deal_table='invite' and deal_id="&intInvId&"") '修改任务表中所有具有同一任务的用户的任务状态为完成
if err.number<>0 then
 ObjectContext.setAbort 
 if strAction="add" then
response.Write "<script language=javascript>alert('添加需求计划失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
elseif strAction="edit" then
response.Write "<script language=javascript>alert('修改需求计划失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
end If
rs.close
set rs=nothing 
conn.close
set conn=nothing
response.End 
else
ObjectContext.setComplete
	 if strAction="add" then
response.Write "<script language=javascript>alert('添加需求计划成功!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
elseif strAction="edit" then
response.Write "<script language=javascript>alert('修改需求计划成功!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
end If
rs.close
set rs=nothing 
conn.close
set conn=nothing
response.End
end if

elseIf strAction="del" Then
	on error Resume next
	conn.execute "delete from invite where invite_id="&intInvId&""
	if err.number<>0 then
	objectContext.setAbort
	response.Write "<script language=javascript>    alert('删除失败!');location.href='H_plan_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")) '接收审核的意见
'response.Write 
'response.End 
rs.open "select * from inviteaudit where invaudit_id="&intInauId,conn,1,3  '打开审核
on error Resume next
rs("invaudit_state")=strAuditResult
rs("invaudit_idea")=strAuditIdea
rs("invaudit_man")=strAuditMan
rs("invaudit_date")=date()
rs.update
if strAuditResult ="通过" then   '当初审通过时
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=7 and deal_table='inviteaudit' and deal_id="&intInauId&"") '修改任务表中所有具有同一任务的用户的任务状态为完成
conn.execute("update invite set invite_stage='待二审' where invite_id="&intInvId&"") '修改需求计划表中的状态为待二审
else '当初审不通过时
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=7 and deal_table='inviteaudit' and deal_id="&intInauId&"")'修改任务表中所有具有同一任务的用户的任务状态为完成
conn.execute("update invite set invite_stage='待修改' where invite_id="&intInvId&"") '修改需求计划表中的状态为待修改
end if
if err.number<>0 then
 ObjectContext.setAbort 
response.Write "<script language=javascript>alert('需求初审失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
rs.close
set rs=nothing 
conn.close
set conn=nothing
response.End 
else
ObjectContext.setComplete
	if strAuditResult ="通过" then
	response.Write "<script language=javascript>alert('成功通过初审!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
	else
	response.Write "<script language=javascript>alert('sorry,未通过初审!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
	end If
rs.close
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")) '接收审核的意见
'response.Write 
'response.End 
rs.open "select * from inviteaudit where invaudit_id="&intInauId,conn,1,3  '打开审核
on error Resume next
rs("invaudit_state")=strAuditResult
rs("invaudit_idea")=strAuditIdea
rs("invaudit_man")=strAuditMan
rs("invaudit_date")=date()
rs.update
if strAuditResult ="通过"  then
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=8 and deal_table='inviteaudit' and deal_id="&intInauId&"") '更改任务表中所有拥有此任务的用户的任务状态为完成
conn.execute("update invite set invite_stage='待三审' where invite_id="&intInvId&"")  '更改此需求计划的状态
else
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=8 and deal_table='inviteaudit' and deal_id="&intInauId&"")
conn.execute("update invite set invite_stage='待修改' where invite_id="&intInvId&"")
end if
if err.number<>0 then
 ObjectContext.setAbort 
response.Write "<script language=javascript>alert('需求二审失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
rs.close
set rs=nothing 
conn.close
set conn=nothing
response.End 
else
ObjectContext.setComplete
	if strAuditResult ="通过" then
	response.Write "<script language=javascript>alert('成功通过二审!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
	else
	response.Write "<script language=javascript>alert('sorry,未通过二审!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
	end If
rs.close
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")) '接收审核的意见
'response.Write 
'response.End 
rs.open "select * from inviteaudit where invaudit_id="&intInauId,conn,1,3  '打开审核
on error Resume next
rs("invaudit_state")=strAuditResult
rs("invaudit_idea")=strAuditIdea
rs("invaudit_man")=strAuditMan
rs("invaudit_date")=date()
rs.update
if strAuditResult ="通过"  then
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=9 and deal_table='inviteaudit' and deal_id="&intInauId&"")
conn.execute("update invite set invite_stage='待发布' where invite_id="&intInvId&"")
else
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=9 and deal_table='inviteaudit' and deal_id="&intInauId&"")
conn.execute("update invite set invite_stage='待修改' where invite_id="&intInvId&"")
end if
if err.number<>0 then
 ObjectContext.setAbort 
response.Write "<script language=javascript>alert('需求三审失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
rs.close
set rs=nothing 
conn.close
set conn=nothing
response.End 
else
ObjectContext.setComplete
	if strAuditResult ="通过" then
	response.Write "<script language=javascript>alert('成功通过三审!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
	else
	response.Write "<script language=javascript>alert('sorry,未通过三审!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
	end If
rs.close
set rs=nothing 
conn.close
set conn=nothing
response.End
end if

case 4  '招聘计划的发布
rs.Open "select * from invite where invite_id="&intInvId,conn,3,3
on error Resume next
rs("invite_stage")="已发布"
rs("invite_releasedate")=date()
rs.Update
conn.execute("update task set task_state='完成',task_ldate='"&date()&"' where function_id=10 and deal_table='invite' and deal_id="&intInvId&"")
if err.number<>0 then
 ObjectContext.setAbort 
response.Write "<script language=javascript>alert('招聘信息发布失败!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
rs.close
set rs=nothing 
conn.close
set conn=nothing
response.End 
else
ObjectContext.setComplete
response.Write "<script language=javascript>alert('招聘信息发布成功!');location.href='H_plan_list.asp?stage="&intStage&"';</script>"
end If
rs.close
set rs=nothing 
conn.close
set conn=nothing
response.End
end  select



%>