allqdshow.asp

通用考勤系统

   loop
      response.write"</table>"
      Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "

      Response.Write "[<a href=?act=checkqdqt&selectcx=ftime&cxtime="&request_date&"&page=1>首 页</a>]  "
      if curpage>1 then 
      Response.Write "[<b><a name=up href=?act=checkqdqt&selectcx=ftime&cxtime="&request_date&"&page=" & (curpage-1) & " >上一页</a></b> ]&nbsp;"
      end if

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

      Response.Write "  [<a href=?act=checkqdqt&selectcx=ftime&cxtime="&request_date&"&page="&pagenum&">尾 页</a>]"
      Response.Write "  当前是第[<font color=red>"&curpage&"</font>]页</center>" 

      end if
 

elseif selectcxradio="multime" then
    request_sdate=request("starttime")
    request_edate=request("endtime")      
     request_sdateview=Format_Time(request_sdate, 4)     
    request_edateview=Format_Time(request_edate, 4) 
    
     response.write "<table width=95% align=center border=0  id='tblData'>"
     response.write "<tr><td colspan=6 class=tdhead align=center>察看 "&request_sdateview&"到 "&request_edateview&" 的签到纪录</td>"
     response.write "<tr><td align=center width=10% class=tdwhtimg>页内ID</td><td align=center  class=tdwhtimg>员工账号</td><td align=center  class=tdwhtimg>真实姓名</td><td align=center  class=tdwhtimg>签到时间</td><td align=center  class=tdwhtimg>签到IP</td><td align=center  class=tdwhtimg>迟到时间</td></tr>"
      sql="select * from qdzxrec where qddate>=#"&request_sdate&"# and qddate<=#"&request_edate&"#"
             qdviewnum=20        '''''''本页显示20条
            rs.PageSize=qdviewnum
            if Request.QueryString("page")<>"" then 
            curpage=cint(Request.QueryString("page")) 
            else
            curpage=1
            end if
          qdtimeids=1
          rs.open sql,cn,1,1
               if rs.eof then
                 response.write "<script >alert('数据库没有该时段的纪录!');history.back();</script>"
               else
           pagenum=rs.PageCount  
            if curpage>pagenum then 
            curpage=pagenum
             end if 
            rs.AbsolutePage =curpage

           do while not rs.eof and qdviewnum>0
          qdtime=rs("qdtime")
          qdip=rs("qdip")
          latttimes=rs("latttimes")
          menberid=rs("menberid")
           sqlmenber="select username,realname from ct_sql where id="&menberid
             rs4.open sqlmenber,cn,1,1
              zh=rs4("username")
              realname=rs4("realname")
             rs4.close
            response.write "<tr><td align=center width=10% class=td1>"&qdtimeids&"</td>"
           response.write "<td align=center  class=td2><a href=menberqdqt.asp?act=checkqdqt&selectcx=name&tj="&zh&" title='点击察看该人员签到纪录'>"&zh&"</a></td>"
           response.write "<td align=center  class=td1>"&realname&"</td>"
           response.write "<td align=center  class=td2>"&qdtime&"</td><td align=center  class=td1>"&qdip&"</td><td align=center  class=td2>"&latttimes&"</td></tr>"  
          qdtimeids=qdtimeids+1
          qdviewnum=qdviewnum-1
       rs.movenext
   loop
      response.write"</table>"
      Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "

      Response.Write "[<a href=?act=checkqdqt&selectcx=ftime&cxtime="&request_date&"&page=1>首 页</a>]  "
      if curpage>1 then 
      Response.Write "[<b><a name=up href=?act=checkqdqt&selectcx=ftime&cxtime="&request_date&"&page=" & (curpage-1) & " >上一页</a></b> ]&nbsp;"
      end if

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

      Response.Write "  [<a href=?act=checkqdqt&selectcx=ftime&cxtime="&request_date&"&page="&pagenum&">尾 页</a>]"
      Response.Write "  当前是第[<font color=red>"&curpage&"</font>]页</center>" 

      end if
  end if
 end if

 else
