qd.asp

通用考勤系统

   response.write "<form action='qd_do.asp?action=qdon' method=post>"
   if ((mustqdok=0) and (musttimepartnow>thisqdtime)) then   '^^^^^^^^^^^^^^^^^如果是第一次签到^^^^^^^^^^^^
                                                               '^^^^^^^^^^^^^^^^如果迟到得太久^^^^^^^^^^^^^^
      response.write "<font color=white><b>您迟到得太久，本次签到无法正常进行！<br>[迟到 "&musttimepartnow&" 分钟 ，本次签到内工作时间 "&thisqdtime&" 分钟]</b></font>"
        response.write "<br><a href='qd_do.asp?action=nextqd'  class='wiht'>点击这里进行下一次签到</a>"

         sql="select *  from webset" '''解除全局初始化状态
                 rs1.open sql,cn,1,3
                   rs1("initmonth")=0
                   rs1("initday")=0
                 rs1.update
                 rs1.close
     if todaylatterrc=0 then    '^^^^^^^^^添加迟到纪录
       uname=session("name")
      sql="select * from ct_sql where username='"&uname&"'"
       rs.Open sql,cn,1,3
        rs("alllattertime")=rs("alllattertime")+1
         rs("monthlattertime")=rs("monthlattertime")+1
          rs("todaylatter")=1
           rs("lattertime")=musttimepartnow
          rs("monthlatterqdrc")=rs("monthlatterqdrc")&now()&","&musttimepartnow&"|"
         rs("todaylatterrc")=1
                   ''添加完成
        rs.update
       rs.close
     end if 
      
  elseif ((mustqdok=0) and (musttimepartnow-hhctime>0) and (todayqdtimes<dayqdtimes)) then   '^^^^^^^^^^^如果已经迟到，但是是在可签到的范围内^^^^^^^^^^^'
         response.write "<font color=yellow><b>您已经迟到，请尽快签到<br>[迟到 "&musttimepartnow&" 分钟 ，本次签到内工作时间 "&thisqdtime&" 分钟]<br>"
     if todaylatterrc=0 then               '^^^^^^^^^添加迟到纪录
      uname=session("name")
       sql="select * from ct_sql where username='"&uname&"'"
        rs.Open sql,cn,1,3
         rs("alllattertime")=rs("alllattertime")+1
          rs("monthlattertime")=rs("monthlattertime")+1
           rs("todaylatter")=1
            rs("lattertime")=musttimepartnow
           rs("monthlatterqdrc")=rs("monthlatterqdrc")&now()&","&musttimepartnow&"|"
          rs("todaylatterrc")=1
         rs.update
        rs.close
      end if                              ''添加完成

    response.write "<input type=submit value='点击签到' class=ibox><input type=hidden name='latttimes' value="&musttimepartnow&"></b></font></br><br>"
   response.write lockedcn
    
    
  elseif  ((musttimepartnow+hhctime<0) and (mustqdok=0))  then
         response.write "<font color=yellow><b>还未到签到时间！</b><br><br>[离签到时间还差  <b>"&(abs(musttimepartnow+hhctime))&"</b>  分钟]<br>[ "&Format_Time(dayqdtime,3)&" 的 <u><b>前后"&hhctime&"分钟</b></u> 内签到有效！]</font>" 
  
  elseif ((todayqdtimes-dayqdtimes<=0)  and (mustqdok=1))then           ''^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^签到次数用完
          response.write "<font color=yellow><b> 系统设定今天最多签到"&dayqdtimes&"次，您已经完成！</b></font>"
  
  else                                                              ''^^^^^^^^^^^^^^^^^^^^^^^^^正常签到
    response.write "<font color=white><b>欢迎您，"&session("name")&" !签到缓冲时段还剩余 <font color=yellow>"&(hhctime-musttimepartnow+1)&"</font>　分钟！" 
   response.write "<br>在此时段之后签到视为迟到，请您抓紧时间签到</b></font><br><Br><input type=submit value='点击签到' class=ibox><br><br>"
   response.write lockedcn
   response.write "</form></td></tr>"
  end if                    ''第一次签到 判断 end 
    response.write "</form >"
                       
 elseif autoqd=0 then              '^^^^^^^^^^^^^^^^^^^如果自由签到
          %>
          
          <tr><td  class=td2 align=center><font color=yellow>您今天的签到方式为 <b>自由签到</b>,
          您只需要在今天完成工作量即可，您只需要一次签到操作。<br><br>
 <%
      response.write "<form action='qd_do.asp?action=qdon' method=post><font color=white><b>欢迎您，"&session("name")&" !" 
   response.write "<br><Br><input type=submit value='点击签到' class=ibox><br><br>"
   response.write lockedcn
   response.write "</form></td></tr>"
   
     ''^^^^^^^^^^^^^^^^^^^^^结束判断^^^^^^^^^^^^^^^^^^^^^^^%>
<tr><td class=td1 align=center>您的日工作量是<font color=yellow><%=sysworktime%></font>分钟,请在所有签到时间内完成今天的工作！</td></tr>
<tr><td  align=center class=sec_menu height=80>
<%
   if todayqdsuc=0 then
      response.write "<br><b><b>您昨天结算的工资为 "&yestodaypay&" 元</b></font><br>"
   end if

   end if

 elseif todayqd=1 then                        '''^^^^^^^^^^^^如果已经进行过签到操作
       response.write"<form action='qd_do.asp?action=qdoff' method=post>"
         if autoqd<>0 then
          mustzxtimepartnow=int(datediff("s",nowtime1,nextmustzxtime)/60)   ''计算系统现在时间设定的注销时间的差距,单位是分钟
          mustqdtimepartnow=int(datediff("s",thismustqdtime,nowtime1)/60) 
          todayqdtimepartnow=int(datediff("s",todaytdontime,nowtime1)/60)
            if llt=0 then
              if mustqdtimepartnow<0 then
                  userfulmustqdtimepartnow=0    
               elseif mustqdtimepartnow>=thisqdtime then
                userfulmustqdtimepartnow=thisqdtime
               else
                  userfulmustqdtimepartnow=mustqdtimepartnow
              end if  
          elseif llt>1 then 
               if mustqdtimepartnow>=thisqdtime then
                userfulmustqdtimepartnow=thisqdtime-llt-1
               else
                  userfulmustqdtimepartnow=mustqdtimepartnow-llt-1
              end if  
          end if                                  ''''''''签到有效时间
            if  mustzxtimepartnow>0 then

    %>       
                <br><br><font color=white>您上次签到在 <font color=yellow><%=Format_Time(todayqdontime,1)%></font>，本次签到工作时间设定为<font color=yellow><%=thisqdtime%></font>分钟，<br>
               你应该在当天 <font color=yellow><%=Format_Time(nextmustzxtime,3)%></font> 过后的<font color=yellow> <%=hhctime%> </font>分钟内才能进行注销操作<br>
              <%if isautooffqd=1 then%> 
                <br>
                <font color=#FFff00><b>如果您忘记了签到，系统将会 <u>自动注销</u> 以便于您进行本日下一次签到</b></font></br>
              <% elseif isautooffqd=0 then  %>
                 <br>
                  <font color=#FFff00><b>如果您忘记了签到，系统将允许您 <u>手动注销</u> 以便于您进行本日下一次签到</b></font></br>
              
              <%end if%>
                <br> [<B>离注销剩余 <font color=#FFff00><%=mustzxtimepartnow+1%></font> 分钟！</b>] 

   <% 
   elseif int(mustzxtimepartnow+hhctime+1)>=0 then
   %>          
              <br><br>能进行注销操作的时段还剩余 <font color=yellow><b><%=mustzxtimepartnow+hhctime+2%></b> </font>分钟！请抓紧时间完成注销操作！
          
          
          <%if isautooffqd=1 then%> 
                <br>
                <font color=#FFff00><b>如果您忘记了签到，系统将会 <u>自动注销</u> 以便于您进行本日下一次签到</b></font></br>
              <% elseif isautooffqd=0 then  %>
                 <br>
                  <font color=#FFff00><b>如果您忘记了签到，系统将允许您 <u>手动注销</u> 以便于您进行本日下一次签到</b></font></br>
              
              <%end if%>
          
                   点击下面的按钮注销签到<br><br>
           <input type=submit value="点击注销签到"  class=ibox  onclick="{if(confirm('确认注销?')){return true;}return false;}"> 

         </form>
   <%  else    
        
        if isautooffqd=1 then                                      ''''''''自动注销  
           response.write "<Script>location.href='qd_do.asp?action=autoqdoff&sm=自动'</script>"
           
        elseif isautooffqd=0 then                                   '''''手动注销
           response.write "<a href='qd_do.asp?action=autoqdoff&sm=手动' class='wiht'>点击这里跳转到下一个签到点</a>"
           
       end if   
  end if
elseif autoqd=0 then

%>
 
点击下面的按钮注销签到<br><br>
           <input type=submit value="点击注销签到"  class=ibox  onclick="{if(confirm('确认注销?')){return true;}return false;}"> 

         </form>
<%end if%>
             </td>
           </tr>
           <tr>
             <td class=sec_menu>
              
             <br>您离最近的签到上班已有<font color=#ff3333><%=todayworktime%></font>分钟 
             
             </td>
          </tr>
<%
 
 elseif todayqd=2 then                    
 response.write "您已经完成签到！点击察看 <a href='qdinf.asp'  class='wiht'>信息中心</a> " 
 end if

elseif shenhe=0 then                                          '''如果没有通过审核
response.write "<br><br><font color='white' size='5'>您还没有通过审核！<br><br>如果您非本系统人员，<br><br>您的账号将被删除！</font>"
end if

%>
</td>
          </tr>
        </table>
      
    <tr > 
      <td height="46" colspan="2" VALIGN=TOP background="images/bottom_bg.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="15" ALIGN=RIGHT>&nbsp;</td>
          </tr>
          <tr>
            <td height="30" align="center" valign="middle"> <font color="#FF9900">推荐<font color="#FF0000">1024*768</font>分辨率</font> 
              <font color="green">Copyright &copy; 2005 <font color="#FF0000">野马</font> 
              All Rights Reserved</font> </td>
          </tr>
        </table></td>
    </tr>
    <tr > 
     <td height="34" colspan="2" ><!--#include file="foot.asp"--></td>
    </tr>
  </table>
</div>
</body>
</html>