view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<%
Dim ObjDB
Dim C
Dim IntID,IntParentID
Dim ObjRS

IntID       = Request.QueryString("ID")
IntParentID = Request.QueryString("ParentID")

Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB ObjDB

Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)

If Request.Form.Count > 0 Then
  IntID = Request.Form("ID")

  Call C.Edit(IntID,"_","t_OA_SYS_Department_Account")
  ObjDB.Close
  Set ObjDB = Nothing
%>
<script language=javascript>
  parent.doList()
</script>
<%
  Response.End 
End If

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

Sub Main
%>
  <form action="" method="post" onsubmit="return(CheckForm(this))" id=form1 name=form1>
  <input type=hidden name=ID value="<%=IntID%>">
  <table class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr>
    <td width="15%">查看部门人员</td>
    <td width="85%"></td>
  </tr>
  <tr class=Ltr>
    <td>姓名</td>
    <td><input type="text" class=Input name="TrueName" readonly value=<%=ObjRS("TrueName")%>></td>
  </tr>
    <tr class=Ltr>
    <td>职务</td>
    <td><input type="text" class=Input name="_Pos" readonly value=<%=ObjRS("Pos")%>></td>
  </tr>
  </tr>
    <tr class=Ltr>
    <td>创建时间</td>
    <td><input type="text" class=Input name="CreateTime" readonly value=<%=ObjRS("CreateTime")%>></td>
  </tr>
  <table cellspacing=1 cellpadding=3>
  <tr>
    <td><input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1>
    </td>
    <td>
    </td>
  </tr>
  </table>
  </form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->