list.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<%
Dim ObjDB,StrSQL
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
Dim IntDay,SourceID

IntPageNo   = Request.QueryString("PageNo")
SourceID    = Request.QueryString ("SourceID")
IntDay      = Request.QueryString ("WDay")
IntPageSize = 8

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

Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)
If IntDay = "" then 
	StrSQL = " Select ID,BegDate,BegHour,BegMinute,FinDate,FinHour,FinMinute,TrueName,IsValid,CreateTime from V_OA_Work_Source_Record_TrueName where SourceID = " & SourceID
else  
	StrSQL = " Select ID,BegDate,BegHour,BegMinute,FinDate,FinHour,FinMinute,TrueName,IsValid,CreateTime from V_OA_Work_Source_Record_TrueName where SourceID = " & SourceID & " And Day(BegDate) = " & IntDay
End if

ArrList 		 = C.List(IntPageNo,IntPageSize,StrSQL)
IntPageCount = C.GetPageCount()
IntRows 		 = C.GetRows()
IntCols 		 = C.GetCols()

Sub Main
%>
	<table class=Ltable cellspacing=1 cellpadding=3>
		<tr class=LHtr>
			<td><input type=checkbox name=ITEM id=0></td>
			<td width=20%>开始时间</td>
			<td width=20%>结束时间</td>
			<td width=20%>预定人</td>
			<td width=20%>是否批准</td>
			<td width=20%>预定日期</td>
		</tr>
<%
	For i = 0 To IntRows
%>
		<tr class=Ltr id=<%=ArrList(0,i)%> name=ITEMTR>
			<td><input type = checkbox name= ITEM id=<%=ArrList(0,i)%>></td>
			<td><%=ArrList(1,i)%>&nbsp
<%
		if ArrList(2,i)<10 then
%>
			0
<%
		end if
%>
		<%=ArrList(2,i)%>：<%if ArrList(3,i)<10 then%>0<%end if%><%=ArrList(3,i)%>
		</td>
		<td><%=ArrList(4,i)%>&nbsp
		<%if ArrList(4,i)<10 then%>0<%end if%><%=ArrList(5,i)%>：<%if ArrList(6,i)<10 then%>0<%end if%><%=ArrList(6,i)%>
		</td>
		<td><%=ArrList(7,i)%></td>
		<td>
<%
		If ArrList(8,i) Then 
		  Response.Write "批准"
		Else
		  Response.Write "未批准"
		End If
%>
		</td>
		<td><%=ArrList(9,i)%></td>
	</tr>
<%
	Next
%>
	</table>
<%
	PageFooter IntPageCount,"PageNo"
%>
	<input type=button class=Button value="关 闭" onclick="top.close()" id=button2 name=button2>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->