view.asp

功能齐全的oa系统

<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"

	Dim ObjDB,StrSQL
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	Dim StrWhere,NowDay

	IntPageNo	= Request.QueryString("PageNo")
	StrWhere	= Request.QueryString("W")
	IntPageSize = 12
	
	StrSQL = "Select ID,TrueName,DeptName,Login_Time_AM,Logout_Time_AM,Login_Time_PM,Logout_Time_PM,Create_Time From v_OA_Private_Sign Where 1=1 " & StrWhere & " Order by ID desc"
	
	Set ObjDB	= Server.CreateObject("ADODB.Connection")
	OpenDB objDB

	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()获得总返回的列数

Sub Main
%>
<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width=1%><input type=checkbox id=0 name=ITEM></td>
		<td width=1%></td>
		<td width=8%>职员姓名</td>
		<td width=8%>部门</td>
		<td width=10%>上午签入时间</td>
		<td width=10%>上午签出时间</td>
		<td width=10%>下午签入时间</td>
		<td width=10%>下午签出时间</td>
		<td width=10%>日期</td>
	</tr>

<%	For i = 0 To IntRows
	NowDay=Trim(Year(ArrList(7,i))&"-"&Month(ArrList(7,i))&"-"&Day(ArrList(7,i)))
		
	%>
	<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
		<td><input type = checkbox name=ITEM id=<%=ArrList(0,i)%>></td>
    <td><img src='../../../images/oa/public/address/icon.gif'></td>
		<td><%=ArrList(1,i)%></td>
		<td><%=ArrList(2,i)%></td>
		
    <td>
      <%If ISNULL(Trim(ArrList(3,i))) Then%>
		  <%If NowDay=Trim(Date()) Then%>
      <font color="#00CC00">未到时间</font>
		  <%Else%>
      <font color="#FF0000">缺勤</font>
	  	<% End If%>
      <%Else%>
      <%=ArrList(3,i)%>
      <%End If%>
    </td>
		<td>      <%If ISNULL(Trim(ArrList(4,i))) Then%>
		  <%If NowDay=Trim(Date()) Then%>
      <font color="#00CC00">未到时间</font>
		  <%Else%>
      <font color="#FF0000">缺勤</font>
	  	<% End If%>
      <%Else%>
      <%=ArrList(4,i)%>
      <%End If%>
</td>
		<td>      <%If ISNULL(Trim(ArrList(5,i))) Then%>
		  <%If Trim(NowDay)=Trim(Date()) Then%>
      <font color="#00CC00">未到时间</font>
		  <%Else%>
      <font color="#FF0000">缺勤</font>
	  	<% End If%>
      <%Else%>
      <%=ArrList(5,i)%>
      <%End If%>
</td>
		<td>      <%If ISNULL(Trim(ArrList(6,i))) Then%>
		  <%If Trim(NowDay)=Trim(Date()) Then%>
      <font color="#00CC00">未到时间</font>
		  <%Else%>
      <font color="#FF0000">缺勤</font>
	  	<% End If%>
      <%Else%>
      <%=ArrList(6,i)%>
      <%End If%>
</td>
		<td><%=Year(ArrList(7,i))&"年"&Month(ArrList(7,i))&"月"&Day(ArrList(7,i))&"日"%></td>
	</tr>
	<%
		Next
	%>
</table>
<%
	PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="templet.asp" -->