📄 list.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL
Dim IntPageCount,IntPageNo,IntPageSize
Dim IntRows,IntCols,StrWhere
Dim WorkTime
WorkTime=8
StrWhere = Trim(Request.QueryString("W"))
IntPageNo = Request.QueryString("PageNo")
IntPageSize = 12
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB objDB
Set ObjRS = Server.CreateObject("ADODB.Recordset")
StrSQL="SELECT Account_ID,TrueName,DeptName,SUM(AM)AS AM,SUM(PM)AS PM,SUM(OverTime)AS OverTime,SUM(Total) AS Total FROM v_OA_Private_Sign_Stat WHERE 1=1 " &StrWhere
StrSQL=StrSQL&" GROUP BY Account_ID,TrueName,DeptName ORDER BY Account_ID DESC"
if StrWhere="" then
StrSQL="SELECT Account_ID,TrueName,DeptName,ISNULL(DATEDIFF([Hour], Login_Time_AM,Logout_Time_AM),0) AS AM,ISNULL(DATEDIFF([Hour], Login_Time_PM,Logout_Time_PM),0) AS PM,(ISNULL((DATEDIFF([Hour], Login_Time_AM, Logout_Time_AM) + DATEDIFF([Hour], Login_Time_PM, Logout_Time_PM)),0)-8) AS OverTime ,ISNULL((DATEDIFF([Hour], Login_Time_AM, Logout_Time_AM) + DATEDIFF([Hour], Login_Time_PM, Logout_Time_PM)),0) AS Total,Create_Time FROM v_OA_Private_Sign WHERE YEAR(Create_Time)=YEAR(GETDATE()) AND MONTH(Create_Time)=MONTH(GETDATE()) AND DAY(Create_Time)=DAY(GETDATE())"
End if
Set ObjRS=ObjDB.Execute(StrSQL)
Sub Main
%>
<body bgcolor="#ECFCFC">
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
<td width=2%> <div align="center">
<input type=checkbox name=ITEM id=0>
</div></td>
<td width=2%><div align="center"></div></td>
<td width=10%><div align="center">职员姓名</div></td>
<td width=10%><div align="center">部门</div></td>
<td width=10%><div align="center">上午上班时数</div></td>
<td width=10%><div align="center">下午上班时数</div></td>
<td width=10%><div align="center">加班时数</div></td>
<td width=10%><div align="center">缺勤时数</div></td>
<td width=10%><div align="center">共计上班时数</div></td>
<% if StrWhere="" then%>
<td width=16%><div align="center">日期</div></td>
<% End If %>
</tr>
<%
While NOT ObjRS.EOF
%>
<tr class=Ltr id=<%=ObjRS("Account_ID")%> name=ITEMTR>
<td><div align="center">
<input type = checkbox name= ITEM id=<%=ObjRS("Account_ID")%>>
</div></td>
<td><img src='../../../images/oa/public/address/icon.gif'></td>
<td><%=ObjRS("TrueName")%></td>
<td><%=ObjRS("DeptName")%></td>
<td><%=ObjRS("AM")%></td>
<td><%=ObjRS("PM")%></td>
<td><%If left(Trim(ObjRS("OverTime")),1)="-" Then%>0<%Else%><%=ObjRS("OverTime")%><%End If%></td>
<td><%If left(WorkTime-Trim(ObjRS("Total")),1)="-" Then%>0<%Else%><%=WorkTime-ObjRS("Total")%><%End If%></td>
<td><%=ObjRS("Total")%></td>
<% if StrWhere="" then%>
<td width=16%><div align="center"><%=ObjRS("Create_Time")%></div></td>
<% End If %>
</tr>
<%
ObjRS.MoveNext
Wend
%>
</table>
</body>
<%
PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -