edit0.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)

If Request.Form.Count > 0 Then
	IntID = Request.Form("ID")
	Set ObjRS = Server.CreateObject("Adodb.Recordset")
	StrSQL = "Select * From t_Hrms_JobApplications_DepRequirement Where Id='"&IntID&"'"
	ObjRS.Open StrSQL,ObjDB,1,3
	ObjRS.Fields("StartTime")=Request("StartTime")
	ObjRS.Fields("EndTime")=Request("EndTime")
	ObjRS.Update
	IntID = ObjRS("ID")
	         
	'添加日志
	dim FirstMenu,SecondMenu,Opertion,OTime,OName,OIP,ODesc,OChang
	OIP=Request.ServerVariables("REMOTE_ADDR")
	OName= Session("AccountName") 
	if OName="administrator" then
	OName="系统管理员"
	end if
	call AddLog("招聘管理","招聘计划","修改",now(),OName ,OIP,"","")

	
  	ObjDB.Close
 	Set ObjDB = Nothing
  Response.Redirect "list.asp"   
End If
 
Set ObjRS = C.View("Select * From v_Hrms_DepRequirement Where ID = " & IntID)
dim CompanyID,DepartmentID,StationID,ReasonID
CompanyID=ObjRS("Company")
DepartmentID=ObjRS("Department")
StationID=ObjRS("Station")
ReasonID=ObjRS("ReasonID")
Sub Main
%>

<form action="" method="post" name=myform>
	<input type=hidden name=ID value="<%=Request.QueryString("ID")%>">
  <table height="100%" cellpadding=3 cellspacing=1 class=Ltable>
    <tr class=LHtr> 
      <td colspan="2" align="left">修改招聘计划</td>
    </tr>
    <tr class=Ltr> 
      <td>公司</td>
      <td width="85%">
      	 <input name="Company" type="text" readonly class=Input value="<%=ObjRS("ComName")%>">
      </td>
    </tr>
    <tr class=Ltr> 
      <td>部门</td>
      <td width="85%"> 
      	<input name="AppTime" type="text" class=Input readonly value="<%=ObjRS("DepName")%>">
      </td>
    </tr>
    <tr class=Ltr> 
      <td>岗位</td>
      <td width="85%"> <input name="AppTime" type="text" readonly class=Input value="<%=ObjRS("JobName")%>"></td>
    </tr>
	<tr class=Ltr> 
      <td>申请理由</td>
      <td> <input name="AppTime" type="text" readonly class=Input value="<%=ObjRS("Reason")%>">
      </td>
    </tr>
    <tr class=Ltr> 
      <td>人数</td>
      <td><input name="Number" type="text" class=Input readonly value="<%=ObjRS("Number")%>" size="5">
        人 </td>
    </tr>
    <tr class=Ltr> 
      <td>申请日期</td>
      <td> <input name="AppTime" type="text" class=Input readonly value="<%=ObjRS("AppTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td>希望到岗日期</td>
      <td> <input name="InTime" type="text" readonly class=Input value="<%=ObjRS("InTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td>开始时间</td>
      <td><input name="StartTime" type="text" class=Input onClick="InputDate(this)" value="<%=ObjRS("StartTime")%>" check=1 show="毕业时间"></td>
    </tr>
    <tr class=Ltr> 
      <td>结束时间</td>
      <td><input name="EndTime" type="text" class=Input onClick="InputDate(this)" value="<%=ObjRS("EndTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td>备注（计划的具体内容）</td>
      <td><textArea name="PlanDes"  cols=30 rows=10 class=Textarea Show="备注"><%=ObjRS("PlanDes")%></textarea></td>
    </tr>
	<tr class=Ltr>
		<td colspan="2"><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" -->