qiandao_look.asp

考勤评分系统 功能发布： 1、管理员权限

<!--
菜菜考勤评分系统V1.0
www.pcicai.cn
[e-mail]
还望多指教！
菜菜网CMSV1.0发布正在筹备中，请关注 www.pcicai.cn
小飞@蝙蝠 QQ 285305740
--> <!--#include file="conn.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=../css.css rel=stylesheet>

<div align="center">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id from scunews"
rs.open sql,cn,1,1
s=rs.recordcount
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select id from scunews where upup=1"
rs.open sql,cn,1,1
s1=rs.recordcount
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select id from scunews where downdown=1"
rs.open sql,cn,1,1
s2=rs.recordcount
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select id from scunews where jiajia=1"
rs.open sql,cn,1,1
s3=rs.recordcount
rs.close
set rs=nothing
%>
<table width="61%" border="0" cellspacing="0" cellpadding="0">
  <tr align="center" valign="bottom">
    <td width="19%" height="20">总人数</td>
    <td width="23%">上班签到人数</td>
    <td width="29%">下班登记人数</td>
    <td width="29%">请假外出人数</td>
  </tr>
  <tr align="center">
    <td><%=s%></td>
    <td><%=s1%></td>
    <td><%=s2%></td>
    <td><%=s3%></td>
  </tr>
  <tr align="center" valign="bottom">
    <td height="310">百分比</td>
    <td height="310"><div style="background-color:#98C9D6; width: 20px; height: <%=(s1/s)*300%>px;"></div></td>
    <td height="310"><div style="background-color:#98C9D6; width: 20px; height: <%=(s2/s)*300%>px;"></div></td>
    <td height="310"><div style="background-color:#98C9D6; width: 20px; height: <%=(s3/s)*300%>px;"></div></td>
  </tr>
</table>
<hr size="2px" color="#218FF3">

<table width="61%" border="0" cellspacing="0" cellpadding="0">
  <tr align="center">
    <td width="19%">账户</td>
    <td width="23%">上班签到</td>
    <td width="29%">下班登记</td>
    <td width="29%">请假外出</td>
  </tr>
  <%
  set rs=cn.execute("select * from scunews")
  do while not rs.eof
  %>
  <tr align="center">
    <td align="left">&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("username")%></td>
    <td><div id="div1">
      <%if rs("upup")=0 then%>
      <a href="?act=upup&id=<%=rs("id")%>"><font color="#FF0000">未签到</font></a>
      <%else%>
      <a href="?key=upup&id=<%=rs("id")%>">已签到</a>
      <%end if%>
    </div></td>
    <td><%if rs("downdown")=0 then%>
      <a href="?act=downdown&id=<%=rs("id")%>">未登记</a>
        <%else%>
        <a href="?key=downdown&id=<%=rs("id")%>"><font color="#FF0000">已登记</font></a>
      <%end if%></td>
    <td><div id="div">
      <%if rs("jiajia")=0 then%>
      <a href="?act=jiajia&id=<%=rs("id")%>">未请假</a>
      <%else%>
      <a href="?key=jiajia&id=<%=rs("id")%>"><font color="#FF0000">已请假</font></a>
      <%end if%>
    </div></td>
  </tr>
  <%
  rs.movenext
  loop
  conn.close
  %>
</table>
<%
id=request("id")
if request("act")<>"" then
set rs=cn.execute("update scunews set "&request("act")&"=1 where id="&id&"")
conn.close
response.Redirect("qiandao_look.asp")
end if
if request("key")<>"" then
set rs=cn.execute("update scunews set "&request("key")&"=0 where id="&id&"")
conn.close
response.Redirect("qiandao_look.asp")
end if
%>

</div>