payinfo.asp

通用考勤系统

 
<%
 
myyear=Year(now())
 mymonth=Month(now())
  if mymonth=1 then
   myday=31
elseif mymonth=2  then
   if (year(now()) mod 400)<>0 then
  myday=28
    else
  myday=29
    end if
elseif mymonth=3  then
  myday=31
elseif mymonth=4  then
  myday=30
elseif mymonth=5  then
  myday=31
elseif mymonth=6  then
  myday=30
elseif mymonth=7  then
  myday=31
elseif mymonth=8  then
  myday=31
elseif mymonth=9  then
  myday=30
elseif mymonth=10  then
  myday=31
elseif mymonth=11  then
  myday=30
elseif mymonth=12  then
  myday=31
end if

pid=session("id")
ptype=session("ptype")
sql1="select auto from ct_sql where id="&pid
 rs.open sql1,cn,1,1
  auto=rs("auto")                      '''获得签到组
 rs.close
 if auto>0 then
   sql2="select * from qdsetall where id="&auto
    rs.open sql2,cn,1,1    
    upsetid=rs("id")
    sysworktime=rs("worktime")          ''获得该组签到时间、次数、未结算时间
    dfttime=rs("settime")  
    dayqdtimes=rs("alltimes")  
    hhctime=rs("hctime")        
   rs.close

 sql3="select monthpay from type where type="&ptype
   rs.open sql3,cn,1,1
    syssetpay=rs("monthpay")    ''该组月固定工资
   rs.close

 elseif auto=0 then
 
sql3="select * from type where type="&ptype
 rs.open sql3,cn,1,1
  syssetpay=rs("monthpay")    ''该组月固定工资
  sysworktime=rs("worktime") 
  dfttime=rs("settime")
  dayqdtimes=rs("qdtimes")  
  hhctime=rs("hctime") 
 rs.close
 end if
set rs=nothing
daypay=round((syssetpay/myday),1)

%>