h_affirm_save.asp

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

<%@Language=VBscript TRANSACTION="Required"%>
<!--#include file="../Include/conn.asp"-->
<%
dim strAction,rs,intPckId,intError,cmd,intFrm
 intFrm=trim(Request.QueryString("frm"))  '接收提交的是哪个表单
 strAction=trim(Request.QueryString("action")) '接收处理方式
 intPckId=trim(Request.QueryString("pckid")) '接收岗位空缺编号
 select case strAction 
 case "yes"
 strDeptName=trim(Request.Form("txtDeptName"&intFrm)) '部门名称
 strPostName=trim(Request.Form("txtPostName"&intFrm)) '岗位名称
 intRequestNumber=trim(Request.Form("txtRequestNumber"&intFrm)) '需求人数
 dtmRequestDate=trim(Request.Form("txtRequestDate"&intFrm)) '需求时间 
 'Response.Write strPostName
 'Response.End 
 set cmd=server.CreateObject("adodb.command")
 with cmd
 .ActiveConnection=conn
 .CommandText="proc_SureRequest"
 .CommandType=4
 .Prepared = true
 .Parameters.append cmd.CreateParameter("RETURN",2,4)
 .Parameters.append cmd.CreateParameter("@postlock_id",3,1,4,intPckId)
 .Parameters.append cmd.CreateParameter("@dept_name",200,1,30,strDeptName)
 .Parameters.append cmd.CreateParameter("@post_name",200,1,30,strPostName)
 .Parameters.append cmd.CreateParameter("@mannumber",3,1,4,intRequestNumber)
 .Parameters.append cmd.CreateParameter("@requestdate",7,1,4,dtmRequestDate)
 .Parameters.append cmd.CreateParameter("@date",7,1,4,date)
 .Execute 
 end with
intError=cmd(0)
set cmd=nothing
if intError=0 then  
 response.Write "<script language=javascript>alert('确认需求成功!');location.href='H_affirm.asp';</script>"
 response.End
 else
 response.Write "<script language=javascript>alert('确认需求失败!');location.href='H_affirm.asp';</script>"
 response.End
 end if
 case "no"
  set rs=server.CreateObject("adodb.recordset")
  on error Resume next
  rs.Open "select * from postlock where postlock_id="&intPckId,conn,3,3  '修改postlock表中的状态为不需要
  rs("postlock_state")="不需要"
  rs.Update 
  conn.execute "update task set task_state='完成' where function_id=5 and deal_table='postlock' and deal_id="&intPckId&""  '修改需求确认权限的用户的任务状态
  rs.Close 
  set rs=nothing 
  if err.number<>0 then
   ObjectContext.setAbort 
  response.Write "<script language=javascript>alert('确认不需求失败!');location.href='H_affirm.asp';</script>"
  response.End 
  else
  ObjectContext.setComplete
  response.Write "<script language=javascript>alert('确认不需求成功!');location.href='H_affirm.asp';</script>"
  response.End
  end if
  set rs=nothing 
 end select
 conn.close
 set conn=nothing
%>