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" -->

<%
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_Activity Where ID = " & IntID)

	
Sub Main
%>

<form action="" method="post" name=myform>
  <table width="100%" cellpadding=3 cellspacing=1 class=Ltable>
    <tr class=LHtr> 
      <td height="23" colspan="2">查看招聘活动信息 </td>
    </tr>
    <tr class=Ltr> 
      <td width="8%">活动名称</td>
      <td> <input name="_Name" type="text" class=Input readonly value="<%=ObjRS("Name")%>"></td>
    </tr>
    <tr class=Ltr > 
      <td width="8%">负责人</td>
      <td> <input name="_Master" type="text" class=Input readonly value="<%=ObjRS("Master")%>"> 
      </td>
    </tr>
    <tr class=Ltr> 
      <td width="8%">活动日期</td>
      <td> <input name="_Dates" type="text" class=Input value="<%=ObjRS("Dates")%>" readonly> 
      </td>
    </tr>
    <tr class=Ltr > 
      <td width="8%">活动形式</td>
      <td> <input name="_Form" type="text" class=Input  readonly value="<%=ObjRS("Form")%>"></td>
    </tr>
    <tr class=Ltr  id=Content18> 
      <td width="8%">收集的资料数</td>
      <td><input name="_Num" type="text" class=Input value="<%=ObjRS("Num")%>" size="5"  readonly>
        份</td>
    </tr>
	<tr class=Ltr > 
      <td width="8%">创建日期</td>
      <td> <input name="CreateTime" type="text" class=Input  readonly value="<%=ObjRS("CreateTime")%>"></td>
    </tr>
	<tr class=Ltr > 
      <td width="8%">最后修改日期</td>
      <td> <input name="FinalEditTime" type="text" class=Input  readonly value="<%=ObjRS("FinalEditTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td width="8%">招聘信息</td>
      <td><textArea  cols=50% readonly rows=5 class=Textarea  name="_Info"><%=ObjRS("Info")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td width="8%">备注</td>
      <td><textArea  cols=50% rows=5 readonly class=Textarea Show="备注" name="_Des"><%=ObjRS("Des")%></textarea></td>
    </tr>
    <tr class=Ltr height=100%> 
      <td colspan=2 align="left" valign="top"> 
        <input type="button" class=Button value="返  回"onclick="location.href='list.asp'" i name=button1></td>
    </tr>
  </table>
  <p>&nbsp;</p>
</form>
<%
ObjDB.Close
Set ObjDB = Nothing
End Sub
%>
<!-- #include file="Templet.asp" -->