list.asp

功能齐全的oa系统

<%option explicit%>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<%
	Dim ObjDB,StrSQL
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	Dim IntParentID
	Dim IntAccountCount,ArrAccount
	
	IntParentID = Request.QueryString("ParentID")
	
	If IntParentID = "" Then IntParentID = 0
	
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	
	Set C = Server.CreateObject ("CMS2003.DBhandle")

	C.Init(ObjDB)

	StrSQL = "Select ID,DepName,Createtime From t_OA_SYS_Department Where ParentID = " & FixSQL(IntParentID)
	ArrList = C.List(1,0,StrSQL)					'使用List()函数获得列表数组
	IntPageCount = C.GetPageCount()					'使用GetPageCount()函数获得总页码
	IntRows = C.GetRows()							'使用GetRows()获得总返回的行数
	IntCols = C.GetCols()							'使用GetCols()获得总返回的列数

	StrSQL = "Select ID,TrueName,Pos,CreateTime From V_OA_SYS_Department_Account Where DepID = " & IntParentID
	ArrAccount = C.List(1,0,StrSQL)					'使用List()函数获得列表数组
	IntAccountCount = C.GetRows()

	ObjDB.Close
	Set ObjDB = Nothing
%>

<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>

<%
	If Cint(IntParentID)<>0 Then 	 
%>
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td colspan=4>本部门人员信息</td>
	</tr>
	<tr class=LStr>
		<td width=2%></td>
		<td width=38%>姓名</td>
		<td width=45%>职务</td>
		<td width=15%>日期</td>
	</tr>
<%
	For i = 0 To IntAccountCount
	%>
	<tr class=Ltr>
		<td><img src="../../../images/oa/sys/department/account.gif"></td>
	<td><%=ArrAccount(1,i)%></td>
	<td><%=ArrAccount(2,i)%></td>
	<td><%=FormatDate(ArrAccount(3,i))%></td>
	</tr>

	<%
	Next
	%>
</table>


	<input type="button" class=button onclick="parent.location='Account/index.asp?ParentID=<%=IntParentID%>'" value=" 调整部门人员 " name="B5"> 

<br><br>
<%
End If
%>


	<table class=Ltable cellspacing=1 cellpadding=3>
<%
	If Cint(IntParentID)<>0 Then 	 
%>
	<tr class=LHtr>
		<td colspan=4>下属部门信息</td>
	</tr>
<%
	End If
%>
	<tr class=LStr>
		<td width=1%><input type=checkbox id=0 name=ITEM></td>
		<td width=1%></td>
		<td width=83%>部门名称</td>
		<td width=15%>日期</td>
	</tr>
	<%
		For i = 0 To IntRows
	%>
	<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
		<td><input type=checkbox name=ITEM  id=<%=ArrList(0,i)%>></td>
		<td><img src="../../../images/department.gif"></td>
	<td><%=ArrList(1,i)%></td>
	<td><%=FormatDate(ArrList(2,i))%></td>
	</tr>

	<%
		Next		
	%>
	
	</table>

<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>

<!-- #include file="Templet.asp" -->