payinfo.asp

来自「通用考勤系统」· ASP 代码 · 共 49 行

<!--#include file="conn.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

ptype=session("ptype")
sql="select * from type where type="&ptype
rs.open sql,cn,1,1
syssetpay=rs("monthpay")    ''该组月固定工资
sysworktime=rs("worktime")       ''该组固定工作时间
dfttime=rs("settime")           ''忘记注销默认工作时间  [应该具有惩罚性]
rs.close
set rs=nothing

daypay=round((syssetpay/myday),1)

%>