showtime.asp

通用考勤系统

<%
sub showzf(num)
zt=num
colornum=0
sql="Select * From qdsetall"
rs.open sql,cn,1,1
do while not rs.eof
wt=rs("worktime")
%>
<tr>
  <td height=25 align=left  <%if colornum mod 2 =0 then %> class=td2<% else%> class=td1<%end if%>  width=70% colspan=2 style='cursor:hand' onclick='showsubmenu(<%=rs("id")%>)' title="点击伸缩">
    <img src=../images/plus.gif><%=rs("setname")%> - [<font color=#ffff00>工作时间：</font><%=wt%>分钟 | <font color=#ffff00>未注销默认：</font><%=rs("settime")%> 分钟 | <font color=#ffff00>签到缓冲：</font><%=rs("hctime")%> 分钟 | <font color=#ffff00>签到次数：</font><%=rs("alltimes")%>]
  </td>
  <td   <%if colornum mod 2 =0 then %> class=td2<% else%> class=td1<%end if%> height=25 align=right colspan=2 >
    <a href=qdset.asp?way=set&setid=<%=rs("id")%>>设置给员工</a>  <a href=?act=addfwq&zoneid=<%=rs("id")%>>添加签到点</a>  <a href=?act=editzone&id=<%=rs("id")%>&zonename=<%=rs("setname")%>&hctime=<%=rs("hctime")%>&settime=<%=rs("settime")%>>修改</a> <a onclick="{if(confirm('确认删除?\n此操作将删除该设置组下所有时间设定列表！')){return true;}return false;}" href=qdset_do.asp?act=zfdel&id=<%=rs("id")%>>删除</a>
  </td>
</tr>
<tr><td bgcolor=#0055bb colspan=4>
<%
showfwq (rs("id"))
   %>
</td><tr>
<%
colornum=colornum+1
rs.movenext
loop
 rs .close
end sub

sub showfwq (zt)

sql="Select * From qdsettime where upsetid="&zt&" order by qdnum"
rs1.open sql,cn,1,1
%>
<table width=100% >
<tr> 
    <td id="submenu<%=zt%>" style="DISPLAY:none">
       <div align="center">
<%
do while not rs1.eof
 dayqdtime=rs1("dayqdtime")
 dayzxtime=rs1("dayzxtime")
 qdnum=rs1("qdnum")
%>
<table  ><tr>
    <td height=25  bgcolor=#0055aa width=40% >&nbsp;&nbsp;&nbsp;
       <img src=../images/minus.gif><font color=#ffaa00><b><%=qdnum%></font></b> 
         &nbsp;&nbsp;&nbsp; 
        <font color=white>签到时间：</font><%=Format_Time(dayqdtime, 3)%>  
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
       <font color=yellow>注销时间：</font><%=Format_Time(dayzxtime, 3)%>
      </td><td  bgcolor=#0055bb  width=10%  height=25 align=right > <a href=?act=editfwq&fwqid=<%=rs1("id")%> >修改</a> | <a onclick="{if(confirm('确认删除?')){return true;}return false;}" href=qdset_do.asp?act=fwqdel&id=<%=rs1("id")%>&zoneid=<%=rs("id")%>>删除</a>
      
    </td></tr>
 </table>

<% 
rs1.movenext
loop
response.write "</div></td></tr></table>"
Rs1.close
end sub

%>