<!--#include file="../SQLconn.asp"-->

<html>
<head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/style.css" />

<link rel="stylesheet" type="text/css" href="../css/style.css" />
<style type="text/css">
<!--
.STYLE5 {color: #FF0000}
-->
</style>
<body>
<table width="99%" height="500" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="33"><table width="100%" height="33" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="70" class="Nemuselect" ><div align="center"><a href="main.asp" target="_self">我的考勤</a></div></td>
        <td width="70" class="NemuNot" ><div align="center"><a href="QingJiaList.asp" target="_self">我的请假</a></div></td>
        <td width="70" class="NemuNot" ><div align="center"><a href="QingJiaJiLu.asp" target="_self">请假记录</a></div></td>
         <td width="70" class="NemuNot" ><div align="center"><a href="Alljilu.asp" target="_self">考勤记录</a></div></td>
        <td width="70" class="NemuNot" ><div align="center"><a href="shenbianchuli.asp?qdtype=未处理" target="_self">申辩处理</a></div></td>
        <td width="70" class="NemuNot" ><div align="center"><a href="Rentongji.asp" target="_self">按人统计</a></div></td>
        <td width="70" class="NemuNot" ><div align="center"><a href="Datetongji.asp" target="_self">按时统计</a></div></td>
        <td width="70" class="NemuNot" ><div align="center"><a href="list.asp" target="_self">分类查看</a></div></td>
        <td width="70" class="NemuNot" ><div align="center"><a href="showimg.asp" target="_self">考勤图片</a></div></td>
       <td    class="NemuLine">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="470" valign="top"   class="NemuMainBox">
        <%    
        tname=request.cookies("tname") 
		dakatype=Request("dakatype")
		begindate=Request("begindate")
		if begindate="" then 
		begindate=date()-15
		end if 	
		enddate=Request("enddate")
		if enddate="" then 
		enddate=date()
		end if
	    %>
	   
	   

	   <br>
       <FORM ACTION="GeRenjilu.asp" METHOD="GET" enctype="multipart/form-data" NAME="ftype">
       <div align="center" class="STYLE1">
         <table width="662" height="35" border="1" class="mtable">
           <tr>
             <td width="409"><div align="center">开始日期
               <input name="begindate" type="text" class="input" id="begindate" value=<%=begindate%> size="10">
&nbsp;结束日期
<input name="enddate" type="text" class="input" id="enddate" value=<%=enddate%> size="10">
             </div></td>
             <td width="120"><div align="center">
               <input name="Submit" type="submit" class="topanniu" value="查询记录">
             </div></td>
             <td width="111"><div align="center">
               <input name="button2" type="button" class="topanniu" onClick="location='myimg.asp?begindate=<%=begindate%>&enddate=<%=enddate%>'" value="查询图片">
</div></td>
           </tr>
         </table>
         </div>
       
	   <span class="STYLE1">
	   <%  
	 zubie="默认组"	
     set Rszu=server.createobject("adodb.recordset")
     sqlRszu="select * from teacherGroup where tname='"&session("tname")&"'  and owner='考勤管理'" 
     Rszu.open sqlRszu,conn,1,3
	 zubie=Rszu("GroupName")
	 zubie.close
	 
	 set Rszuvar=server.createobject("adodb.recordset")
     sqlRszuvar="select * from kaoqinvar where   组名='"&zubie&"' " 
     Rszuvar.open sqlRszuvar,conn,1,3
		  swCD=formatdatetime(now,2)&" "&Rszuvar("早上迟到")    '早上迟到
		  swZT=formatdatetime(now,2)&" "&Rszuvar("早上早退")     '早上早退
		  xwCD=formatdatetime(now,2)&" "&Rszuvar("下午迟到")     '下午迟到 
		  xwZT=formatdatetime(now,2)&" "&Rszuvar("下午早退")     '下午早退
		  wsCD=formatdatetime(now,2)&" "&Rszuvar("晚上迟到")    '晚上迟到 
		  wsZT=formatdatetime(now,2)&" "&Rszuvar("晚上早退")      '晚上早退
		  
		  swCome=formatdatetime(now,2)&" "&Rszuvar("上午上班打卡截止")           '上午上班打卡截止
		  swGo=formatdatetime(now,2)&" "&Rszuvar("上午下班打卡截止")               '上午下班打卡截止
		  xwCome=formatdatetime(now,2)&" "&Rszuvar("下午上班打卡开始")          '下午上班打卡开始
		  xwGo=formatdatetime(now,2)&" "&Rszuvar("下午下班打卡截止")              '下午下班打卡截止
		  wsCome=formatdatetime(now,2)&" "&Rszuvar("晚上上班打卡开始")           '晚上上班班打卡开始
		  wsGo=formatdatetime(now,2)&" "&Rszuvar("晚上下班打卡开始")              '晚上
	 	 

	   %><br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;考勤组别：<span class="STYLE5"><%=zubie%>&nbsp;<%=dakatype%>&nbsp;</span>早上迟到<%=Rszuvar("早上迟到")%> &nbsp;&nbsp;早上早退<%=Rszuvar("早上早退")%> &nbsp;&nbsp;下午迟到<%=Rszuvar("下午迟到")%> &nbsp;&nbsp;下午早退<%=Rszuvar("下午早退")%> &nbsp;&nbsp;晚上迟到<%=Rszuvar("晚上迟到")%> &nbsp;&nbsp;晚上早退<%=Rszuvar("晚上早退")%> <br>  
	   <%
		 Rszuvar.close
	
	  
	   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro2.YFSchoolDll2")
       call  MyOAASPObj.KaoqinGeRenjilu(tname,begindate,enddate)
       set MyOAASPObj=nothing	 
	   
	   
	   
	   %>
            </p>
       </span>
       </FORM>
 	
           
        
   </tr>
</table>
</body>
</html>
