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" -->
<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
<%
	Dim ObjDB,StrSQL,objRS
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	Dim StrWhere
	
	IntPageNo	= Request.QueryString("PageNo")
	StrWhere	= Request.QueryString("W")
	IntPageSize = 12
	IntPageSize = 20
	
	StrSQL = "SELECT TrueName,a.* FROM t_OA_Work_Sign a, t_OA_SYS_AccountCharacter b WHERE a.AccountID = b.AccountID ORDER BY LogoutTime DESC"

	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	set ObjRS = Server.CreateObject("Adodb.RecordSet")
	
	objRS.Open StrSQL, ObjDB, 3, 3
	objRS.PageSize = IntPageSize
	IntPageCount = objRS.PageCount
	objRS.AbsolutePage = IntPageNo
%>
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width=1%></td>
		<td width=68%>姓名</td>
		<td width=20%>签到时间</td>
		<td width=20%>注销时间</td>
	</tr>

	<%
		for i = 1 to IntPageSize
			if not objRS.EOF and not objRS.BOF then
	%>
	<tr class=Ltr>
		<td><img src='../../../images/oa/work/templet/icon.gif'></td>
		<td><%= objRS("TrueName")%></td>
		<td><%= objRS("LoginTime")%></td>
		<td><%= objRS("LogoutTime")%></td>
	</tr>

	<%
			end if
		next
	%>
	</table>

	<%=PageFooter(IntPageCount,"PageNo")%>
	
<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>

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