view.asp

功能齐全的oa系统

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

IntID = Request.QueryString("ID")

Set ObjDBH = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDBH
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDBH)
Set ObjRS = C.View("Select * From v_Hrms_DepRequirement Where ID = " & IntID)
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="15%">申请日期</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="15%">希望到岗日期</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="15%">招聘开始时间</td>
      <td><input name="StartTime" type="text" class=Input readonly 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="15%">招聘结束时间</td>
      <td><input name="EndTime" type="text" class=Input readonly 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="15%">第一次制定计划时间</td>
      <td><input name="PlanSaveTime" type="text" readonly class=Input value="<%=ObjRS("PlanSaveTime")%>"></td>
    </tr>
    <tr class=Ltr>
      <td>招聘状态</td>
      <td> 
        <%
		 dim States
		  if ObjRS("State")=3 then 
		  States="正在招聘"
		  end if
		  %>
        <%if ObjRS("State")=4 then 
		  States="人员到岗"
		  end if
		  %>
        <%if ObjRS("State")=5 then 
		  States="计划调整"
		  end if
		  %>
        <%if ObjRS("State")=6 then
		   States="有意见"
		   end if
		  %>
        <input type="text" name="State" value="<%=States%>"></td>
      <td width="15%">最终修改时间</td>
      <td><input name="PlanFinalTime" type="text" class=Input readonly value="<%=ObjRS("PlanFinalTime")%>"></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 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" -->