response.write "<script >alert('请登陆后进入此页面！！');history.back();</script>"
end if
end if
Function Format_Time(s_Time, n_Flag) 
 Dim y, m, d, h, mi, s 
 Format_Time = "" 
 If IsDate(s_Time) = False Then Exit Function 
 y = cstr(year(s_Time)) 
 m = cstr(month(s_Time)) 
 If len(m) = 1 Then m = "0" & m 
 d = cstr(day(s_Time)) 
 If len(d) = 1 Then d = "0" & d 
 h = cstr(hour(s_Time)) 
 If len(h) = 1 Then h = "0" & h 
 mi = cstr(minute(s_Time)) 
 If len(mi) = 1 Then mi = "0" & mi 
 s = cstr(second(s_Time)) 
 If len(s) = 1 Then s = "0" & s 
 Select Case n_Flag 
 Case 1 
  '’ yyyy-mm-dd hh:mm:ss 
  Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s 
 Case 2 
  '’ yyyy-mm-dd 
  Format_Time = y & "-" & m & "-" & d 
 Case 3 
  '’ hh:mm:ss 
  Format_Time = h & ":" & mi & ":" & s 
 Case 4 
  '’ yyyy年mm月dd日 
  Format_Time = y & "年" & m & "月" & d & "日" 
 End Select 
End Function
%>
<script language=javascript>
 function doselectcx(val)
 {
  if(val=="name")
 {
  document.checkqdqt.tj.disabled=0;
  document.checkqdqt.tj.value="请输入员工账号！";
  document.checkqdqt.fyear.disabled=1;
  document.checkqdqt.fmon.disabled=1;
  document.checkqdqt.fdate.disabled=1;
  document.checkqdqt.suba.disabled=1;
  document.checkqdqt.res.disabled=1;
  document.checkqdqt.ok.disabled=1;
  }
 else if(val=="ftime")
 {
    document.checkqdqt.tj.disabled=1;
  document.checkqdqt.tj.value="请选择日期！";
  document.checkqdqt.fyear.disabled=0;
  document.checkqdqt.fmon.disabled=0;
  document.checkqdqt.fdate.disabled=0;
  document.checkqdqt.suba.disabled=0;
  document.checkqdqt.res.disabled=0;
  document.checkqdqt.ok.disabled=1;
}
 else if(val=="multime")
 {
  document.checkqdqt.tj.disabled=1;
  document.checkqdqt.tj.value="请点选时间段！";
  document.checkqdqt.fyear.disabled=1;
  document.checkqdqt.fmon.disabled=1;
  document.checkqdqt.fdate.disabled=1;
  document.checkqdqt.suba.disabled=1;
  document.checkqdqt.res.disabled=1;
  document.checkqdqt.starttime.disabled=0;
  document.checkqdqt.endtime.disabled=0;
  document.checkqdqt.ok.disabled=0;
 
 }
}
  function doselectcxsubmit()
 {
  if(document.checkqdqt.tj.value=="" || document.checkqdqt.tj.value=="请输入员工账号！" )
   {
  document.checkqdqt.suba.disabled=1;
  document.checkqdqt.res.disabled=1;
    }
  else
    {
  document.checkqdqt.suba.disabled=0;
  document.checkqdqt.res.disabled=0;
}
}

function doselectcxsubmit2()
{
 if (document.checkqdqt.starttime.value!="" && document.checkqdqt.endtime.value!="")
  {
   if (document.checkqdqt.starttime.value>document.checkqdqt.endtime.value)
   {
    alert("结束时间应该大于开始时间！");
    document.checkqdqt.suba.disabled=1;
    document.checkqdqt.res.disabled=1;
    return false;
   }else{
   document.checkqdqt.suba.disabled=0;
   document.checkqdqt.res.disabled=0;
   }
 } else{
 
 document.checkqdqt.suba.disabled=1;
 document.checkqdqt.res.disabled=1;
 }
 }</script>