view0.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 DepID,ComID,JobID,DutyID
ComID=ObjRS("Company")
DepID=ObjRS("Department")
JobID=ObjRS("Station")

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 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")%>" check=1> 
      </td>
      <td width="15%">申请理由</td>
      <td width="35%"> 
        <input name="Reason" type="text" class=Input value="<%=ObjRS("Reason")%>" check=1>	
      </td>
    </tr>
    <tr class=Ltr> 
      <td width="15%" height="31">部门</td>
      <td width="35%"> <input name="Department" type="text" class=Input id="Department" value="<%=ObjRS("DepName")%>" check=1></td>
      <td width="15%">人数</td>
      <td width="35%"><input name="Number" type="text" class=Input value="<%=ObjRS("Number")%>" check=1></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%" height="32">岗位</td>
      <td width="35%"><input name="Station" type="text" class=Input id="Station" value="<%=ObjRS("JobName")%>" check=1> 
      </td>
      <td width="15%">希望到岗日期</td>
      <td width="35%"><input name="InTime" type="text" class=Input onClick="InputDate(this)" value="<%=ObjRS("InTime")%>" readonly check=1></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%" height="32">申请人</td>
      <td width="35%"> <input name="AppPerson" type="text" class=Input readonly value="<%=ObjRS("AppPerson")%>" check=1> 
      </td>
      <td width="15%">申请日期</td>
      <td width="35%"><input name="AppTime" type="text" class=Input id="AppTime" onClick="InputDate(this)" value="<%=ObjRS("AppTime")%>" readonly check=1></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">岗位职责</td>
      <td colspan="3"><textArea name="Responsibility"  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 id="Condition"><%=ObjRS("Condition")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">备注</td>
      <td colspan="3"><textArea  cols=80 rows=5 class=Textarea name="Des"><%=ObjRS("Des")%></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" -->