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/Page.asp" -->
<%
	Dim ObjDB,StrSQL
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	
	IntPageNo	= Request.QueryString("PageNo")

		IntPageSize = 9

		
	Set ObjDB	= Server.CreateObject("ADODB.Connection")
	OpenDB objDB
StrSQL = "Select ID,Title,Place,Remark,StartDate,EndDate From t_OA_Private_Log Where day(StartDate)=day(getdate()) or day(EndDate)=day(getdate()) AND AccountID = " & Session("AccountID") & " Order by StartDate "
	Set C = Server.CreateObject ("CMS2003.DBhandle")
	
	C.Init(ObjDB)
	ArrList = C.List(IntPageNo,IntPageSize,StrSQL)	'使用List()函数获得列表数组
	IntPageCount = C.GetPageCount()					'使用GetPageCount()函数获得总页码
	IntRows = C.GetRows()							'使用GetRows()获得总返回的行数
	IntCols = C.GetCols()							'使用GetCols()获得总返回的列数
	ObjDB.Close
	Set ObjDB = Nothing
%>


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


<table class=Ltable cellspacing=1 cellpadding=3>
	<tr align="center"  class=LHtr>
	<input type=hidden name=id value=<%=ArrList(0,i)%>>
		<td width=2%><input type=checkbox id=0 name=ITEM></td>
		<td width=15%>工作计划</td>
		<td width=20%>工作地点</td>
		<td width=20%>备注</td>
		<td width=15%>开始时间</td>
		<td width=15%>结束时间</td>
	</tr>

<%
	If IntRows <> "" Then
%>
	<%
		For i = 0 To IntRows
	%>
   <tr align="center" class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
	<td><input type=checkbox name=ITEM  id=<%=ArrList(0,i)%>></td>
	<%
			If Len(ArrList(3,i)) > 4 then
			
	%>
		<td><%=ArrList(1,i)%></td>
		<td><%=ArrList(2,i)%></td>
		<td><%Response.Write Left(ArrList(3,i),4) & "..."%></td>
		<td><%=ArrList(4,i)%></td>
		<td><%=ArrList(5,i)%></td>
		</tr>
		
	<%Else%>
	<td><%=ArrList(1,i)%></td>
	<td><%=ArrList(2,i)%></td>
	<td><%=ArrList(3,i)%></td>
	<td><%=ArrList(4,i)%></td>
	<td><%=ArrList(5,i)%></td>
	</tr>
	<%      End If
	%>
	</tr>
	<%
		Next
	%>
	</table>

<%
	End If
%>
</table>
<%=PageFooter(IntPageCount,"PageNo")%>


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

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