生产录入的日期判断，审核过的月份不能再补数据，完整代码

  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最后一天，在输入框将这两个值放进日期范围内就可以了。