view.asp

功能齐全的oa系统

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

Set ObjRS = C.View("Select * From v_Hrms_PersonSave Where ID = " & IntID)	
ObjDBH.Close
Set ObjDBH = Nothing

Sub Main
%>
<form action="" method="post" name=myform>
	
  <table width="100%" cellpadding=3 cellspacing=1 class=Ltable>
    <tr class=LHtr> 
      <td colspan="2">查看面试选拔信息 </td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">主考人：</td>
      <td width="85%"><input type="text" class=Input readonly  name="Name" value="<%=ObjRS("Name")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td>面试日期：</td>
      <td> <input name="Dates" type="text" class=Input  value="<%=DateValue(ObjRS("Dates"))%>"  readonly> 
      </td>
    </tr>
    <tr class=Ltr> 
      <td>选拔形式：</td>
      <td> <input name="Form" type="text" class=Input readonly value="<%=ObjRS("Form")%>"> 
      </td>
    </tr>
    <tr class=Ltr> 
      <td height="37">参加人数：</td>
      <td><input name="CandiNum" type="text" class=Input value="<%=ObjRS("CandiNum")%>" size="5" readonly>
        人 </td>
    </tr>
    <tr class=Ltr> 
      <td>应聘公司</td>
      <td><input name="_Company" type="text" class=Input value="<%=ObjRS("ComName")%>" readonly> 
      </td>
    </tr>
    <tr class=Ltr> 
      <td>应聘部门</td>
      <td><input name="_DepName" type="text" class=Input value="<%=ObjRS("DepName")%>" readonly></td>
    </tr>
    <tr class=Ltr> 
      <td>应聘岗位</td>
      <td><input name="_StationName" type="text" class=Input value="<%=ObjRS("StationName")%>" readonly></td>
    </tr>
    <tr class=Ltr> 
      <td>入库时间</td>
      <td><input type="text" class=Input Check=1 Show="入库时间" readonly name="_CreateTime" value="<%=ObjRS("CreateTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td>最近修改时间</td>
      <td><input type="text" class=Input check=1 show="最近面试时间" readonly name="_SaveTime" value="<%=ObjRS("FinalEditTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td>备注</td>
      <td><textArea  cols=50% rows=5 class=Textarea Show="备注" name="_Des" readonly><%=ObjRS("Des")%></textarea></td>
    </tr>
    <tr class=Ltr height=100%> 
      <td colspan=2 align="left" valign="top"><input type="button" class=Button value="返 回"onclick="history.go(-1)" name=button1></td>
    </tr>
  </table>
</form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->