view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<!-- #include virtual="Include/SelectValue.asp" -->

<%
Dim ObjDB
Dim C
Dim IntID,IntParentID
Dim ObjRS

IntID       = Request.QueryString("ID")
'response.write "IntID ="&IntID 
'response.End()
IntParentID = Request.QueryString("ParentID")

Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH 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_Hrms_Dep_Account")
	    ObjDB.Close
     	Set ObjDB = Nothing
     	 Response.Redirect "list.asp"   
	End If
   

  Set ObjRS = C.View("Select * From T_Hrms_Dep_Account Where ID = " & IntID)



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="<%=SelectValueView(ObjDB,"Select ID,DepName from T_Hrms_Dep",CStr(ObjRS("DepID")))%>"></td>
  </tr>
    <tr class=Ltr>
    <td>岗位</td>
    <td><input type="text" class=Input name="_Pos" value="<%=SelectValueList(ObjDB,"Select ID,JobName from T_Hrms_Sys_Job",CStr(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" -->