qdset_do.asp

通用考勤系统

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#include file="check.asp"--> 
<!--#include file="qx.asp"--> 
<!--#include file="conn.asp"--> 

<%
 act=request("act")
 
if act="addzone" then 
      zonename=trim(request.form("zonename"))                  '''''''''addzone
      hctime=int(trim(request.form("hctime")))
       if zonename=empty or hctime=empty then
            response.write "<script>alert('发生错误！可能是如下原因：\n\n1、设置组名称未填写！\n2、缓冲时间未填写！');history.back();</script>"
       else
          sql1="select * from qdsetall where setname='"&zonename&"'"
            rs1.open sql1,cn,3,3
         if rs1.eof or rs1.bof then
          rs1.addnew
           rs1("setname")=zonename
           rs1("hctime")=hctime
           rs1("settime")=0
          rs1.update
         rs1.close
        else
             response.write "<script>alert('已存在该设置组名称！');history.back();</script>"
        end if
    end if
   response.write "<script>location.href='qdset2.asp'</script>" 
end if
 
if act="zoneedit_do" then                        '''''''''zoneedit_do
   zonename=trim(request.form("zonename"))
   zoneid=trim(request.form("zoneid"))
   hctime=trim(int(request.form("hctime")))
   settime=trim(int(request.form("settime")))
     if hctime=empty then
          hctime=0
     end if
     if settime=empty then
          settime=0
     end if
 if zonename=empty then
   response.write "<script>alert('设置组名称未填写');history.back();</script>"
 else
  
 sql2="select * from qdsetall where id="&zoneid
  rs.open sql2,cn,1,3
  worktimea=rs("worktime")
  if (settime-worktimea)>0 then
    response.write "<script>alert('未注销结算时间["&settime&"分钟]大于该组工作时间["&worktimea&"分钟]！');history.back();</script>"
  else
  rs("setname")=zonename
  rs("settime")=settime
  rs("hctime")=hctime
  rs.update
  rs.close  
  response.write "<script>location.href='qdset2.asp'</script>" 
   end if
 end if
end if

if act="fwqedit_do" then                        '''''''''fwqedit_do
   dayqdtime=trim(request.form("dayqdtime"))
   dayzxtime=trim(request.form("dayzxtime"))
   fwqid=request.form("fwqid")
 if (isDate(dayqdtime)=0 or isDate(dayqdtime)=0 )then
   response.write "<script>alert('不是标准时间格式');history.back();</script>"
  else
    worktime1=int(datediff("s",dayqdtime,dayzxtime)/60)
       if worktime1<0 then
         response.write "<script>alert('签到时间应该早于注销时间！');history.back();</script>"
             else
  sql1="select * from qdsettime where id="&fwqid  
  rs.open sql1,cn,1,3
  rs("typename")=fwqname
  rs("dayqdtime")=dayqdtime
  rs("dayzxtime")=dayzxtime
  rs.update
  rs.close
  response.redirect "qdsetjs.asp"
  end if
 end if
end if
if act="addfwq" then                        '''''''''setfwq
      dayqdtime=trim(request.form("dayqdtime"))
      dayzxtime=trim(request.form("dayzxtime"))
      zoneid=trim(request.form("zoneid"))
  if (isDate(dayqdtime)=0 or isDate(dayqdtime)=0 )then
   response.write "<script>alert('不是标准时间格式');history.back();</script>"
  else
     worktime1=int(datediff("s",dayqdtime,dayzxtime)/60)
       if worktime1<0 then
         response.write "<script>alert('签到时间应该早于注销时间！');history.back();</script>"
             else
     sql1="select * from qdsettime"
      rs.open sql1,cn,3,3
      rs.addnew
      rs("dayqdtime")=dayqdtime
      rs("dayzxtime")=dayzxtime
      rs("upsetid")=zoneid
      rs.update
     rs.close
    sql1="select  alltimes from qdsetall where id="&zoneid
      rs.open sql1,cn,3,3
      rs("alltimes")=rs("alltimes")+1
      rs.update
     rs.close
   end if 
 end if
response.redirect "qdsetjs.asp" 
end if

if act="zfdel" then                                '''''''''''zfdel
pid=request("id")

sql1="delete from qdsetall where id="&pid
 cn.Execute sql2
  
 sql2="delete from qdsettime where upsetid="&pid
cn.Execute sql1
 sql3="select auto from ct_sql where auto="&pid
  rs.open sql3,cn,1,3
   do while not rs.eof
    rs("auto")=0
   rs.update
   rs.movenext
 loop
 rs.close
cn.close
response.redirect "qdset2.asp"
 
end if

if act="fwqdel" then                                '''''''''''fwqdel
pid=request("id")
zoneid=trim(request("zoneid"))
    sql1="select  alltimes from qdsetall where id="&zoneid
      rs.open sql1,cn,3,3
      rs("alltimes")=rs("alltimes")-1
      rs.update
     rs.close
 sql1="delete from  qdsettime  where id="&pid
cn.Execute sql1
cn.close
response.redirect "qdsetjs.asp"
 
end if

%>