edit.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDB,StrSQL
Dim C
Dim IntID
Dim ObjRS

IntID = Request.QueryString("ID")
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
Set ObjRS = C.View("Select * From v_Hrms_DepRequirement Where ID = " & IntID)
dim AComName,ADepName,AJobName,AReason,States
	AComName=ObjRS("ComName")
	ADepName=ObjRS("DepName")
	AJobName=ObjRS("JobName")
	AReason=ObjRS("Reason")
	if ObjRS("State")=3 then 
		  States="正在招聘"
	end if
		  
    if ObjRS("State")=4 then 
		  States="人员到岗"
	end if
	if ObjRS("State")=5 then 
		  States="计划调整!!反馈意见为："&ObjRS("feedback")
	end if
	if ObjRS("State")=6 then
		   States="有意见！反馈意见为："&ObjRS("feedback")
	end if

'Set ObjRS = Server.CreateObject("Adodb.Recordset")
If Request.Form.Count > 0 Then
		' ----------------------------------------判断开始'
		dim m
		 if trim(request("State"))=3 then
		 	m="正在招聘！"
			 if trim(request("StartTime"))="" then
				%>
				<script language=javascript>
					alert("开始时间不能为空！！");
					history.go(-1);
				</script>		
				<%
				response.End()
			 end if
			 if trim(request("EndTime"))="" then
				%>
				<script language=javascript>
					alert("结束时间不能为空！！");
					history.go(-1);
				</script>		
				<%
				response.End()
			end if
		 end if
		 if trim(request("State"))=4 then 
		 		m="人员到岗！！反馈意见为："&request("feedback")&"！"	
		 end if
		 if trim(request("State"))=5 or trim(request("State"))=6 then
		 	if trim(request("State"))=5 then
		 		m="计划调整！！反馈意见为："&request("feedback")&"！"
			else
				m="有意见！！反馈意见为："&request("feedback")&"！"
			end if	
			 if trim(request("feedback"))="" then
				%>
				<script language=javascript>
					alert("反馈意见不能为空！！");
					history.go(-1);
				</script>		
				<%
				response.End()
			 end if
		 end if
		 
		 ' -------------------------------------------判断结束'
	IntID = Request.Form("ID")
	StrSQL = "Select * From t_Hrms_JobApplications_DepRequirement Where Id='"&IntID&"'"
	Set ObjRS = Server.CreateObject("Adodb.Recordset")
	ObjRS.Open StrSQL,ObjDB,1,3
	ObjRS("State")=Request("State")
		if Request("StartTime")<>"" then
		ObjRS("StartTime")=Request("StartTime")
		end if 
		if Request("EndTime")<> "" then
		ObjRS("EndTime")=Request("EndTime")
		end if
		ObjRS("PlanDes")=Request("PlanDes")
		ObjRS("feedback")=Request("feedback")
		ObjRS("PlanPerson")=session("AccountPerson")
		ObjRS("PlanFinalTime")=Now()
	ObjRS.Update
	IntID = ObjRS("ID")
	         
	'添加日志
	dim FirstMenu,SecondMenu,Opertion,OTime,OName,OIP,OChange
	OIP=Request.ServerVariables("REMOTE_ADDR")
	OName= Session("AccountName") 
	OChange="公司:"&AComName&"，部门:"&ADepName&"，岗位:"&AJobName&"，申请理由:"&AReason&"的招聘计划在修改前的招聘状态为:"&States&"！修改后的招聘状态为:"&m&"！"
	if OName="administrator" then
	OName="系统管理员"
	end if
	call AddLog("招聘管理","招聘计划","修改",now(),OName ,OIP,request("EditReason"),OChange,ObjDB)

	
  	ObjDB.Close
 	Set ObjDB = Nothing
  Response.Redirect "list.asp"   
End If
 
Sub Main
%>

<form action="" method="post" name=myform>
	<input type=hidden name=ID value="<%=Request.QueryString("ID")%>">
  <table width="100%" cellpadding=3 cellspacing=1 class=Ltable>
    <tr class=LHtr> 
      <td colspan="4" align="left">修改招聘计划</td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">公司</td>
      <td width="30%"> <input name="Company" type="text" readonly class=Input value="<%=ObjRS("ComName")%>"> 
      </td>
      <td width="13%">申请日期</td>
      <td><input name="AppTime2" type="text" class=Input readonly value="<%=ObjRS("AppTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">部门</td>
      <td width="30%"> <input name="AppTime" type="text" class=Input readonly value="<%=ObjRS("DepName")%>"> 
      </td>
      <td width="13%">希望到岗日期</td>
      <td><input name="InTime" type="text" readonly class=Input value="<%=ObjRS("InTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">岗位</td>
      <td width="30%"> <input name="AppTime" type="text" readonly class=Input value="<%=ObjRS("JobName")%>"></td>
      <td width="13%">开始时间</td>
      <td><input name="StartTime" type="text" class=Input onClick="InputDate(this)" value="<%=ObjRS("StartTime")%>" check=1 show="毕业时间"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">申请理由</td>
      <td width="30%"> <input name="AppTime" type="text" readonly class=Input value="<%=ObjRS("Reason")%>"> 
      </td>
      <td width="13%">结束时间</td>
      <td><input name="EndTime" type="text" class=Input onClick="InputDate(this)" value="<%=ObjRS("EndTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">人数</td>
      <td width="30%"> <input name="Number" type="text" class=Input readonly value="<%=ObjRS("Number")%>" size="5">
        人 </td>
      <td width="13%">招聘状态</td>
      <td><select name="State">
          <option value="3"<%if ObjRS("State")=3 then response.Write("Selected")%>>正在招聘</option>
          <option value="4"<%if ObjRS("State")=4 then response.Write("Selected")%>>人员到岗</option>
          <option value="5"<%if ObjRS("State")=5 then response.Write("Selected")%>>计划调整</option>
          <option value="6"<%if ObjRS("State")=6 then response.Write("Selected")%>>有意见</option>
        </select></td>
    </tr>
    <tr class=Ltr> 
      <td>岗位职责</td>
      <td colspan="3"><textArea name="Responsibility" readonly cols=80 rows=5 class=Textarea><%=ObjRS("Responsibility")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td>任职条件</td>
      <td colspan="3"><textArea name="Condition"  cols=80 rows=5 class=Textarea readonly><%=ObjRS("Condition")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td>备注（部门需求的备注信息）</td>
      <td colspan="3"><textArea  cols=80 rows=5 class=Textarea readonly name="Des"><%=ObjRS("Des")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">备注（对自己计划的具体内容）</td>
      <td colspan="3"><textArea name="PlanDes"  cols=80 rows=5 class=Textarea Show="备注"><%=ObjRS("PlanDes")%></textarea></td>
    </tr>
	<tr class=Ltr> 
      <td>反馈意见（对部门需求提出的要求、意见等）</td>
      <td colspan="3"><textarea name="feedback"  cols=80 rows=5 class=Textarea><%=ObjRS("feedback")%></textarea></td>
    </tr>
	<tr class=Ltr> 
      <td>修改原因</td>
      <td colspan="3"><textarea name="EditReason"  cols=80 rows=5 class=Textarea></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td colspan="4"><input type="submit"  name="Submit" class=Button value="确  定"> 
        <input type="button" class=Button value="取 消" onclick="history.go(-1)" name=button1></td>
    </tr>
  </table>
</form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->