view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDBH
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)

If Request.Form.Count > 0 Then
	IntID = Request.Form("ID")
	Call C.Edit(IntID,"_","t_Hrms_PersonSave")
  ObjDBH.Close
 	Set ObjDBH = Nothing
  Response.Redirect "list.asp"   
End If
 
Set ObjRS = C.View("Select * From v_Hrms_DepRequirement Where ID = " & IntID)
dim  States
if ObjRS("State")=1 then
	States="已提供需求"
end if
if ObjRS("State")=2 then
	States="重新提供需求"
end if
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
if ObjRS("State")=7 then
	States="撤消请求"
end if
Sub Main
%>
	<form action="" method="post" name=myform>
  <table width="100%" cellpadding=3 cellspacing=1 class=Ltable>
    <tr class=LHtr> 
      <td height="32" colspan="4" align="left">查看部门需求信息</td>
    </tr>
    <tr class=Ltr> 
      <td width="15%" height="28">公司</td>
      <td width="35%"> <input name="Company" type="text" class=Input id="Company" value="<%=ObjRS("ComName")%>"> 
      </td>
      <td width="15%">人数</td>
      <td width="35%"><input name="Number" type="text" class=Input value="<%=ObjRS("Number")%>" size="5">
        人 </td>
    </tr>
    <tr class=Ltr> 
      <td width="15%" height="31">部门</td>
      <td width="35%"> <input name="Department" type="text" class=Input value="<%=ObjRS("DepName")%>"  readonly></td>
      <td width="15%">招聘状态</td>
      <td width="35%"><input name="State" type="text" class=Input value="<%=States%>" readonly></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%" height="32">岗位</td>
      <td width="35%"><input name="Station" type="text" class=Input value="<%=ObjRS("JobName")%>" readonly> 
      </td>
      <td width="15%">希望到岗日期</td>
      <td width="35%"><input name="InTime" type="text" class=Input value="<%=ObjRS("InTime")%>" readonly></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%" height="32">申请理由</td>
      <td width="35%"> <input name="Reason" type="text" class=Input value="<%=ObjRS("Reason")%>" check=1> 
      </td>
      <td width="15%">申请填表日期</td>
      <td width="35%"><input name="AppTime" type="text" class=Input value="<%=ObjRS("AppTime")%>" readonly></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">申请人</td>
      <td> <input name="AppPerson" type="text" class=Input readonly value="<%=ObjRS("AppPerson")%>"> 
      </td>
      <td width="15%"> 最后修改日期</td>
      <td width="35%"><input name="ReFinalEditTime" type="text" class=Input value="<%=ObjRS("ReFinalTime")%>" readonly></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">岗位职责</td>
      <td colspan="3"><textArea name="Responsibility" readonly cols=80 rows=5 class=Textarea><%=ObjRS("Responsibility")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">任职条件</td>
      <td colspan="3"><textArea name="Condition"  cols=80 rows=5 class=Textarea readonly><%=ObjRS("Condition")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">备注（部门需求的备注信息）</td>
      <td colspan="3"><textArea  cols=80 rows=5 class=Textarea readonly name="Des"><%=ObjRS("Des")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">反馈的意见</td>
      <td colspan="3"><textArea  cols=80 rows=5 class=Textarea readonly name="FeedBack"><%=ObjRS("feedback")%></textarea></td>
    </tr>
    <tr class=Ltr height=100%> 
      <td colspan=4 align="left" valign="top"> <input type="button" class=Button value="返 回"onClick="history.go(-1)" id=button13 name=button1></td>
    </tr>
  </table>
</form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->