Dim date1,date2,date3
date2=1
day28=date()-28
set rs=server.createobject("adodb.recordset")
SQL="SELECT * FROM table WHERE dept='"&dept&"' and date> '"&day28&"' order by ID DESC"
'response.write sql
rs.open SQL,conn,1,1
if rs.eof or rs.pagecount = 0 then
else
if rs("sh")=1 then date2=0
end if
rs.close
set rs=nothing
Date1=date()-day(date()-1)
date3=28
if month(date1)=1 or month(date1)=3 or month(date1)=5 or month(date1)=7 or month(date1)=8 or month(date1)=10 or month(date1)=12 then date3=31
if month(date1)=4 or month(date1)=6 or month(date1)=9 or month(date1)=11 then date3=30
if year(date) mod 4 =0 then date3=29
fulldate=cstr(year(date1)) & "-" & right("0" & cstr(month(date1)-date2),2)& "-"& right("0" & cstr(day(date1)),2)
fulldate2=cstr(year(date1)) & "-" & right("0" & cstr(month(date1)),2)& "-"& date3
备注一下:目的,在录入页控制录入日期为上个月1号至本月最后一天,当上个月有审核记录时,则录入只能提交本月日期,不要问为何不采用直接获取日期,因为这个是工厂记录,有第二天第三天补记录,还有月初核对记录后还要补上个月记录,日期框设置为区间选择。
选计算出fulldate本月1日,判断是否审核,计算上个月1号,再算本月fulldate2最后一天,在输入框将这两个值放进日期范围内就可以了。