view.asp

功能齐全的oa系统

<% option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/ShowAttachs.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)

Set ObjRS = C.View("Select * From t_Hrms_JobApplication_Interview 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">查看人才储备信息</td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">姓名</td>
      <td width="30%"> <input type="text" class=Input  name="_Name2" value="<%=ObjRS("Name")%>"></td>
      <td width="13%">教育类型</td>
      <td width="85%"><input type="text" class=Input name="_EducationStyle2" value="<%=ObjRS("EducationStyle")%>"></td>
    </tr>
    <tr class=Ltr > 
      <td width="13%">收集资料的日期</td>
      <td width="30%"> <input name="_SelDate" type="text" class=Input onclick="InputDate(this)" value="<%=ObjRS("SelDate")%>" readonly></td>
      <td width="13%">最终毕业学校</td>
      <td><input type="text" class=Input name="_GraduateSchool2" value="<%=ObjRS("GraduateSchool")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">人才状态</td>
      <td width="30%"> 
        <%
	  dim Result
	  select Case ObjRS("Result")
		  Case 0    Result="录用"
		 Case 1    Result="暂不录用"
		  Case 2    Result="不录用"
	  end select	
	  %>
        <input name="_Result" type="text" class=Input onclick="InputDate(this)" value="<%=Result%>" readonly></td>
      <td width="13%">所学专业</td>
      <td><input type="text" class=Input name="_Speciality2" value="<%=ObjRS("Speciality")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">性别</td>
      <td width="30%"> <input name="Sex" type="text" class=Input value="<%=ObjRS("Sex")%>" readonly></td>
      <td width="13%">最终毕业时间</td>
      <td><input type="text" class=Input readonly name="_GraduateTime2" onClick="InputDate(this)" value="<%=ObjRS("GraduateTime")%>"></td>
    </tr>
    <tr class=Ltr > 
      <td width="13%">出生日期</td>
      <td width="30%"> <input type="text" class=Input readonly name="_Birth2" onclick="InputDate(this)" value="<%=ObjRS("Birth")%>"></td>
      <td width="13%">学历</td>
      <td><input type="text" class=Input name="_GraduateDegree2" value="<%=ObjRS("GraduateDegree")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">外语及等级</td>
      <td width="30%"> <input type="text" class=Input name="_ForLan2" value="<%=ObjRS("ForLan")%>"> 
      </td>
      <td width="13%">入库时间</td>
      <td><input name="_CreateTime" readonly type="text" class=Input  value="<%=ObjRS("CreateTime")%>"></td>
    </tr>
    <tr class=Ltr > 
      <td width="13%">电子文档</td>
      <td><%=ShowAttachsH(ObjDB,ObjRS("Attachs"))%>
        <input name=_Attachs type=hidden class=Input value="<%=ObjRS("Attachs")%>"> 
      </td>
      <td>最后修改时间</td>
      <td><input name="_CreateTime22" readonly type="text" class=Input value="<%=ObjRS("FinalEditTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">联系方式</td>
      <td colspan="3"><input name="_Contact" type="text" value="<%=ObjRS("Contact")%>" size="70%"></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">面试情况</td>
      <td colspan="3"><textArea  cols=70% rows=5 class=Textarea  name="_Info"><%=ObjRS("Info")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">备注</td>
      <td colspan="3"><textArea  cols=70% rows=5 class=Textarea  name="textarea"><%=ObjRS("Des")%></textarea></td>
    </tr>
    <tr class=Ltr height=100%> 
      <td colspan=4 align="left" valign="top"><input type="submit"  name="Submit" class=Button value="提 交"> 
        <input type="button" class=Button value="取 消"onclick="history.go(-1)" id=button1 name=button12></td>
    </tr>
  </table>
  <p>&nbsp;</p>
</form>
<%
ObjDB.Close
Set ObjDB = Nothing
End Sub
%>
<!-- #include file="Templet.asp" -->