📄 latter2.asp

📁 通用考勤系统
💻 ASP
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：ctplr@163.com          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<title>asoft通用人事管理系统后台  by 野马</title>
<!--#include file="check.asp"-->
<!--#include file="MD5.asp"-->
 <!--#include file="conn.asp"-->
 <!--#include file="../webinfo.asp"-->
<link href=left.css rel=stylesheet>
<body background="../images/index_bj.gif"  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
if session("qx")<>0  then
response.write "对不起，您没有操作权限！"
else
ptype=session("ptype")
 sql11="select typename from type where type="&ptype
rs1.open sql11,cn,1,1
tpname=rs1("typename")
rs1.close

if request("act")="allac" then 
sql="select * from ct_sql where todaylatter=1 and type="&ptype
rs.Open sql,cn,1,3
do while not rs.eof
rs("todaylatter")=0
rs.movenext
loop
rs.close
response.write "<script>alert('已经清除');location.href='latter2.asp';</script>"
end if


%><center>
<table background=../images/loginIn2.gif width=100%><tr>
<td align=center><img src=images/latter.GIF><br>
<% if session("qx")<3 then %>[ <font color=white>当前察看组别：<%=tpname%>  |  <a href="?act=allac" onclick="{if(confirm('确认清零?')){return true;}return false;}">本组今日迟到数据清零</a>]<% end if%>

</td></tr></table>

<% 

rs.PageSize=latternum
if Request.QueryString("page")<>"" then 
curpage=cint(Request.QueryString("page")) 
else
curpage=1
end if
sql="select * from ct_sql where todaylatter=1 and type="&ptype
rs.Open sql,cn,1,1

pagenum=rs.PageCount  
if curpage>pagenum then 
curpage=pagenum
end if 
rs.AbsolutePage =curpage
if (rs.eof and rs.bof)  then 
response.write "<br><br><font color=#ff6600 size=5>没有记录<br><br></font>"
else
  %><form action="shenhe_do.asp?act=shenhe"  method="post" name=shenhe> 
        <table border=1 bordercolor=#0055aa width=100%>
          <tr>
            <td   align=center class=tdwhtimg ><b>姓  名</b></td>
        
            <td  class=tdwhtimg align=center >最近签到时间</td>
         
           <td  class=tdwhtimg align=center >今日迟到时长</td>

           <td  class=tdwhtimg align=center >本月迟到次数</td>
             <td  class=tdwhtimg align=center >操   作</td>

                  </tr>
          <% do while not rs.eof and shenhenum>0 
uname=rs("username")
aid=rs("id")
rname=rs("realname")
mf=rs("monthfen")
pqdtime=rs("todayqdontime")
plattertime=rs("lattertime")
pmonthtimes=rs("monthlattertime")
%>
          <tr>
            <td   align=center class=td2>
                    <b ><a href=viewmenber.asp?id=<%=id%>&name=<%=uname%>  target=_blank><%=uname%></a></b >
                   
            </td>
                      
            
            <td   align=center  class=td1><%=pqdtime%> 
            </td>
            
            <td   class=td2 align=center bgcolor=#0055aa>
   <b><%=plattertime%></b> 分钟
            </td>

<td    align=center  class=td1>
   <b><%=pmonthtimes%></b> 分
            </td>
<td   align=center  class=td2>
   <a href=menberjf2.asp?action=find&puser=<%=uname%>>人员奖罚</a> | <a href=latterrc.asp?aid=<%=aid%>&rname=<%=rname%>>迟到纪录</a>
            </td>
          </tr>
          <%  rs.movenext
shenhenum=shenhenum-1
loop
response.write"</table> </form>"
end if

rs.close
set rs=nothing

 
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "
Response.Write "[<a href=?page=1>首 页</a>]  "
if curpage>1 then 
Response.Write "[<b><a name=up href=?page=" & (curpage-1) & " >上一页</a></b> ]&nbsp;"
end if

if curpage<pagenum then
Response.Write "[<b><a name=down href=?page=" & (curpage+1) & " >下一页</a></b>] "
end if 

Response.Write "  [<a href=?page="&pagenum&">尾 页</a>]"
Response.Write "  当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close 
set rs=nothing
cn.close
set cn=nothing
end if
%>
</td>
<br>
<br>
<br>
<br>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -