qd_do.asp

通用考勤系统

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
%>
<!--#include file="conn.asp"-->
<!--#include file="MD5.asp"-->
<!--#include file="webinfo.asp"-->
<!--#include file="payinfo.asp"-->
<%
 if  request("action")="qdon"  then 
 aid=session("id")
  '############判断是否ip锁定##########
  rs1.open "select todayqdip from ct_sql where id="&aid, cn,1,1
  if rs1("todayqdip")=empty then
   todayiplocked=0
  elseif rs1("todayqdip")=Request.ServerVariables("REMOTE_ADDR") then
   todayiplocked=0
  else
   todayiplocked=1
  end if
  '############判断完毕###################

  '##########33执行判断###################
 if todayiplocked=1 then
  response.write "<script>alert('系统已经设定IP锁定，您的IP已经绑定帐号，不能代签！');location.href='index.asp';</script>"
 elseif todayiplocked=0 then

    nowtime=now()
    sql="select * from ct_sql where id="&aid
    rs1.open sql,cn,3,3
    rs1("mustqdok")=1
    rs1("todayqd")=1
    rs1("todayqdip")=Request.ServerVariables("REMOTE_ADDR")
    rs1("todayqdontime")=nowtime
    rs1("closeqdtime")=nowtime
    rs1("monthqdrc")=rs1("monthqdrc")&now()&"|"
    rs1("todayinitdate")=date()
    rs1("allqdnum")=int(rs1("allqdnum")+1)
    rs1("monthqdnum")=int(rs1("monthqdnum")+1)
    rs1("todayqdtimes")=int(rs1("todayqdtimes")+1)
    rs1("todayqdsuc")=1
    rs1.update
    rs1.close
       sql="select *  from webset"
          rs1.open sql,cn,1,3
           rs1("initmonth")=0
           rs1("initday")=0
         rs1.update
       rs1.close

   sqla="select * from qdzxrec"
     rs1.open sqla,cn,1,3
      rs1.addnew
      rs1("menberid")=aid
      rs1("qdtime")=nowtime
      rs1("qddate")=date()
      rs1("qdip")=Request.ServerVariables("REMOTE_ADDR")
       if request.form("latttimes")<>empty then
          rs1("latttimes")=request.form("latttimes")
       else
           rs1("latttimes")=0
       end if
    rs1.update
   rs1.close
   response.write "<script>alert('签到成功，系统开始计时');location.href='index.asp';</script>"
  end if
 end if

 if  request("action")="qdoff" then 
  aid=session("id")
    sql="select * from ct_sql where id="&aid
    rs1.open sql,cn,1,3
     nowtime=now()
     thisqdtime=rs1("thisqdtime")
     todayqdnum=rs1("todayqdtimes")
     todayqdontime=rs1("todayqdontime")
     rs1("todayqdofftime")=now()
 if todayqdnum>=dayqdtimes then
   rs1("todayqd")=2
  else
   rs1("todayqd")=0
   rs1("todaylatterrc")=0
   rs1("lattertime")=0
   rs1("mustqdok")=0
 end if
   rs1.update
   rs1.close

   response.write "<script>alert('你今天已经完成本次签到！请按时进行下一次签到操作！');location.href='index.asp';</script>"
 end if


 if  request("action")="autoqdoff" then 

  aid=session("id")
    sql="select * from ct_sql where id="&aid
    rs1.open sql,cn,1,3
     thisqdtime=rs1("thisqdtime")
     todayqdnum=rs1("todayqdtimes")
     todayqdontime=rs1("todayqdontime")
     rs1("todayqdofftime")=now()
 if todayqdnum>=dayqdtimes then
   rs1("todayqd")=2
  else
   rs1("todayqd")=0
   rs1("todaylatterrc")=0
   rs1("lattertime")=0
   rs1("mustqdok")=0
 end if
   rs1.update
   rs1.close
 if request("sm")="自动" then
   response.write "<script>alert('系统已经自动注销上一次签到！请按时进行下一次签到！');location.href='index.asp';</script>"
 elseif request("sm")="手动" then
   response.write "<script>alert('您已手动注销！点击确定跳转到下一个签到点！');location.href='index.asp';</script>"
  end if  
  
 end if


 if  request("action")="nextqd" then 

  aid=session("id")
    sql="select * from ct_sql where id="&aid
    rs1.open sql,cn,1,3
     rs1("todayqdtimes")=int(rs1("todayqdtimes")+1)
     rs1("allqdnum")=int(rs1("allqdnum")+1)
     rs1("monthqdnum")=int(rs1("monthqdnum")+1)  
     thisqdtime=rs1("thisqdtime")
     todayqdnum=rs1("todayqdtimes")
     todayqdontime=rs1("todayqdontime")
     rs1("todayqdofftime")=now()
 if todayqdnum>=dayqdtimes then
   rs1("todayqd")=2
  else
   rs1("todayqd")=0
   rs1("todaylatterrc")=0
   rs1("lattertime")=0
   rs1("mustqdok")=0
 end if
   rs1.update
   rs1.close

   response.write "<script>location.href='qd.asp';</script>"
 end if

%>